Random und if Abfrage

[sakura]

Und nun sagst Du uns noch genau, wie Du die Dinge lädst und was passieren soll, wenn der User auf einen Eintrag in der Listbox klickt und wir nähern uns der Lösung :bouncing4:

...:cat:...

[citybreaker]

Fragen in ListBox Laden

Delphi-Quellcode:

procedure TMainFrm.FormShow(Sender: TObject);
begin
  // Fragen auflisten
  Ini := TIniFile.Create('C:\fragen.ini');
   Ini.ReadSections(ListBox.Items);
  Ini.Free;
end;

procedure TForm1.Button1.Click(Sender: TObject);
var zufall: integer;
begin
  // Zufalls Frage Nummer 1
  randomize;
  zufall := random(ListBox.Items.Count) + 1; 
end;

So unter dem zufall := random .... folgt dann mein Problem.

--- Edit ---
Die ListBox ist übrigens unsichtbar damit man sich die Fragen
nicht aussucht. ;)

[DennyC]

Zitat:

Zitat von citybreaker

So unter dem zufall := random .... folgt dann mein Problem.

Unter diesen Umständen ist das natürlich überhaupt kein Problem. Du nimmst einfach den Index des zufällig gewählten Items der Listbox, bildest daraus den String 'Frage'+IntToStr(ItemIndex) und liest gleichnamige Section aus der INI aus. So gibt es also nur ein paar Zeilen Code für sämtliche Bedingungen.

Denny

[citybreaker]

Wie nehm ich den Index des zufällig gewählten Items?
Immoment ist Bahnhof angesagt. :oops:

--- Edit ---

Habs jetzt geschaft, alerdings auf einer anderen Art und Weise.