Syntax Error: "BEGIN" expected but "end of file" found.

[sakomo]

Hallo Zusammen,

Ich habe einen Latein Vokabeltrainer mit Lazarus programmiert und er sollte funktionieren. Wenn ich ihn alllerdings starten möchte kommt der Error aus dem Titel. Leider weiß ich nicht, was ich falsch gemacht habe.



Quelltext:


unit Unit1;



interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
CheckBox1: TCheckBox;
Panel1: TPanel;
RadioGroup1: TRadioGroup;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

const Max = 100;
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;
Datei: TextFile;

implementation



{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = Richtig[Nr]-1 then Panel1.Caption := 'Richtig!'
else Panel1.Caption := 'Falsch!'
end;

procedure TForm1.Button2Click(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;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer; Zeile: String;
begin
randomize;
AssignFile (Datei, 'DelphiVokabeln.txt');

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;
end;



end.

[DeddyH]

Mal mit Delphi-Tags und Formatierung:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;

type

{ TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    CheckBox1: TCheckBox;
    Panel1: TPanel;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
{ private declarations }
  public
{ public declarations }
  end;

const
  Max = 100;

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;
  Datei: TextFile;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex = Richtig[Nr] - 1 then
    Panel1.Caption := 'Richtig!'
  else
    Panel1.Caption := 'Falsch!'
end;

procedure TForm1.Button2Click(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;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  close
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  Zeile: String;
begin
  randomize;
  AssignFile(Datei, 'DelphiVokabeln.txt');

  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;
end;

end.

Auf den ersten Blick seh ich aber nichts, was die Fehlermeldung verursacht. Vielleicht ist die *.lpr gemeint?

[sakomo]

Vielleicht sollte ich noch dazu sagen, dass der Fehler in der 1.Zeile beim 1.Wort liegt

[p80286]

Zitat:

Zitat von sakomo (Beitrag 1219815)

Vielleicht sollte ich noch dazu sagen, dass der Fehler in der 1.Zeile beim 1.Wort liegt

Das ist eine schöne Information, dann ist es ggf. sinnvoll das ganze Projekt anzuhängen.

Gruß
K-H

[DeddyH]

Coole Idee, da hätte ich auch drauf kommen können :zwinker:

[sakomo]

tut mir leid ich habe es erst später gesehen:-D Aber was soll ich jetzt machen? ich muss morgen das projekt abgeben:(

[DeddyH]

Pack es in ein Zip-Archiv und lad es hier hoch, dann schauen wir mal drüber.

[uligerhardt]

Ich kenne mich mit Lazarus nicht weiter aus, aber fehlt da nicht ein

Delphi-Quellcode:

{$R *.lfm}

oder was ähnliches?

[Memnarch]

Ich würde in Lazarus auch noch den Parser bestimmen(Willst du per Delphi-STyle oder ObjectPascal programmieren?)

Ich vermisse diese settings:

Delphi-Quellcode:

{$mode delphi}

oder

Delphi-Quellcode:

{$mode objfpc}

@uligerhardt: man kann sogar *.dfm nehmen ;)

[sakomo]

Also ich habe es jetzt mit Delphi probiert und jetzt klappt soweit alles nur das jetzt die Datei nicht gefunden wird. Muss man die an eine bestimmte Stelle tun ( also iregendwo in den Delphi Ordner oder so)? :)

[Sir Rufo]

Zitat:

Zitat von sakomo (Beitrag 1220199)

Also ich habe es jetzt mit Delphi probiert und jetzt klappt soweit alles nur das jetzt die Datei nicht gefunden wird. Muss man die an eine bestimmte Stelle tun ( also iregendwo in den Delphi Ordner oder so)? :)

Rechtwinklig an die Wand nageln :roll:

Welche Datei wird wann und wo nicht gefunden?