Entwickler-Ecke
Dateizugriff - Eine Random Datei öffnen
Borlox - Fr 03.02.06 08:04
Titel: Eine Random Datei öffnen
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! :D
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 - Fr 03.02.06 08:36
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 - Fr 03.02.06 09:31
Tipp einfach 'FindNext' in Delphi ein und drücke F1.
Wolfgang - Fr 03.02.06 09:47
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:
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
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!