BlueGEEK Journal

Accueil > Manip’s > Delphi > Mémos > Trier un mémo

Trier un mémo

vendredi 1er novembre 2013, par bluegyn_spip

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;