hallo leute, bin ein totaler noob bezüglich delphi, hab hier so ein zettel von meiner lehrerin bekommen, wo der quelltext von bubblesort drauf stand.

---
procedure TForm1.Button7Click(Sender: TObject);
VAR i,j,hilf : integer;

begin
tab[0] := StrToInt(Edit1.Text);
tab[1] := StrToInt(Edit2.Text);
tab[2] := StrToInt(Edit3.Text);
for i := 0 to 3 do
tab[i] :=random(100);
Edit1.Text := IntToStr(Tab[0]);
Edit2.Text := IntToStr(Tab[1]);
Edit3.Text := IntToStr(Tab[2]);

for i := 0 to 2 do
begin
if tab[i]>=tab[i+1] then
begin
hilf := tab[i];
tab[i] := tab[i+1];
tab[i+1] := hilf;
end;

end;

sorttab := tab;

end;

procedure TForm1.Button8Click(Sender: TObject);
begin
form1.Visible := true;
form1.edit7.Text := IntToStr(SortTab[0]);
form1.edit8.Text := IntToStr(SortTab[1]);
form1.edit9.Text := IntToStr(SortTab[2]);
end;
---

ich will im prinzip folgendes:

edit1.text
edit2.text
edit3.text

sollen meine eingabefelder sein und

edit7.text
edit8.text
edit9.text

sollen meine ausgabefelder sein. die werte sollen natürlich mit bubblesort sortiert werden, funzt aber irgendwie nicht

danke jetzt schon mal für eure hilfe

[turbo delphi]

Hallo,

ich verschiebe dein Post mal in den Bereich "Programmierung"!

Gruß

Gipsy111