Hallo Delphianer,
ich habe folgendes Problem;
Ich habe ein Record TPRKopf definiert welches fleissig
in eine TList geschrieben wird. In TPRKopf gibt es ein
"KLOBJID" vom Typ array[0..9] of Char;
Ich möchte die Liste nach diesem Feld sortieren lassen.
Mein Gedanke war mit TList.Sort(MeineSortierung); OK!
Die Methode definiere ich folgendermaßen
function MeineSortierung(I1, I2 : Pointer) : Integer;
begin
end;
Aber wie sortiere ich nun die Liste???????????????????????
Wäre schön wenn mir jemand helfen könnte...
Vielen Danke
Hier der Quelltext:
Type TDynChar = array of Char;
Type
PRKopf = ^TPRKopf;
TPRKopf = packed Record
KLOBJID : array[0..9] of Char;
SPRACHE : Char;
TEXT : TDynChar;
end;
// Die Methode schreibe ich verkürzt auf
procedure WriteTLIst;
var
ARec : PRKopf;
B : TDynChar;
MList : TList;
begin
{ Hier wird B aus einem Stream mit ReadBuffer gelesen
...
...
usw...
}
MList : TList.Create;
New(ARec);
StrPCopy(ARec^.KLOBJID, Copy(ARecord1^.KLOBJID, 1, 10));
ARec^.Sprache := 'd';
ARec^.Text := B;
MList.Add(ARec);
MList.Sort(MeineSortierung); // HIER SOLLL SOTIERT WERDEN!!!!!!
// ================================
end;
ich habe folgendes Problem;
Ich habe ein Record TPRKopf definiert welches fleissig
in eine TList geschrieben wird. In TPRKopf gibt es ein
"KLOBJID" vom Typ array[0..9] of Char;
Ich möchte die Liste nach diesem Feld sortieren lassen.
Mein Gedanke war mit TList.Sort(MeineSortierung); OK!
Die Methode definiere ich folgendermaßen
function MeineSortierung(I1, I2 : Pointer) : Integer;
begin
end;
Aber wie sortiere ich nun die Liste???????????????????????
Wäre schön wenn mir jemand helfen könnte...
Vielen Danke
Hier der Quelltext:
Type TDynChar = array of Char;
Type
PRKopf = ^TPRKopf;
TPRKopf = packed Record
KLOBJID : array[0..9] of Char;
SPRACHE : Char;
TEXT : TDynChar;
end;
// Die Methode schreibe ich verkürzt auf
procedure WriteTLIst;
var
ARec : PRKopf;
B : TDynChar;
MList : TList;
begin
{ Hier wird B aus einem Stream mit ReadBuffer gelesen
...
...
usw...
}
MList : TList.Create;
New(ARec);
StrPCopy(ARec^.KLOBJID, Copy(ARecord1^.KLOBJID, 1, 10));
ARec^.Sprache := 'd';
ARec^.Text := B;
MList.Add(ARec);
MList.Sort(MeineSortierung); // HIER SOLLL SOTIERT WERDEN!!!!!!
// ================================
end;
Comment