5. Undeclared identifier: 'Edit1'

Pôvodný zdrojový kód

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
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(31): Undeclared identifier: 'Edit1'
--------------------------------------------------------------------------------

Prekladač nepozná identifikátor Edit1.

PREČO?

Ale na formulári je komponent Edit.

Programátor vymazal namiesto vlastnosti Text vlastnosť Name.
Komponent tak zostal bez mena, nie je ani v definícii triedy TForm1.

RIEŠENIE

Do vlastnosti Name príslušeného komponentu Edit napíšeme správne meno,
v našom prípade Edit1.

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

}
end.

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