Fragespiel

[kris08]

Was ist daran falsch???

Delphi-Quellcode:

procedure TfrFahrschule.FrageStellen;
var i : Integer;
begin
  lbRF.Caption := '';
  for i:=0 to ComponentCount-1 do
    if Components[i] is TCheckBox then
      TCheckBox(Components[i]).Checked := false;
  repeat
    nrAkt := Random(Length(frage));
  until not frage[nrAkt].warSchon;
  frage[nrAkt].warSchon := true;
  with frage[nrAkt] do begin
  if Length( frage) > nMaxLaenge then Insert( sLineBreak, frage, nMaxLaenge);
Memo.Lines.Text := frage;
    cbAnt1.Caption  := ant[1];
    cbAnt2.Caption  := ant[2];
    cbAnt3.Caption  := ant[3];
    if bild <> '' then
      // Bildladen;
      imBild.Picture.LoadFromFile('Bilder\'+frage[nrAkt].bild);
      // ShowMessage('Kein Bild');
  end;