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".

  • strings no objects you might store them to a Tlist and call Tlist sort with a compare function like this Function lengthCompare p1 p2 pointer integer Begin result length string p1 length string p2 End After sorting you could put your strings in a TstringList if you need that for further operations Using a TstringList directly TstringList sort does not use a Compare function but it is virtual If you

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



  • Var Root AVLPtr Var SortX TreeRecArray Var Count Word Function Find AVLNode Var Root AVLPtr X AVLDataRec AVLPtr Procedure Delete AVLTree Var Root AVLPtr X AVLDataRec Var DelOK Boolean Implementation PA Rotate Right Re arranges tree nodes by rotating them to the right Modifications Procedure Rotate Right Var Root AVLPtr Var Ptr2 Ptr3 AVLPtr Begin Rotate Right Ptr2 Root Right If Ptr2 Balance Right Tilt then Begin Root Right Ptr2 Left Ptr2 Left Root Root Balance Neutral Root Ptr2 End Else Begin Ptr3 Ptr2 Left Ptr2 Left Ptr3 Right Ptr3 Right Ptr2 Root Right Ptr3 Left Ptr3 Left Root If Ptr3 Balance Left Tilt then Ptr2 Balance Right Tilt Else Ptr2 Balance Neutral If Ptr3 Balance Right Tilt then Root Balance Left Tilt Else Root Balance Neutral Root Ptr3 End Root Balance Neutral End Rotate Right PA Rotate Left Re arranges tree nodes by rotating them to the left Modifications Procedure Rotate Left Var Root AVLPtr Var Ptr2 Ptr3 AVLPtr Begin Rotate Left Ptr2 Root Left If Ptr2 Balance Left Tilt then Begin Root Left Ptr2 Right Ptr2 Right Root Root Balance Neutral Root Ptr2 End Else Begin Ptr3 Ptr2 Right Ptr2 Right Ptr3 Left Ptr3 Left Ptr2 Root Left Ptr3 Right Ptr3 Right Root If Ptr3 Balance Right Tilt then Ptr2 Balance Left Tilt Else Ptr2 Balance Neutral If Ptr3 Balance Left Tilt then Root Balance Right Tilt Else Root Balance Neutral Root Ptr3 End Root Balance Neutral End Rotate Left PA Insert AVL Workhouse routine to perform node insertion in an AVL tree Modifications Procedure Insert AVL Var Root AVLPtr X AVLDataRec Var InsertedOK Boolean Begin Insert AVL If Root Nil then Begin New Root With Root do Begin TreeData X Left Nil Right Nil Balance Neutral End InsertedOK True End Else If X Key Root TreeData Key

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


  • is Simple comparision of the TestDate against the BirthDate does yield the desired common sense age FUNCTION CalculateAge CONST BirthDate TDate CONST TestDate TDate INTEGER VAR DayBirth DayTest WORD MonthBirth MonthTest WORD YearBirth YearTest WORD BEGIN IF TestDate BirthDate THEN BEGIN DecodeDate BirthDate YearBirth MonthBirth DayBirth DecodeDate TestDate YearTest MonthTest DayTest Code algorithm this way so anyone can understand what is going on here IF MonthTest MonthBirth Any month past

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/DatesAndTimes/AgeCalculation.TXT (2016-02-14)
    Open archived version from archive


  • AlterFileTimeStamp CONST filename STRING CONST stamp TDateTime VAR FileHandle INTEGER BEGIN TRY FileHandle FileOpen filename fmOpenWrite OR fmShareDenyNone IF FileHandle 0 THEN BEGIN FileSetDate FileHandle DateTimeToFileDate stamp FileClose FileHandle END

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/DatesAndTimes/AlterFileTimeStamp.TXT (2016-02-14)
    Open archived version from archive


  • NIL dwFlags STARTF USESHOWWINDOW wShowWindow Visibility cbReserved2 0 lpReserved2 NIL END RESULT CreateProcess NIL address of module name Path address of command line NIL address of process security attributes NIL address of thread security attributes FALSE new process inherits handle NORMAL PRIORITY CLASS creation flags NIL address of new environment block NIL address of current directory name StartupInfo ProcessInformation IF RESULT THEN BEGIN WITH ProcessInformation DO BEGIN IF Wait THEN

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/DatesAndTimes/TimeDateControlPanel.TXT (2016-02-14)
    Open archived version from archive


  • dnews borland public delphi students 16299 In article Rim Ranshuijsen says Hi there I would like to change a Unix TimeStamp into a Delphi TDateTime Is that possible already checked th DatTime Functions in Delphi Help but can t seem to find it If you have D6 look at the DateUtils functions function DateTimeToUnix const AValue TDateTime Int64 function UnixToDateTime const AValue Int64 TDateTime You can do them yourself Unix

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


  • given 12 18 1976 then the result is Tuesday etc Have you heard about Doomsday The last day of February is Doomsday The days 4 4 6 6 8 8 10 10 12 12 7 11 11 7 9 5 5 9 are always on the same day of the week All you have to do is figure out what Doomsday is for the year Divide the years since 1900

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


  • SetFileTime HANDLE hFile identifies the file CONST FILETIME lpCreationTime time the file was created CONST FILETIME lpLastAccessTime time the file was last accessed CONST FILETIME lpLastWriteTime time the file was last written As you see it allows you to set all three timestamps in one go The Delphi declaration in Window pas is function SetFileTime hFile THandle lpCreationTime lpLastAccessTime lpLastWriteTime PFileTime BOOL stdcall You need to do a bit of

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



  •