Accueil > Manip’s > Delphi > Mémos > Trier un mémo
Trier un mémo
vendredi 1er novembre 2013, par
procedure MEMO_Sort(MEMO : Tmemo);
var
Temp: TStringList; { Uses System.Classes }
begin
Temp := TStringList.Create;
try
Temp.Assign(Memo.Lines);
Temp.Sort;
Memo.Lines.Assign(Temp);
finally
Temp.Free;
end;
end;