Delphi заготовки

Сортировка строк в TListBox TMemo  TStringList TString Пузырьковая сортировка

Procedure SortStringList(var value:TStringList);
var x:integer;
     L:integer;
     b,min:string;
     k:integer;
begin
l:=value.Count;
 for x:=0 to l-1 do begin
     min:=value[x];
     for k:=x to l-1 do
        if (value[k]<min) then begin
           b:=value[x];
           value[x]:=value[k];
           value[k]:=b;
           min:=value[x];
        end;
  end;
end;
Function SortStringListInString(S:String):string;
var t:TstringList;
begin
&n ... Читать дальше »