Ist das ein Bug ?

[Have a nice Day]

Ich habe ein Programm geschrieben.
Eigentlich habe ich nichts verändert und trotzdem kam auf einmal das:
"unit1.pas(1,1) Fatal: Syntax Error, "Unit" expected but "end of file" found"

Code: Alles auswählen

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls,LCLIntf, ComCtrls, FileCtrl;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    TrackBar1: TTrackBar;
    procedure Button1Click(Sender: TObject);
    procedure Position(posX,posY : LongInt;var back: integer);
    procedure pause(const ms:integer);
    procedure TrackBar1Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation  

das sind die ersten Zeilen meines Programms

[theo]

Lade das ganze Projekt hoch oder schau dir den Code selber nochmal an.
An diesen Zeilen sehe ich nichts, kann es so aber auch nicht durch den Compiler prüfen.

[Have a nice Day]

mmh.. jetzt geht aus einmal alles wieder
hab nichts geändert

#close#