Einfach nur Complierung abgerbochen als Meldung ?

[pluto]

Hallo,
als ich heute mein mainmenu weiter machen wollte und die neue Datei Format einbauen wollte.
Bekam ich folgende Meldung;

uMainMenu2.pas(11,81) Fatal: Compilation aborted

mehr leider nicht.

und die angeben Position ist leer.
ich kopiere mal die Komplete unit hier dran. Evlt. kommt der Fehler bei euch auch:

Code: Alles auswählen

unit uMainMenu2;
 
{$mode objfpc}{$H+}
 
interface
 
uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,Tools,types,uMyListbox,uMyCompo,lclintf;
 
type
  TmyMainMenuA = class(TMyCompo)
  private
  protected
 
  public
    fFileName:String;
    Script:TStringlist.Create;
    ListBoxen:array of TMyListBox;
 
    constructor Create;
    procedure LoadFile(pFileName:String);
    function GetItemIndex(pName:String):Integer;
    procedure LoadSubMenu();
    procedure MouseEV(typ, x, y:Integer;Shift:TShiftState);
  end;
 
implementation
 
{ TMainMenu2 }
 
constructor TmyMainMenuA.Create;
begin
  Script:TStringList.Create;
  SetLength(ListBoxen,0);
  fFileName:='';
end;
 
function GetCaption(Script:TStringlist; Zeile:Integer):String;
var
  i:Integer;
begin
  for i:=Zeile to Script.Count-1 do begin
    if Pos('}',Script.Strings[i]) > 0 then
      break
    else begin
 
      if Pos('Caption',Script.Strings[i]) > 0 then begin
        result:=GetToken(Script.Strings[i],':',2);
        break;
      end;
    end;
  end;
end;
 
procedure TmyMainMenuA.LoadFile(pFileName: String);
var
  i:Integer;
  tmpListBox:TMyListBox;
  tmpListItem:TMyListItem;
begin
  FileName:=pFileName;
  if FileExists(FileName) then begin
    Script.LoadFromFile(Filename);
    tmpListBox:=TMyListBox.Create;
    tmpListBox.rx:=10; tmpListBox.ry:=10;
    tmpListBox.root:=True;
    for i:=0 to Script.Count-1 do begin
      if (Script.strings[i] <> ' ') and (Script.strings[i] <> '}') and (Script.strings[i] <> '')then begin
        tmpListItem.zeile:=i;
        tmpListItem.Visible:=True;
        tmpListItem.isSubMenu:=False;
        tmpListItem.Caption:=GetCaption(Script,i+1);
 
        Writeln(tmpListItem.Caption);
      end; // if ' '
    end; // for i:=0 to Count-1
    SetLength(ListBoxen,high(ListBoxen)+2);
    ListBoxen[high(ListBoxen)]:=tmpListBox;
  end; // FileExists
end;
 
function TmyMainMenuA.GetItemIndex(pName: String): Integer;
begin
 
end;
 
procedure TmyMainMenuA.LoadSubMenu();
begin
 
end;
 
procedure TmyMainMenuA.MouseEV(typ,x,y: Integer; Shift: TShiftState);
begin
 
end;
 
end.

ich hoffe diesmal ist es keine Doofer Fehler von meiner seite...

edit1:
die Datei Position in X Richtung ist genau da wo der Vertikale weiße strich ist....

[monta]

Dann debugg mal ein bisschen. Schonmal die zeile drüber auskommentiert und probiert obs ohne Array funzt?

[Christian]

Schonmal alles neu gebaut (Rebuild All oder so) ??

[pluto]

nein monta daran liegt es nicht, ich habe sogar alle(fast alle) units rauß rauß genommen. Ich glaube ich muss Lazarus neu erstellen !

[pluto]

habe den Fehler gefunden:

Code: Alles auswählen

type
  TmyMainMenuA = class(TMyCompo)
  private
  protected
 
  public
    fFileName:String;
    Script:TStringlist.Create;
    ListBoxen:array of TMyListBox;
 
    constructor Create;
    procedure LoadFile(pFileName:String);
    function GetItemIndex(pName:String):Integer;
    procedure LoadSubMenu();
    procedure MouseEV(typ, x, y:Integer;Shift:TShiftState);
  end;

was fählt euch hier auf ? es ist einfach nur ein Syntax Fehler den ich nicht beachtet habe... Aber ich verstehe nicht warum der Complier sowas nicht einfach sagen kann. Ich meine ich hatte den selben fehler schonmal.
(ein Tip: unter fFileName:String *G*)

[theo]

Joh, da haste recht.
Ich würde das als FPC Bug bezeichnen. Mit einem internen Compilerfehler (217) dürfte er da nicht reagieren. Kylix behandelt das souveräner und sagt einfach
[Error] Unit1.pas(13): ';' expected but '.' found.

Kannste in den Bugtracker schreiben, falls nicht schon vorhanden.

[theo]

Hab's mal eingetragen:
http://www.freepascal.org/mantis/view.php?id=8588" onclick="window.open(this.href);return false;

[pluto]

vielen Dank !
das ist mir jetzt schon zum zweiten mal passiert. Ich weiß gar nicht wie sowas von Delphi behandelt wird. evlt. sollte sowas auch in den FAQ oder so stehen....

die 10 häufigesten Fehler oder so.... das währe doch was oder ?

[theo]

Peter Vreman sagt es sein in FPC 2.1.1 repariert.

[pluto]

oh. Dann ist ja gut. Dann werde ich mir sobald die 22er draußen ist alles Komplet neu installieren bzw. updaten.