Label wird nicht erkannt

[DL3AD]

Hallo,

ich habe da mal ein komisches Problem.

Code: Alles auswählen

unit Unit1;
{$mode objfpc}{$H+}
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
  { TForm1 }
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label_result: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  MyString: String;
  Ergebniss: String;
 
 
implementation
{$R *.lfm}
{ TForm1 }
 
procedure machmal();
begin
  MyString:= Mystring + 'und nun ?';
  Label_result.Caption:= MyString;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  MyString:= Edit1.Text;
  machmal;
//  Label_result.Caption:= MyString;
end;
 
end.                                                                     

in der procedure TForm1.Button1Click wird das Label Label_result erkannt aber nicht in der procedure machmal()
Es gibt einen Fehler "Identifier not found"

Was habe ich da falsch gemacht ?

Gruß Frank

[thaden]

Label_result gehört ja zu TForm1, ebenso die Prozedur TForm1.Button1Click - da ist das Label_result also persönlich bekannt.

Die Prozedur machmal hast du außerhalb von TForm1 deklariert, daher musst du sie mit Label_result erst bekannt machen - etwa indem du Form1.Label_result schreibst.

[DL3AD]

... Danke - hmm, ja klar, ist ja logisch