archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • and 10 bytes for the values themselves for a total of at least 20 bytes that will be added to the EXE file produced Now if we know that these are necessary initial values for our program and not necessarily constants of course constants are okay it would be better and simpler to do the following declaration const xi array 1 5 of integer 500 250 600 900 800 The array type constant method will consume only half the memory and will result to adding only at least 10 bytes to the EXE file And for strings array constants of one dimension example with 4 elements a sample declaration would be Const MyStrArr array 1 4 of string First string 2nd string 3rd string 4th string Now how do we initialize n dimensional array constants From Delphi help file it says that multidimensional array constants are defined by enclosing the constants of each dimension in separate sets of parentheses separated by commas The innermost constants correspond to the rightmost dimensions For two dimensional arrays as in the case of tables what I do is to type the tables in Excel then insert columns for the commas and parenthesis in Excel and then copy and paste the Excel Table right into my code Very quick and easy For example a table of integer of constants 4 rows by 5 columns can be initialized as const ix array 1 4 1 5 of integer 11 12 13 14 15 row one 21 22 23 24 25 row two 31 32 33 34 35 row three 41 42 43 44 45 row four thus the element ix 2 4 points to the value 24 I prefer the above method of writing in my code it looks like an ordinary table and I can

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1998/1208.txt (2016-02-14)
    Open archived version from archive



  • TGradient FillGradient Canvas TCanvas Width Height Integer Color1 Color2 TColor Direction TDirection var i Integer begin if Width 0 and Height 0 then begin case Direction of diHorizon for i 0 to Width do begin Canvas Pen Color GetColorBetween Color1 Color2 i 0 Width Canvas MoveTo i 0 Canvas LineTo i Height end diVertical for i 0 to Height do begin Canvas Pen Color GetColorBetween Color1 Color2 i 0 Height Canvas MoveTo 0 i Canvas LineTo Width i end end end end NOTE The GetColorBetween function is not written by me I found it somewhere in the internet but i dont remind who wrote this fast function Sorry to the Author function TGradient GetColorBetween StartColor EndColor TColor Pointvalue Von Bis Extended TColor var F Extended r1 r2 r3 g1 g2 g3 b1 b2 b3 Byte function CalcColorBytes fb1 fb2 Byte Byte begin result fb1 if fb1 fb2 then Result FB1 Trunc F fb1 fb2 end begin if Pointvalue Bis then begin result EndColor exit end F Pointvalue von Bis Von asm mov EAX Startcolor cmp EAX EndColor je exit mov r1 AL shr EAX 8 mov g1 AL shr Eax 8 mov b1 AL mov Eax Endcolor mov r2 AL

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0821.txt (2016-02-14)
    Open archived version from archive


  • 3A 23 40 60 3D 22 20 61 62 63 64 65 66 67 68 69 20 20 20 20 20 20 20 6A 6B 6C 6D 6E 6F 70 71 72 20 20 20 20 20 20 20 20 73 74 75 76 77 78 79 7A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 41 42 43 44 45 46 47 48 49 20 20 20 20 20 20 7D 4A 4B 4C 4D 4E 4F 50 51 52 20 20 20 20 20 20 20 20 53 54 55 56 57 58 59 5A 20 20 20 20 20 20 30 31 32 33 34 35 36 37 38 39 20 20 20 20 20 20 A2ETable Array 0 255 of Byte 00 01 02 03 37 2D 2E 2F 16 05 25 0B 0C 0D 0E 0F 10 11 12 13 3C 3D 32 26 18 19 3F 27 1C 1D 1E 1F 40 5A 7F 7B 5B 6C 50 7D 4D 5D 5C 4E 6B 60 4B 61 F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 7A 5E 4C 7E 6E 6F 7C C1 C2 C3 C4 C5 C6 C7 C8 C9 D1 D2 D3 D4 D5 D6 D7 D8 D9 E2 E3 E4 E5 E6 E7 E8 E9 5B E0 5D 5E 6D 79 81 82 83 84 85 86 87 88 89 91 92 93 94 95 96 97 98 99 A2 A3 A4 A5 A6 A7 A8 A9 C0 6A D0 5F 07 00 01 02 03 37 2D 2E 2F 16 05 25 0B 0C 0D 0E 0F 10 11 12 13 3C 3D 32 26 18 19 3F 27 1C 1D 1E 1F

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/Miscellany/SteveAgnew_EBCDIC_%20ASCII.txt (2016-02-14)
    Open archived version from archive


  • MimeOLE Produced By Microsoft MimeOLE V5 00 2014 211 Organization Another Netscape Collabra Server User X MSMail Priority Normal Newsgroups borland public delphi basm I realize I m late and I haven t studied all the entrants but for what it s worth here s mine function CountBits const Value Integer Integer asm xor ecx ecx xor edx edx top bsf ecx eax jz done inc ecx inc edx shr

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0930b.txt (2016-02-14)
    Open archived version from archive


  • CMP AL TRUE JNE Done PUSH EBX XOR EAX EAX DW A20F MOV DWORD PTR SID EBX MOV DWORD PTR SID 4 EDX MOV DWORD PTR SID 8 ECX POP EBX Done end Result SID end function AzCpuType const Signature Longword Byte 13 11 of Signature asm SHR EAX 12 AND EAX 03 end function AzCpuFamily const Signature Longword Byte 11 7 of Signature asm SHR EAX 8 AND EAX

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0913a.txt (2016-02-14)
    Open archived version from archive


  • t compile in D7 K3 because the new version wasn t being correctly recognized Why is finding the necessary version dependent conditional directive so difficult I couldn t find anything about this in either the printed or online documentation Why can t Borland document this or make this process easier Lacking documentation I searched the whole C Program Files Borland Delphi7 directory for VER150 which was my guess for D7 since D6 K1 was VER140 This VER150 constant did appear in the files DCC32 EXE DCC70 DLL and coreide 70 bpl having to dump files in hex ASCII to find suspected strings is a poor way to document anything I found two other curious files that were apparently not part of the D6 release and are new with D7 C Program Files Borland Delphi7 Source Indy IdCompilerDefines inc and C Program Files Borland Delphi7 Source IntraWeb IWCompilerDefines inc The first file is 2552 bytes long and the second is 2314 bytes long so the CompilerDefines files are not quite the same Why Here s the section of IdCompilerDefines inc about D7 Delphi 7 IFDEF VER150 DEFINE VCL4ORABOVE DEFINE VCL5ORABOVE IFDEF BCB DEFINE CBUILDER DEFINE CBUILDER7 ELSE DEFINE DELPHI DEFINE DELPHI7

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2002/0918.txt (2016-02-14)
    Open archived version from archive


  • file I use cut here File VERSIONS INC Description Supply a better list of defines than simply VERxxx Author Lasse Vågsæther Karlsen Copyright C 1999 Lasse Vågsæther Karlsen Author Lasse Revision 1 Date 1 10 99 14 17 Archive Komponenter Utils VERSIONS INC First define the proper version define UNDEF DELPHI1 IFDEF VER80 DEFINE DELPHI1 ENDIF UNDEF DELPHI2 IFDEF VER90 DEFINE DELPHI2 ENDIF UNDEF BCB1 IFDEF VER93 DEFINE BCB1 ENDIF UNDEF DELPHI3 IFDEF VER100 DEFINE DELPHI3 ENDIF UNDEF BCB3 IFDEF VER110 DEFINE BCB3 ENDIF UNDEF DELPHI4 IFDEF VER120 DEFINE DELPHI4 ENDIF UNDEF BCB4 IFDEF VER125 DEFINE BCB4 ENDIF UNDEF DELPHI5 IFDEF VER130 DEFINE DELPHI5 ENDIF IFDEF DELPHI1 DEFINE DELPHI DEFINE DELPHI1UP ENDIF IFDEF DELPHI2 DEFINE DELPHI DEFINE DELPHI1UP DEFINE DELPHI2UP ENDIF IFDEF DELPHI3 DEFINE DELPHI DEFINE DELPHI1UP DEFINE DELPHI2UP DEFINE DELPHI3UP ENDIF IFDEF DELPHI4 DEFINE DELPHI DEFINE DELPHI1UP DEFINE DELPHI2UP DEFINE DELPHI3UP DEFINE DELPHI4UP ENDIF IFDEF DELPHI5 DEFINE DELPHI DEFINE DELPHI1UP DEFINE DELPHI2UP DEFINE DELPHI3UP DEFINE DELPHI4UP DEFINE DELPHI5UP ENDIF IFDEF BCB1 DEFINE BCB DEFINE BCB1UP ENDIF IFDEF BCB3 DEFINE BCB DEFINE BCB1UP DEFINE BCB3UP ENDIF IFDEF BCB4 DEFINE BCB DEFINE BCB1UP DEFINE BCB3UP DEFINE BCB4UP ENDIF Require one of the known compiler versions at this time IFNDEF DELPHI IFNDEF BCB This unit requires Delphi version 1 x 5 x or BCB version 1 3 or 4 ENDIF ENDIF Now set the integer size for this compiler IFDEF DELPHI IFDEF DELPHI2UP DEFINE SIZE 32 ELSE DEFINE SIZE 16 ENDIF ELSE BCB DEFINE SIZE 32 ENDIF Set language feature defines IFDEF DELPHI IFDEF DELPHI3UP DEFINE HAS INTERFACE Compiler has support for interfaces ENDIF IFDEF DELPHI4UP DEFINE HAS LONGWORD Compiler has the data type LONGWORD DEFINE HAS DEFAULTPARAMS Compiler supports default parameters DEFINE HAS OVERLOAD Compiler has the OVERLOAD directive DEFINE HAS INT64 Compiler has the data type INT64 DEFINE HAS DYNAMICARRAYS

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1001a.txt (2016-02-14)
    Open archived version from archive


  • public delphi objectpascal I havent seen this in Delphi You could make a separate define for each of the two groups you want to code differently for example DELPHI123 and DELPHI45 IFDEF DELPHI1 DEFINE DELPHI123 ENDIF DELPHI1 IFDEF DELPHI2 DEFINE DELPHI123 ENDIF DELPHI2 IFDEF DELPHI3 DEFINE DELPHI123 ENDIF DELPHI3 then IFDEF DELPHI123 ENDIF regards Richard Vladimir wrote in message news 8gmhjf etd3 bornews borland com Hi Is there a way

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2000/0526a.txt (2016-02-14)
    Open archived version from archive



  •