Zufälligen string aus txt Datei laden

[basti2011]

Hallo,

Ich arbeite gerade an einem kleinen Projekt welches ein wort mit dem "cäsar code" verschlüsselt.
Mein Problem ist folgendes und zwar ich möchte gerne dass in ein edit feld ein Zufälliges Wort ( aus etwa 20 Wörtern) aus einer Txt Datei geladen wird.
Dieses Wort wird dann verschlüsselt und in ein Label geschrieben.

Da das Programm als eine "Quiz" funktionieren soll reicht es nicht ein Wort eingeben zu können sondern dass automatisch eines geladen wird.
Momentan funktioniert es nur mit einem Wort das der Benutzer selbst eingibt und dass ist halt zu wenig :-D

Der Code für die Verschlüsselung sieht ungefähr so aus:

Delphi-Quellcode:

procedure TForm1.mittel;
var i, buchstabe, Verschiebung : Integer;
    Wort, Ausgabe : String;

begin
 Wort  := Edit2.text;    // Sollte irgendwie durch ein zufallswort ersetzt werden
 Ausgabe := '';
 Verschiebung := 3;
 for i := 1 to length(Wort) do
 begin
BUCHSTABE := ord(Wort(.i.));
BUCHSTABE := ((BUCHSTABE + Verschiebung-96) mod 26)+96;

Danke im Vorraus :wink:

[Namenloser]

Textdateien kannst du am einfachsten mit TStringList laden. Alles weitere hängt davon ab, wie die Wörter in der Datei gespeichert sind.

[basti2011]

Ich hab mir gedacht einfach eine txt Datei mit ca 20 WÖrtern untereinander und dann jede Runde eins zufällig in das edit Feld schreiben.

Mit Tstring list bin ich leider überhaupt noch nicht vertraut ....

[Namenloser]

Hier mal ein kleines Beispiel:

Delphi-Quellcode:

var
  StringList: TStringList;
begin
  StringList := TStringList.Create; // Stringlist erzeugen
  StringList.LoadFromFile('foobar.txt'); // Inhalt aus Datei laden
  // Einzelne Zeilen sind jetzt über StringList[Zeilennummer] ansprechbar
  ShowMessage(StringList[0]); // Gibt erste Zeile in einer MessageBox aus
  StringList.Free; // Stringlist wieder freigeben
end;

[basti2011]

Kann ich dann theoretisch schreiben: edit1.text := StringList[0] ?
und wofür ist Stringlist freigeben notwendig?

[mkinzler]

Zitat:

Zitat von basti2011 (Beitrag 1104317)

Kann ich dann theoretisch schreiben: edit1.text := StringList[0] ?

Ja

Zitat:

und wofür ist Stringlist freigeben notwendig?

Da der Speicherbereich sonst belegt bleiben würde, auch wenn man nach dem Funktionsdurchlauf nicht mehr darauf zugreifen kann ( Speicherleak)

[FredlFesl]

Zitat:

Zitat von mkinzler (Beitrag 1104318)

...Speicherleak...

What ick the denglish loven tu:
The Speicherleak is also bekannt as Memory-Leck, oder Memoryleak oder ...richtig... Speicherleck.

Wobei es genaugenommen eigentlick kein Leck ist. Denn aus einem Leck läuft etwas heraus oder herein. Hier läuft nix raus oder rein.

Hier wird einfach Platz reserviert und nicht mehr freigegeben, obwohl man den Platz nicht mehr benötigt.