1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls; 8 9 type 10 TForm1 = class(TForm) 11 Button1: TButton; 12 procedure Button1Click(Sender: TObject); 13 end; 14 15 TMyRec = record 16 x: Integer; 17 y: Integer; 18 z: Integer; 19 end; 20 PMyRec = ^TMyRec; 21 22 var 23 Form1: TForm1; 24 25 implementation 26 27 {$R *.dfm} 28 //function StringListCompareStrings(List: TStringList; Index1, Index2: Integer): Integer; 29 30 function SortMethod(List: TStringList; Index1, Index2: Integer): Integer; 31 begin 32 if PMyRec(List.Objects[Index1])^.x > PMyRec(List.Objects[Index2])^.x then 33 Result := -1 34 else 35 if PMyRec(List.Objects[Index1])^.x = PMyRec(List.Objects[Index2])^.x then 36 Result := 0 37 else 38 Result := 1; 39 end; 40 41 procedure TForm1.Button1Click(Sender: TObject); 42 var 43 strList: TStringList; 44 mRec1, mRec2, mRec3: TMyRec; 45 pRec1, pRec2, pRec3: PMyRec; 46 begin 47 FillChar(mRec1, SizeOf(TMyRec), 0); 48 FillChar(mRec2, SizeOf(TMyRec), 0); 49 FillChar(mRec3, SizeOf(TMyRec), 0); 50 51 pRec1 := @mRec1; 52 pRec2 := @mRec2; 53 pRec3 := @mRec3; 54 55 with mRec1 do 56 begin 57 x := 1; 58 y := 2; 59 z := 3; 60 end; 61 62 with mRec2 do 63 begin 64 x := 3; 65 y := 2; 66 z := 3; 67 end; 68 69 with mRec3 do 70 begin 71 x := 5; 72 y := 2; 73 z := 3; 74 end; 75 76 strList := TStringList.Create; 77 78 strList.AddObject(IntToStr(pRec1^.x), TObject(pRec2)); 79 strList.AddObject(IntToStr(pRec1^.x), TObject(pRec1)); 80 strList.AddObject(IntToStr(pRec1^.x), TObject(pRec3)); 81 82 ShowMessage( IntToStr( PMyRec(strList.Objects[0])^.x ) //3 83 + IntToStr( PMyRec(strList.Objects[1])^.x ) //1 84 + IntToStr( PMyRec(strList.Objects[2])^.x ) //5 85 ); 86 87 strList.CustomSort(SortMethod); 88 89 ShowMessage( IntToStr( PMyRec(strList.Objects[0])^.x ) //5 90 + IntToStr( PMyRec(strList.Objects[1])^.x ) //3 91 + IntToStr( PMyRec(strList.Objects[2])^.x ) //1 92 ); 93 94 strList.Free; 95 96 97 end; 98 99 end.
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;
TMyRec = record x: Integer; y: Integer; z: Integer; end; PMyRec = ^TMyRec;
var Form1: TForm1;
implementation
{$R *.dfm}//function StringListCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
function SortMethod(List: TStringList; Index1, Index2: Integer): Integer;begin if PMyRec(List.Objects[Index1])^.x > PMyRec(List.Objects[Index2])^.x then Result := -1 else if PMyRec(List.Objects[Index1])^.x = PMyRec(List.Objects[Index2])^.x then Result := 0 else Result := 1;end;
procedure TForm1.Button1Click(Sender: TObject);var strList: TStringList; mRec1, mRec2, mRec3: TMyRec; pRec1, pRec2, pRec3: PMyRec;begin FillChar(mRec1, SizeOf(TMyRec), 0); FillChar(mRec2, SizeOf(TMyRec), 0); FillChar(mRec3, SizeOf(TMyRec), 0);
pRec1 := @mRec1; pRec2 := @mRec2; pRec3 := @mRec3;
with mRec1 do begin x := 1; y := 2; z := 3; end;
with mRec2 do begin x := 3; y := 2; z := 3; end;
with mRec3 do begin x := 5; y := 2; z := 3; end;
strList := TStringList.Create;
strList.AddObject(IntToStr(pRec1^.x), TObject(pRec2)); strList.AddObject(IntToStr(pRec1^.x), TObject(pRec1)); strList.AddObject(IntToStr(pRec1^.x), TObject(pRec3));
ShowMessage( IntToStr( PMyRec(strList.Objects[0])^.x ) //3 + IntToStr( PMyRec(strList.Objects[1])^.x ) //1 + IntToStr( PMyRec(strList.Objects[2])^.x ) //5 );
strList.CustomSort(SortMethod);
ShowMessage( IntToStr( PMyRec(strList.Objects[0])^.x ) //5 + IntToStr( PMyRec(strList.Objects[1])^.x ) //3 + IntToStr( PMyRec(strList.Objects[2])^.x ) //1 );
strList.Free;
end;
end.
