Forum > Beginners

StaticText

(1/1)

gonzo_post:
Hi i have problem.
i write function that extract *.pod file but when i whant send text to StaticText.Caption i have error.


--- Code: ---Hint: Start of reading config file C:\lazarus\fpc\2.6.4\bin\i386-win32\fpc.cfg
Hint: End of reading config file C:\lazarus\fpc\2.6.4\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.6.4 [2014/06/14] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling C:\DOCUME~1\ADMINI~1\USTAWI~1\Temp\project1.lpr
Compiling unit1.pas
unit1.pas(47,14) Error: Identifier not found "StaticText3"
unit1.pas(76) Fatal: There were 1 errors compiling module, stopping

--- End code ---

Da code:

--- Code: ---unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    ExitItem: TMenuItem;
    OpenDialog1: TOpenDialog;
    OpenItem: TMenuItem;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    procedure ExitItemClick(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure OpenItemClick(Sender: TObject);
    procedure StaticText1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    var filename : string;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

function PODExtract (filename:string) : string;
begin
  StaticText3.Caption := 'TEST'; //ERROR
end;

[..]

procedure TForm1.OpenItemClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    filename := OpenDialog1.Filename;
    StaticText3.Caption := filename; //WORK HERE
  end;
end;

end. 
--- End code ---

taazz:
statictext3 is part of TForm1 you can't access it outside the form with out referencing the form it self try changing your function to something like.

--- Code: ---function PODExtract (filename:string; aControl:TStaticText) : string;
begin
  StaticText3.Caption := 'TEST'; //ERROR
end;

--- End code ---
or even better add the function as a method of the form eg

--- Code: ---  TForm1 = class(TForm)
  ......
  private
    { private declarations }
  public
    { public declarations }
    var filename : string;
    function PODExtract (filename:string) : string;
  end;

......
implementation
function TForm1.PODExtract (filename:string) : string;
begin
  StaticText3.Caption := 'TEST'; //ERROR
end;
......

--- End code ---

Leledumbo:
See class scope here: http://www.freepascal.org/docs-html/ref/refse99.html

Navigation

[0] Message Index