Entwickler-Ecke :: Thema anzeigen - Fragen aus einem Listenfeld raussuchen

Jasmini - Mi 18.05.05 13:46
Titel: Fragen aus einem Listenfeld raussuchen

Hallo

ich hab in der Schule ein Programm angefangen und einen zufalls Generator eingebaut, leider funktioniert dieser nicht!!

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TWWMSpiel.STARTClick(Sender: TObject);
var s: string;
    p: integer;
    i : Integer; // Variable für den gewählten Eintrag
begin
  Randomize;
  if Fragengel.Items.Count > 0 then begin
  i := Random(Fragengel.Items.Count-1);

    if Fragengel.ItemIndex>-1 then begin
       s:= Fragengel.Items[Fragengel.ItemIndex];
       p:= Pos(',',s);
       edtFrage.Text := Copy (s,1, p-1);
       Delete (s,1,p+1);
       p:= Pos(',',s);
       edtAntA.Text := Copy (s,1,p-1);
       Delete (s,1, p+1);
       p:= pos (',',s);  
       edtAntB.Text := Copy (s,1,p-1);
       Delete (s,1,p+1);
       p:= pos (',',s);  
       edtAntC.Text := Copy (s,1,p-1);
       Delete (s,1,p+1);  
       p:= pos (',',s);
       edtAntD.Text := Copy (s,1,p-1);  
       p:= pos (',',s);  
       edtAntwort.Text := Copy (s,1,p-1);
       Delete (s,1,p+1);  
       edtAntwort.Text := Copy (s,1,p-1);
     end;  
     Fragengel.Items.Delete(i);
  end;

Moderiert von Tino: Delphi-Tags hinzugefügt.

Jasmini - Mi 18.05.05 14:11

Ich hab ein Programm geschrieben, was man mit Wer wird
Millionär vergleichen kann.

Jetzt hab ich über einen anderen Button diese Datei schon geladen und will jetzt, dass er einen Datensatz aus der Listbox auswählt und in die einzelnen Felder übergibt.
Es funktioniert nicht so wie ich es will, ich muss die Fragen in der List box anklicken und dann wird es in die Felder geladen!

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

f Fragengel.ItemIndex>-1 then begin
 //ab hier werden die einzelnen Textabschnitte den Edits zugewiesen
       s:= Fragengel.Items[Fragengel.ItemIndex];
       p:= Pos(',',s);
       edtFrage.Text := Copy (s,1, p-1);
       Delete (s,1,p+1);
       p:= Pos(',',s);
       edtAntA.Text := Copy (s,1,p-1);
       Delete (s,1, p+1);
       p:= pos (',',s);
       edtAntB.Text := Copy (s,1,p-1);
       Delete (s,1,p+1);
       p:= pos (',',s);  
       edtAntC.Text := Copy (s,1,p-1);
       Delete (s,1,p+1);  
       p:= pos (',',s);
       edtAntD.Text := Copy (s,1,p-1);  
       p:= pos (',',s);  
       edtAntwort.Text := Copy (s,1,p-1);
       Delete (s,1,p+1);  
       edtAntwort.Text := Copy (s,1,p-1);

Moderiert von raziel: Delphi-Tags hinzugefügt.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!