Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: zufällgie Karte laden

    Delphi
    by Evian, 31. Mai 2006
  öhm ich hab mir jetzt nicht alles durchgelesen, was die anderen so geschrieben haben, aber auf die schnelle würde ich es so machen:
  
  
  procedure TForm1.Button2Click(Sender: TObject);
  VAR
  path : STRING;
  begin
  repeat
  path := extractfilepath(application.ExeName)+'Karten\'+inttostr(random(38)+11)+'.bmp';
  until fileexists(path);