memo Sortieren

[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;