Ich soll als Schulprojekt ein kleines Quiz bauen.
Ich lese Frage und Antworten jeweils aus einer Zeile in einen array of string ein.
Delphi-Quellcode:
AssignFile(myFile,datei);
Reset(myFile);
while not Eof(myFile) do
begin
ReadLn(myFile, text[i]);
inc(i);
end;
closefile(myfile);
Dannach wird per random ein string aus diesem array "rausgefischt" den ich dann Zerlege.
Nach dem die Frage beantwortet wurde, wird wieder ein string zufällig ausgewählt.
Nun kann es aber passieren dass ein string doppelt ausgewählt wird, was ich aber unterbinden möchte,
da das quiz sonst witzlos wäre, wenn man zweimal die gleiche frage bekäme.
Nun bräuchte ich eine Lösung die solange string heraussucht (nicht doppelt, keine festgelegte reihenfolge), bis jeder string einmal dran war.
Ich hatte schon eine Idee:
Jedem string im array text eine zahl zu vergeben und diese dann in einem anderen array zu speichen,
wenn der zugehörige string benutzt wird.
Es haperte aber an der Umsetzung, auserdem erschien es mir zu kompliziert.
Vieleicht gibt es ja eine möglichkeit geziehlt strings zu entfernen ...
ich hoffe, mir kann jemand helfen
thx schmitzlipp