ich muss ein bubblesort sortierverfarhen programmieren... ich habe 10 zahlen im zahlenfeld 1-1000 im ersten editfeld sollen diese unsortiert erscheinen, wenn man auf den button unsortiert klickt... diese funktion funktioniert bei mir schon.
nun muss ich den zweiten button so programmieren, das die in edit 1 gezeigten zahlen in edit 2 sortiert gezeigt werden:
ich habe es soweit programmiert, jedoch klappt es nicht... ich glaube mein fehler liegt in der letzen zeile, könnt ihr mir bitte helfen
mein Programm:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure TForm1.bt_sortClick(Sender: TObject);
var i,j,Merke:Integer;
begin
for i:=9 downto 1 do
for j:=1 to i do
if zahlenf[j]> zahlenf[j+i] then
begin
Merke:=zahlenf[j];
Zahlenf[j]:= Zahlenf[j+i];
zahlenf[j+i]:=Merke;
end;
ed_ausgabe.text:= ed_ausgabe.text+' '+IntToStr(zahlenf[j]);
end; |
vielen dank
elefantenfan88
Moderiert von 
Klabautermann: Delphi-Tags hinzugefügt
