zufällgie Karte laden

[Penelopee]

danke für die Hilfe , aber die Diskussion hier hilft mir nicht wirklich weiter.Wär super wenn jemand mal ein bischen Quelltext schreiben würde , wie das konkret mit random ausssehen würde.Wär super , meinen Quelltext habt ihr ja!!!

THX für die Mühe

[Evian]

öhm ich hab mir jetzt nicht alles durchgelesen, was die anderen so geschrieben haben, aber auf die schnelle würde ich es so machen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
VAR
  path : STRING;
begin
  repeat
    path := extractfilepath(application.ExeName)+'Karten\'+inttostr(random(38)+11)+'.bmp';
    until fileexists(path);
  image2.Picture.LoadFromFile(path);
end;

Vorher solltest Du noch den Zufallsgenerator per randomize; initialisieren.
Also z.B. im onCreate Event, oder so. (so meinte zumindest immer mein Großvater) :)

gruß

Evian

EDIT:

oder hier noch mal als Einzeiler ohne Schleife:

Delphi-Quellcode:

image2.Picture.LoadFromFile(extractfilepath(application.ExeName)+'Karten\'+inttostr(random(4)+1)+inttostr(random(8)+1)+'.bmp');