Hallo,
ich versuch das schon selber, aber das ist immer vollkommen unermutigend, wenn das dauenrnd nicht klappt. Also das hier hab ich schon mal, aber naja
Delphi-Quellcode:
var
Form1: TForm1;
lottozahl: set of byte;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i,y: integer;
begin
i:= 0;
for i:= 1 to 6 DO
Y:= random(49)+1;
ListBox1.Items.Add(inttostr(y));
end;
Danke schon für eure Antworten
Lisa
[edit=MrSpock]Delphi-Tags eingefügt. Mfg, MrSpock[/edit]