Einzelnen Beitrag anzeigen

Benutzerbild von Der.Kaktus
Der.Kaktus

Registriert seit: 22. Jan 2008
Ort: Erfurt
958 Beiträge
 
Delphi 7 Enterprise
 
#21

Re: bubblesort funzt ni need help

  Alt 23. Apr 2008, 18: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;
  Mit Zitat antworten Zitat