Daten aus TXT lesen und zufällig auswählen

[d0nnie]

Hallo liebe Delphi Gemeinde,

Nun mein Problem ist folgendermaßen:

Ich lese eine TextDatei ein die Vornamen und Namen enthält im Format: Peter:Pan
Alle schön untereinander. Nun wenn ich die File lade habe ich es schon so das er mir alle in einem Memo Fenster anzeigt. Nun möchte ich das ein Edit Feld (Vorname, Nachname) mit einem zufälligen Wert gefüllt wird wenn ich auf einen Button klicke, also nicht von oben herunter. Wie grig ich das hin?

Liebe Grüße

[DeddyH]

Delphi-Quellcode:

Memo.Lines[Random(Memo.Lines.Count)]

sollte funktionieren.

[edit] Oder etwas allgemeiner:

Delphi-Quellcode:

function RandomLine(Src: TStrings): string;
begin
  Assert(Assigned(Src), 'Keine Auswahlliste übergeben');
  Result := Src[Random(Src.Count)];
end;

[/edit]

[d0nnie]

Aber ich muss die Zeilen doch erst mal trennen oder?
weil: Peter:Tan

ja in zwei jeweileige Edit Felder mit [Vorname] [Nachname] soll.
also die übergabe an ein edit is ja nich das ding ... viel mehr das seperate und zufällige

[DeddyH]

Dann trenn den zurückgegebenen String doch einfach am ":" auf und verteile ihn auf die beiden Edits. Das Aufteilen ginge z.B. mit einer TStringlist und deren Eigenschaften Delimiter und DelimitedText, oder aber ganz "klassisch" mit Copy und Pos.

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1213383)

Dann trenn den zurückgegebenen String doch einfach am ":" auf und verteile ihn auf die beiden Edits. Das Aufteilen ginge z.B. mit einer TStringlist und deren Eigenschaften Delimiter und DelimitedText, oder aber ganz "klassisch" mit Copy und Pos.

Oder über die Suchfunktion hier, denn das ist hier schon 1000mal gefragt und 1001mal beantwortet worden ;)

[DeddyH]

Zitat:

Zitat von Sir Rufo (Beitrag 1213386)

Zitat:

Zitat von DeddyH (Beitrag 1213383)

Dann trenn den zurückgegebenen String doch einfach am ":" auf und verteile ihn auf die beiden Edits. Das Aufteilen ginge z.B. mit einer TStringlist und deren Eigenschaften Delimiter und DelimitedText, oder aber ganz "klassisch" mit Copy und Pos.

Oder über die Suchfunktion hier, denn das ist hier schon 1000mal gefragt und 1001mal beantwortet worden ;)

Genauso wie die Ausgangsfrage ;)

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1213388)

Zitat:

Zitat von Sir Rufo (Beitrag 1213386)

Zitat:

Zitat von DeddyH (Beitrag 1213383)

Dann trenn den zurückgegebenen String doch einfach am ":" auf und verteile ihn auf die beiden Edits. Das Aufteilen ginge z.B. mit einer TStringlist und deren Eigenschaften Delimiter und DelimitedText, oder aber ganz "klassisch" mit Copy und Pos.

Oder über die Suchfunktion hier, denn das ist hier schon 1000mal gefragt und 1001mal beantwortet worden ;)

Genauso wie die Ausgangsfrage ;)

Ich wollte nur Salz in die Wunde reiben, aber nicht auch noch die Gabel dabei drehen :mrgreen:

[DeddyH]

Wir machen keine halben Sachen, der Delinquent hat nix zu lachen :twisted:. Nun aber genug OT, die Frage ist ja jetzt hoffentlich beantwortet.

[d0nnie]

Sry sry :) Funzt einwandfrei da war ich wohl wieder zu übereifrig. Aber eine Sache bleibt noch.
Wenn ich den Pfad von der die TStringlist die txt liest universell halten will wie stelle ich das denn an? Also ich kann ja jetzt zwar mein pfad angeben c:/blabla .. aber ein anderer User wenn es entpackt dann stimmt das ja hinten und vorne nicht

[DeddyH]

Wie wäre es denn mit einem TOpenDialog?

Delphi-Quellcode:

procedure TDeinForm.DateiOeffnen;
begin
  if OpenDialog.Execute then
    Memo.Lines.LoadFromFile(OpenDialog.Filename);
end;