Zufall

[jonsen2.0.0.9]

Hallo,

wie kann ich aus einer txt datei oder Tstringlist die werte entnehmen und zufällig einen davon auswählen?

hab nämlich ein programm das bilder raussucht und dann den pfad und namen speichert. die in sl1 einer Tstringlist, welche ich dann noch in Bilder.txt speicher.

nun möchte ich wenn man auf einen button drückt, dass dann ein pfad + name ausgewählt wird (zufällig) und dann erstmal nur in label1 ausgegeben wird.

hoffe habt was.

MFG
Jonas

[Namenloser]

Delphi-Quellcode:

var
  StringList: TStringList;
begin
  StringList := TStringList.Create;
  Stringlist.LoadFromFile(...);
  ShowMessage(StringList.Strings[random(StringList.Count)]); // Strings, nicht Lines. Lines wars glaub ich bei TMemo...
//  Oder:
//  ShowMessage(StringList[random(StringList.Count)]);
  StringList.Free;
end;

// Irgendwann beim Programmstart (z.B. FormCreate):
randomize;

[Matze]

Hallo,

über SL.Count bekommst du die Anzahl der Einträge. Über Random und davor einmaligem Aufruf von Randomize kannst du dir den Index als Zufallszahl zurückgeben lassen.

Grüße, Mazue

Edit: Ihr immer mit den bescheuerten Komplettlösungen. lasst ihn doch selbst mal was machen. Wie man an seinen zahlreichen Themen sieht, muss er noch viel lernen und Copy&Paste bringt da nichts. :wall: Und wenn, dann sollte der Code auch vernünftig sein (Resourcenschutzblöcke fehlen), sonst merkt er sich's erst recht falsch.

[jonsen2.0.0.9]

ich mach ja nich nur copy....ich schau mir lösungen an bis ich sie verstehe und dann selber kann...

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Delphi-Frage

[Namenloser]

Zitat:

Zitat von Matze

Edit: Ihr immer mit den bescheuerten Komplettlösungen. lasst ihn doch selbst mal was machen. Wie man an seinen zahlreichen Themen sieht, muss er noch viel lernen und Copy&Paste bringt da nichts. :wall: Und wenn, dann sollte der Code auch vernünftig sein (Resourcenschutzblöcke fehlen), sonst merkt er sich's erst recht falsch.

Ich bin normalerweise immer bestrebt, Komplettlösungen zu vermeiden, aber ich finde, man kann es auch übertreiben. Denn manchmal sagen ein paar Zeilen Code mehr als tausend Worte. Ich habe mir schon oft einen abgebrochen bei dem Versuch, eine solche Banalität zu umschreiben, ohne die Lösung direkt zu nennen. Unnötig, denn meistens wird die Erklärung dann kompliziert und der Fragesteller wird nur verwirrt.

Und was die Ressourcenschutzblöcke angeht: Klar, normalerweise sollte man sie hinschreiben, aber in diesem Fall war es so, dass ich zu erst nur folgende Zeile geschrieben hatte:

Delphi-Quellcode:

ShowMessage(StringList.Lines[random(StringList.Count)]);

Ich lasse solche Zeilen aber ungern alleine stehen, vor allem wenn keine Erläuterung vorhanden ist. Deshalb habe ich die Zeile von etwas erklärendem Code umschlossen, damit zumindest klar ist, was was ist.

[Neutral General]

Die Zeile ist dazu übrigens auch noch falsch :stupid:

[Namenloser]

Zitat:

Zitat von Neutral General

Die Zeile ist dazu übrigens auch noch falsch :stupid:

Und wieso das? :gruebel:

[Neutral General]

Probiers doch aus :P

[Namenloser]

Zitat:

Zitat von Neutral General

Probiers doch aus :P

:duck: