Как объявить функцию Lenght

[Максим5]

Всем привет. Недавно начал изучение Delphi по книге и тут же столкнулся с проблемой. В книге дан пример простой программы Конвертер валют из доллара в рубли. Всё написал так как было в примере, но увы ничего не работает и выдаёт ошибку [dcc32 Error] Конвертер.pas(71): E2003 Undeclared identifier: 'Lenght'
вот сама процедура :

procedure TForm1.Edit1Change(Sender: TObject);

begin
  if (Lenght(Edit1.Text)=0) or (Lenght(Edit1.Text)=0)
  then Button1.Enabled:=False;
  else Button1.Enabled:=True;
end;

То же самое с DecimalSeparator

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin
case Key of
'0'..'9',#8:;
'.',',':
begin
  DecimalSeparator:=Key;
  if pos (DecimalSeparator,Edit1.Text)<>0 then Key:=#0;

end;
#13:= Edit2.SetFocus;
else Key:=#0;
end;
end;

[Аватар]

Просто правильно из книжки скопировать

[newerow1989]

Праильно пишется так: Length

[min@y™]

[dcc32 Error] Конвертер.pas(71): E2003 Undeclared identifier: 'Lenght'

не знал, что так можно. значит unicode. делаю вывод, что DecimalSeparator правильно пишется как FormatSettings.DecimalSeparator.

[Вадим Мошев]

begin
case Key of
'0'..'9',#8:;

А это что, тоже так было в книжке написано?

[Vapaamies]

Я так сам иногда пишу, только точку с запятой на отдельной строчке ставлю, с отступом, -- чтобы было понятно, что это не опечатка, а фича.

[Алексей_2012]

если длина строки edit1.text = 0 ИЛИ, что самое прикольное - если длина строки edit1.text = 0, то кнопка - фалООс

[саша40]

Uses Windows, SysUtils;

Забыли?

[Alex11223]

function Lenght(const str: string): Integer;
begin
  Result := Length(str);
end;

[northener]

Сообщение от Alex11223

function Lenght(const str: string): Integer;
begin
  Result := Length(str);
end;

Вспоминается анекдот:
" - Вась, кинь мне топор.
- Кинул. Что молчишь? Поймал?"