Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
5. Sep 2009
@alzaimar:
Meinst du damit, ich sollte den Quellcode noch kommentieren?
Gruß
Wolfgang
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
5. Sep 2009
alzaimar hat folgendes geschrieben:
KleinsterWert := Math.MinIntValue(zahlArray);
... für Fortgeschrittene ;-)
Gruß
Wolfgang
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
5. Sep 2009
Ergänzung zu Post 8:
Hier eine bessere Testvarinte:
procedure TForm1.Button1Click(Sender: TObject);
var zahl : array of integer;
i,min,merker:integer;
begin
randomize;
for i:= 1 to 1000 do
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
4. Sep 2009
Schau dir mal diesen Code aN, habe ich gerade mal gemacht:
procedure TForm1.Button1Click(Sender: TObject);
var zahl : array of integer;
i,min:integer;
begin
randomize;
for i:= 1 to 10 do
begin
zahl:=random(1000)+1;
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
4. Sep 2009
Nimm die Variante von Teekeeks, am einfachsten mit 'ner FOR-Schleife.
Gruß
Wolfgang