Eine Random Datei öffnen

Borlox · Beiträge: 191 Win XP Delphi 6 Enterprise

Hallo alle zusammen,

nach dem ich jetzt ein Jahr nichts mehr mit DElphi gemacht habe, muss ich mich mal wieder ein wenig damit beschäftigen!

Ich möchte gerne aus einem bestimmten Ordner eine Zufallsdatei öffnen, es sind alles HTML-Dateien, die ich in die WebBrowserkomponente reinladen möchte! Wie kann ich denn eine Zufallsdatei herausfinden? Habe auch schon gesucht, aber leider nur mit begrenztem Erfolg!

Wer kann mir helfen?

Bis dann
Borlox

maaalin · Beiträge: 41

erst lässt du dir alle dateien die es in einem ordner gibt in ein array speichern.

such dafür mal nach "verzeichnnis auslesen" oder soetwas.

danach halt mit random/randomize ne zufallszahl generieren,die
maximal so gross ist wie die grösse des arrays mit den dateinamen.

dann lädst du einfach die meineDateien[meineZufallszahl]

alzaimar · Verfasst: Fr 03.02.06 09:31

Tipp einfach 'FindNext' in Delphi ein und drücke F1.

_________________
Na denn, dann. Bis dann, denn.

Wolfgang · Beiträge: 34

Hi!

Du könntest auch die Dateien in eine FileListBox laden und die Maske auf "*.html" stellen. Dann lädst du einfach den Namen aus FileListBox1.

zB random Dateiname wird in label1 geschrieben, wenn der Button1 gedrückt wird:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: integer;
begin

if FileListBox1.Items.Count <> 0 then
begin
  randomize;
  a:=random(FileListBox1.Items.Count)-1;
  label1.Caption := Filelistbox1.Items.Strings[a];
end;

end;

mfg Wolfgang

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme