TZTable could not open

[slai]

Hey there

I switched today from Lazarus 0.9.22 Beta to Lazarus 0.9.25 Beta todays snapshot with the fpc 2.2.0 for windows xp win 32.

My Problem is, that i can compile everything it works fine, then if i start my program some TZTables could not open. I open them with:

Code: Select all

     try
        DBDataMod.ZCDB.Connect;
        for i := 0 to DBDataMod.ComponentCount-1 do begin
            if DBDataMod.Components[i].ClassName = 'TZTable' then begin
               try
                  TZTable(DBDataMod.Components[i]).Active := True;
               except
                  ShowMessage(TZTable(DBDataMod.Components[i]).Name+' could not open!');
               end;
            end;
        end;
        createLRComponents();
        result := true;
     except
        disconnectserver;
           SLFehler := TStringList.Create;
           SLFehler.Add('Fehler beim Verbinden mit dem Firebirdserver, Fehlerhafte Einstellungen;');
           SLFehler.Add('Alias:'+sdatabasefile);
           SLFehler.Add('host: '+shost);
           SLFehler.Add('protokoll: '+sprotocol);
           SLFehler.Add('username: '+susr);
           SLFehler.Add('port: '+inttostr(iport));
           SLFehler.SaveToFile(ExtractFilePath(Application.ExeName)+'ServerFalschEinstellungen.error');
           SLFehler.Free;
        result := false;
     end;     

on the line TZTable(DBDataMod.Components).Active := True; the program throws an exception:

EZSQLException with message:
###(gdb unparsed remainder:s 0xffffffec out of bounds)###

but not on every table. I don't know where's the problem with the version
0.9.22 fpc 2.0.1 everything workes fine.

thanks for replys.

[slai]

Hey

That was a strange error, the new lazarus 0.9.25 delete some tablenames of my tztables. i just had to set the tablenames again...