Registriert seit: 22. Jan 2008
Ort: Erfurt
958 Beiträge
Delphi 7 Enterprise
|
Re: bubblesort funzt ni need help
23. Apr 2008, 19:42
Zitat von The_Doomed:
Delphi-Quellcode:
var i,j,n:integer;
f:array[0..10]of string;
h:string;
begin
n:=listbox1.Items.Count;
for i:=0 to n-1 do f[i+1]:=listbox1.Items[i];
for i:=1 to n do
for j := 1 to n-1 do
if f[j]>f[i] then
begin
h:=f[i];
f[i]:=f[j];[pre]
f[j]:=h;
end;
for i:=0 to n do
begin
listbox2.Items.Add(f[i+1]);
end;
jo das wars danke
mann mann mann is schon ganz schön schwer ^^
Ich lese es jetzt erst... Listbox?..da gibt es
Listbox1.sorted:=TRUE;
Gruss Kaki
Repeat Until true=false;
|