Program jest zadaniem książkowym i coś mi nie działa. Cały czas wyświetla że nie ma identyfikatora Label1.
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Test2;
private
public
end;
var
Form1: TForm1;
implementation
procedure Test2;
begin
Label1.caption:='Teraz jest cieplo';
end;
{$R *.lfm}
function Mnozenie(Liczba1, Liczba2 :integer):integer;
begin
Result:=Liczba1*Liczba2;
end;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.caption:= Inttostr(Mnozenie(20,20));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
MessageDlg('Witaj',mtInformation,[mbOk],0);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Test2;
end;
end.