On Thu, 22 Sep 2005 16:52:18 +0200
Bogusław Brandys <[EMAIL PROTECTED]> wrote:
> Hi,
>
>
> I'm trying to compile REMObject pascal script under FPC + Lazarus (for
> GUI classes)
> I encounter strange problem.
I encounter strange code :-P.
>
> type
> TMyRunLine = procedure(Self: TPSExec);
Using "Self" as parameter name ? Self is a keyword, this is a bad idea.
> function GetRunLine(FOnRunLine: TPSOnLineEvent; meth: TPSRunLine):
> TMyRunLine;
> begin
> OutputdebugString('Inside GetrunLine');
> if (TMethod(Meth).Code = @TPSExec.RunLine) and (@FOnRunLine = nil) then
> Result := nil
> else
> Result := TMethod(Meth).Code;
> end;
>
> (..)
>
> var
> FOnrunLine : TMyRunLine;
> begin
> CallRunLine := GetRunLine(FOnRunLine,Self.RunLine);
FOnRunLine is not initialized, you're passing garbage.
Micha
> repeat
> FStatus := isRunning;
> // Cmd := InvalidVal;
> while FStatus = isRunning do
> begin
> if @CallRunLine <> nil then CallRunLine(Self);
> if FCurrentPosition >= FDataLength then
> begin
> CMD_Err(erOutOfRange); // Error
> break;
> end;
> // if cmd <> invalidval then ProfilerExitProc(Cmd+1);
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
