Пузырьковая сортировка TListBox, TMemo, TString - 8 Июня 2012

Главная » » Пузырьковая сортировка TListBox, TMemo, TString

12:36 Пузырьковая сортировка TListBox, TMemo, TString
Сортировка строк в 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 t:=TstringList.Create; t.Text:=s; SortStringList(t); result:=t.Text; t.free; end; пример использования form1.ListBox2.items.text:=SortStringListInString(form1.ListBox1.items.Text); программа /67_puzyrkovaja_sortirovka.zip
1 2 3 4 5 Просмотров: 1377 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Delphi заготовки