Fahrschulprogramm

[Bloodycrow]

danke für die Antwort. Ich weiss das mit dem Bild, mein Problem ist,dass ich nun inifiles nehmen möchte und nicht weiß, wie man es dann auf die Form überträgt! hier is das alte Programm, mit dem Radioboxen.

Delphi-Quellcode:

const
  Max  = 3;
var
  Form1  : TForm1;
  Frage  : Array[1..Max] of String;
  Antwort: Array[1..Max, 1..3] of String;
  Richtig: Array[1..Max] of Integer;
  Nr     : Integer;
  Gefragt: Integer;
  Geloest: Integer;
  Datei  : TextFile;
  DateiName: String;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer; Zeile: String;
begin
  randomize;
  Gefragt := 0;
  Geloest := 0;
  try
    if OpenDialog1.Execute then
      DateiName := OpenDialog1.FileName
    else
      DateiName := 'Fragen.txt';
    AssignFile (Datei, DateiName);
    Reset (Datei);
    for i := 1 To Max do
    begin
      Readln (Datei, Frage[i]);
      Readln (Datei, Antwort[i,1]);
      Readln (Datei, Antwort[i,2]);
      Readln (Datei, Antwort[i,3]);
      Readln (Datei, Zeile);
      Richtig[i] := StrToInt (Zeile);
    end;
    CloseFile (Datei);
  except
    ShowMessage ('Datei oder Daten nicht vorhanden!');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Nr := random (Max) + 1;              
  Panel1.Caption := Frage[Nr];
  RadioGroup1.Items[0] := Antwort[Nr,1];
  RadioGroup1.Items[1] := Antwort[Nr,2];
  RadioGroup1.Items[2] := Antwort[Nr,3];
  if CheckBox1.Checked then
    RadioGroup1.ItemIndex := Richtig[Nr]-1
  else
    RadioGroup1.ItemIndex := -1;
  inc (Gefragt);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex = Richtig[Nr]-1 then
  begin
    inc (Geloest);
    Panel1.Caption := 'Von ' + IntToStr(Gefragt) + ' sind ' + IntToStr(Geloest) + ' richtig!';
  end
  else
    Panel1.Caption := 'Falsch!';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  try
    if SaveDialog1.Execute then
      DateiName := SaveDialog1.FileName
    else
      DateiName := 'Geloest.txt';
    AssignFile (Datei, DateiName);
    Rewrite (Datei);
    Writeln (Datei, Gefragt);
    Writeln (Datei, Geloest);
    CloseFile (Datei);
  except
    ShowMessage ('Daten lassen sich nicht speichern!');
  end;
end;

jetzt ändere ich diesen Code,indem ich halt inifiles nehme,dass sieht in etwa so aus:

Delphi-Quellcode:

var ini : TInifile;
    loesung : string;
    i : integer;
    b : boolean;   // temporäres ergebnis
begin
  ini := TInifile.Create('C:\new.ini');
  loesung := ini.readstring('1','L','0000');

Jetzt brauche ich die Ausgabe dafür und die fehlt mir halt mit den inifiles.