Random Text Ausgabe

[mOzZzI]

Hi Freunde,
ich hab eine Frage an euch,
es ist so ich habe eine Textdatei, und in dieser Textdatei sind ungefähr 30 Zeilen mit Text.
Jetzt möchte ich jedes mal am Programmstart einen Zufallssatz in einem Label anzeigen...
Wie funktioniert sowas?

[Dax]

Du lädst deine Datei in eine StringList, erzeugst dir ne Zahl zwischen von 0 bis ausschließlich der Anzahl der Strings in der Liste und schreibst den String mit dem Index in den Label. Danach gibst du die Liste wieder frei, und du hast nen zufälligen Text.

[mOzZzI]

Zitat:

Zitat von Dax

Du lädst deine Datei in eine StringList, erzeugst dir ne Zahl zwischen von 0 bis ausschließlich der Anzahl der Strings in der Liste und schreibst den String mit dem Index in den Label. Danach gibst du die Liste wieder frei, und du hast nen zufälligen Text.

hättest du vill ein kleines code-beispiel (hab noch nicht so viel mit Stringlist gearbeitet)

[Dax]

Delphi-Quellcode:

var list: TStrings

list := TStringList.Create;
list.LoadFromFile(deineDatei);

Randomize;
Label1.Caption := list[Random(list.Count)];

list.Free;

[mOzZzI]

Zitat:

Zitat von Dax

Delphi-Quellcode:

var list: TStrings

list := TStringList.Create;
list.LoadFromFile(deineDatei);

Randomize;
Label1.Caption := list[Random(list.Count)];

list.Free;

öhm, müsste das nicht

Delphi-Quellcode:

var list: TStringlist;

heisen?

[mkinzler]

Mit stringList.LoadFromFile kannst du den Inhalt einer datei in die Stringliste laden. Mit StringList.Items[x-1] bekommst du den x. Eintrag.

Edit: zu langsam}
öhm, müsste das nicht

var list: TStringlist;

heisen?

Nein, da TStringList ein Nachfahre von TStrings ist.

[Dax]

Oh.. Nun ja, eigentlich ists egal, da TStrings ne abstrakte Basisklasse ist und TStringList lediglich die abstrakten Methoden implementiert.. Lang: Nein, kurz: Ja ;)

@mkinzler: .Items ist aber ne Array-Property, und nicht die Stringliste ;) [edit]Und x-1 ist der x-2te Eintrag *glaub*[/edit]

[mkinzler]

Zitat:

@mkinzler: .Items ist aber ne Array-Property, und nicht die Stringliste Wink

Stimmt, einfach wieder mal schneller getippt als gedacht.

Zitat:

[edit]Und x-1 ist der x-2te Eintrag *glaub*[/edit]

Der Index beginnt mit 0.

[Dax]

Zitat:

Zitat von mkinzler

Stimmt, einfach wieder mal schneller getippt als gedacht.

Dito ;)

bäh, böse schreibfehler