Zufallsgenerator

[a.def]

Hat euch euer Lehrer noch nix von Schleifen erzählt?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
 Ini: TIniFile;
 i: Integer;
begin
 Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Zufallszahlen.ini');
 
 try
  Randomize;

  // Die Variable A1 kann man sich sparen
  for i := 1 to 5000 do
   Ini.WriteInteger('Zufallszahlen', 'Zahl' + IntToStr(i), Random(10))
 finally
  Ini.Free;
 end;
end;

{*

[Zufallszahlen]
Zahl1=8
Zahl2=2
Zahl3=4
usw.

*}