Error: Undeclared identifier

2. Undeclared identifier: 'lenght'

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;
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 lenght(ret) do
if (ret[i]>='a') and (ret[i]<='z') then inc(poc);

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

{

[Error] Unit1.pas(35): Undeclared identifier: 'lenght'
--------------------------------------------------------------------------------

Prekladač nepozná identifikátor lenght.

PREČO?

V zápise mena funkcie sme urobili preklep.

RIEŠENIE

Preklep opravíme.

Upravený zdrojový kód

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

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;

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

}
end.


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