Forum: Sonstige Fragen zu Delphi
Delphi
by Spurius,
25. Jun 2004
So, habs mir doch noch schnell angeschaut.
for b := 0 to List2.Count-1 do // !!!
begin
if Zahl = strtoint(List2) then // !!!
Daran lags denk ich. Ich versteh nicht warum man List2 schreiben darf. Da ist ja nichtmal ein Punkt oder sowas dazwischen.
Also nochmal vielen Dank für eure Hilfe!
Gruß
Spurius
Forum: Sonstige Fragen zu Delphi
Delphi
by Spurius,
25. Jun 2004
Also in die erste Stringlist wollte ich die Zahlen von 1-32 reinschreiben und in die zweite die 8 zufälligen Zahlen aus der ersten. Ich werd mir des morgen mal genauer anschauen.
Gruß
Spurius
Forum: Sonstige Fragen zu Delphi
Delphi
by Spurius,
25. Jun 2004
Danke dass du dich mit dem Problem beschäftigt hast, ich würde halt gern meine Lösung verwenden, wobei ich den Fehler noch nciht gefunden habe. Also wenn du dir mal meinen Code anschauen würdest, würdest du mir einen Gefallen tun.
Forum: Sonstige Fragen zu Delphi
Delphi
by Spurius,
25. Jun 2004
Nachtrag:
Ich hab das jetzt so gemacht:
var
Form1: TForm1;
List, List2: TStringlist;
implementation
{$R *.dfm}
Forum: Sonstige Fragen zu Delphi
Delphi
by Spurius,
25. Jun 2004
@MrKnogge
Ich hoffe du hältst meine Fragerei noch aus, aber ich bring da grad einiges durcheinander:
Das mit dem Add und Count ist klar, ist ja bei TMemo und TstringList sehr ähnlich.
Aber wie kann ich diesen Ausdruck ersetzen: Memo1.Lines ?
Ich hatte IndexOf probiert, aber dann kamen einige Zahlen doppelt vor.
Vielen Dank für die bisherige Hilfe
Spurius
Forum: Sonstige Fragen zu Delphi
Delphi
by Spurius,
25. Jun 2004
Das schon, aber Memo1.Lines.Count, wie kann ich das ersetzen?
Forum: Sonstige Fragen zu Delphi
Delphi
by Spurius,
25. Jun 2004
Wie jetzt? Ich hatte es bei der List mit IndexOf versucht, aber des hat net so ganz hingehaun. Ich mein halt, durch was muss ich z.b. das Memo1.Lines ersetzen? Die Zahlen sind ja keine Objekte sondern nur Variablen.
Forum: Sonstige Fragen zu Delphi
Delphi
by Spurius,
25. Jun 2004
Ok, noch ne Frage: Was müsste der Code aussehen wenn ich anstatt dem Memo list2 verwenden will?
Forum: Sonstige Fragen zu Delphi
Delphi
by Spurius,
25. Jun 2004
So, ich bin weitergekommen mit diesem Code:
var
Form1: TForm1;
List, List2: TStringlist;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Forum: Sonstige Fragen zu Delphi
Delphi
by Spurius,
25. Jun 2004
Hallo,
ich hab das jetzt einigermaßen hinbekommen, ich hab jetzt Code mit dem ich 8 Zahlen aus der Liste mit den Zahlen von 1-32 auswählen kann.
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e, Zahl: integer;
SchonEnthalten: boolean;
begin
List := TStringList.Create;
List2 := TStringList.Create;
Forum: Sonstige Fragen zu Delphi
Delphi
by Spurius,
24. Jun 2004
Hallo,
sry wenn ich das Problem etwas "unpräzise" beschrieben hab. Die Lösung von Nailor find ich gut, nur wie kann ich die Zahlen zufällig rausnehmen? Weil die sollen danach ja nicht neu durchnummeriert werden, sondern ihre Werte behalten. Dauert das nicht zu lange? Weil wenn random z.B. die letzte Zahl nicht liefert, dauert das ja ne ganze Weile, bis die erwischt wird.
Forum: Sonstige Fragen zu Delphi
Delphi
by Spurius,
24. Jun 2004
Ich habe die Zahlen von 1-100 und möchte die zufällig aufteilen.
Forum: Sonstige Fragen zu Delphi
Delphi
by Spurius,
24. Jun 2004
Hallo,
wie kann ich Zahlen von z.b. 1-100 zufällig in 4 verschiedene "Portionen" aufteilen?
Gruß
Spurius