Results 1 to 1 of 1

Thread: Internal error (20)

  1. #1
    Join Date
    Jan 2012
    Location
    United Kingdom
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Internal error (20)

    SOLVED using an alternative method.

    Hi,

    I am trying to write a function that will create and then return a TLABEL object - for use in easier label creation.

    This is the function:

    Simba Code:
    Function CreateLabel(Parent : TFORM; Top : Integer; Left : Integer; Caption : String) : TLABEL;
    var
      TmpLabel : TLABEL;
    begin
      TmpLabel := TLABEL.Create(Parent);
      TmpLabel.Top := Top;
      TmpLabel.Left := Left;
      TmpLabel.Caption := Caption;

      Result := TmpLabel;
    end;

    This is the error:

    Code:
    [Error] (156:63): Internal error (20) at line 155
    Compiling failed.
    This is the line that is causing the error (155):

    Simba Code:
    UsernameLabel = CreateLabel(FrmDesign, 60, 370, 'Username:');

    The UsernameLabel TLABEL is defined globally as follows:

    Simba Code:
    var
      // Labels
      UsernameLabel : TLabel;

    Any help would be much appreciated!
    Last edited by jSherz; 01-28-2012 at 03:23 PM. Reason: Cleaned up formatting.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •