|
Registriert seit: 19. Jul 2004
Ort: München
960 Beiträge
Delphi 2007 Professional
|
Re: Mit Zufallsteuerung aus einem Memo einige Texte ausgeben
25. Mai 2007, 10:56
Lösche doch einfach die schon gewonnenen Preise.
z.B.: Zu löschenden gewinn mit dem Letzten Tauschen und dann das dynamische array um eins verkleinern.
Die for-schleife kannste dann mit "for i := 0 to high(a) do ..." realisieren ohne, daß du übers Ziel hinausschießt. ^^
Du könntest was ich schöner fände auch statt deinem Array eine TStringList benutzen. Vorteil währe 1.) die hat ein .Delete und 2.) ein .LoadFromFile bzw. .SaveToFile
龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
|