OtherMethod.pas(114,19) Error: Identifier not found "FindIntToIdent"
OtherMethod.pas(127,18) Error: Identifier not found "FindIdentToInt"
I've searched on the internet but didn't found anything relevant for this functions in FPC/lazarus
On 6/26/06, Michael Van Canneyt <[EMAIL PROTECTED]> wrote:
On Mon, 26 Jun 2006, Nathan Samson wrote:
> Hi all
>
> I'm porting an application from delphi to lazarus/FPC
> Most things are allright, but I have some problems with porting the
> following code:
> <code>
> function PropertyToString(obj: TPersistent; PropName: string): string;
> var
> IntToIdent: TIntToIdent;
> //Ident: string;
> begin
> Result:= GetPropValue(obj, PropName);
> if PropType(obj, PropName)=tkInteger then begin
> IntToIdent := FindIntToIdent(GetPropInfo(obj, PropName).PropType^);
> if Assigned(IntToIdent) then
> IntToIdent(GetPropValue(obj, PropName), Result);
> end;
> end;
> procedure StringToProperty(s: string; obj: TPersistent; PropName: string);
> var IdentToInt: TIdentToInt;
> i: Integer;
> begin
> if PropType(obj, PropName)=tkInteger then begin
> IdentToInt:= FindIdentToInt(GetPropInfo(obj, PropName).PropType^);
> if Assigned(IdentToInt) and IdentToInt(s, i) then begin
> SetPropValue(obj, PropName, i);
> end else begin
> SetPropValue(obj, PropName, s);
> end;
> end else begin
> SetPropValue(obj, PropName, s);
> end;
> end;
> </code>
> Can somebody help me with porting this code to FPC/lazarus so it compiles
> and work?
Can you give the error you receive ?
Michael.
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
--
Who is not using the Fox Of Fire is not surfing the web, he is suffering it
Registerd Linux User # 389298
