![]() |
Zufall
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 |
Re: Zufall
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; |
Re: Zufall
Hallo,
über SL.Count bekommst du die Anzahl der Einträge. Über ![]() ![]() 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. |
Re: Zufall
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 |
Re: Zufall
Zitat:
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:
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.
ShowMessage(StringList.Lines[random(StringList.Count)]);
|
Re: Zufall
Die Zeile ist dazu übrigens auch noch falsch :stupid:
|
Re: Zufall
Zitat:
|
Re: Zufall
Probiers doch aus :P
|
Re: Zufall
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:02 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz