3. Undeclared identifier: 'Label1'

Pôvodný zdrojový kód

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i, poc: integer;
ret: string;
begin
ret:= Edit1.Text;
poc:= 0;

for i:= 1 to length(ret) do
if (ret[i]>='a') and (ret[i]<='z') then inc(poc);

Label1.Caption:= 'Pocet malych pismen: ' + IntToStr(poc);
end;

{

[Error] Unit1.pas(37): Undeclared identifier: 'Label1'
--------------------------------------------------------------------------------

Prekladač nepozná identifikátor Label1.

PREČO?

Na formulári nie je komponent s týmto názvom.

RIEŠENIE

Komponent Label umiestnime na formulár. V našom prípade žiadny iný Label
na formulári nie je, automaticky sa preto zvolí meno Label1.

Upravený zdrojový kód

--------------------------------------------------------------------------------

}
end.

Stiahnuť vzorový príklad (zdrojové kódy v Delphi)