Из книги по Delphi 6. был взят пример:
- Код: Выделить всё
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
var
n : integer; // число
r : integer; // остаток от деления n на 10
tex : string[10]; // формируемый поясняющий текст
begin
if Key = chr([color=#FF0000]VK_RETURN[/color]) then
begin
n := StrToInt(Edit1.Text);
if n > 100
Then n:=n mod 100;
if ( n >= 11) and ( n <= 14)
then
tex:='рублей'
else
begin
r:= n mod 10;
case r of
1: tex:='рубль';
2..4: tex:='рубля';
else tex:='рублей';
end;
end;
Label2.Caption:= IntToStr(n)+ tex;
end;
end;
Но он несобирается. Ошибка unit1.pas(42,31) Error: Identifier not found "VK_RETURN"
Подскажите пожалуйста что не так.
