Forum: Programmieren allgemein
by rossinie00,
8. Nov 2004
procedure TForm1.Button1Click(Sender: TObject);
var i,k,j,buffer,z,m,u: integer;
zahlen,zahlendown,zufallsort,zufall: Array of integer;
begin
randomize;
for i := 1 to 10 do
begin
zahlen := i;
sg.cells := inttostr(zahlen);
end;
Forum: Programmieren allgemein
by rossinie00,
8. Nov 2004
hi,
soll fuer die schule eine uebung machen die einige arrays miteinander vergleicht.
in der zweitletzten spalte schreibt er zufallszahlen und in der letzten soll er sie mit bubble sort sortieren aber irgendwie macht ers nicht :-(
procedure TForm1.Button1Click(Sender: TObject);
var i,k,j,buffer,z,m: integer;
zahlen,zahlendown,zufallsort,zufall: Array of integer;
begin
randomize;
...