Hi! i made some .pas in delphi
like this:
-------------------------
Unit
UntLoginForm;
interface
uses
windows,etc,etc..;
type
TLoginForm = class(TForm)
TLoginForm = class(TForm)
...
end;
implementation
implementation
{$R
*.dfm}
... // code
here
end.
-------------------------
No, i'm trying
to compile the same unit in Lazarus, without lost the compatibility in delphi,
so, i copy the DFM into a LFM, and wrote
this:
-------------------------
Unit
UntLoginForm;
interface
uses
windows,etc,etc
{$ifdef
fpc}
,
LResources
{$endif};
type
TLoginForm = class(TForm)
TLoginForm = class(TForm)
...
end;
implementation
{$ifndef
fpc}
{$R *.dfm}
{$endif}
{$R *.dfm}
{$endif}
... // code
here
initialization
{$ifdef fpc}
{$I untloginForm.lrs}
{$endif}
{$ifdef fpc}
{$I untloginForm.lrs}
{$endif}
end.
-------------------------
In design time, it looks
perfect, i can modify and work in the LFM without problems, but, when i compile this, the
compiler give me two errors:
""Ilegal
expresion""
""Syntax error: ';'
expected but "identifier LOGINFORM" found""
and point me in the
"UntLoginForm.lfm" file in the first line:
object LoginForm:
TLoginForm
what i'm doing
wrong?
Mariano
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.392 / Virus Database: 268.6.0/342 - Release Date: 17/05/2006
