memo Sortieren

[tobiasw]

hi,

ich habe Namen in einer Memo Komponenten und möchte diese nun Sortieren da ich nur Stringrid sortieren kann wüsste ich gerne wie dies geht und am besten mit Code..

Gruß

[Jasocul]

Pack das in eine TStringList und setze die Eigenschaft Sorted auf True.

Sorry, kein Source.

[tobiasw]

ist auch gut habe was ich brauche

Sortieren eines Memo Feldes

var
iCnt : Integer;
jCnt : Integer;
Temp : String;
begin
For iCnt:=0 to memo1.Lines.Count-1 do
For jCnt:=iCnt to memo1.Lines.Count-1 do
begin
If memo1.Lines[iCnt]>memo1.Lines[jCnt] then
begin
Temp:=memo1.Lines[iCnt];
memo1.Lines[iCnt]:=memo1.Lines[jCnt];
memo1.Lines[jCnt]:=Temp;
end;
end;
end;

[shmia]

Kuckst du:
http://www.delphipraxis.net/internal...t.php?p=323946