Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
1. Jan 2009
Ich habe in Deinem Quelltext mal etwas herumeditiert.
{ MinSort: }
procedure TForm1.BitBtnMinSortClick(Sender: TObject);
var
i,j: Integer; //Zaehlvariablen
s: String;
Temp,Min: Integer; //Zwischenspeicher, Minimum
ZeitAnfang,ZeitEnde: real;
CounterVertauschungen: Integer;
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
1. Jan 2009
Du sollest ja auch nicht pro Sortierschritt das aktuelle Feld ausgeben,
sonder das ganze Array in einer eigenen Schleife durchlaufen und
in dieser Schleife die Felder ausgeben.
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
1. Jan 2009
Hallo,
prinzipiell sollte es in etwa so gehen.
s:='';
for i:=0to high(feld) do
s:=s+feld;
memo1.lines.add(s);
Grüße