freepascal.ru

Пытаюсь научится писать в среде Lazarus, простейшие программки.(уровень знаний 0)
Из книги по 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"
Подскажите пожалуйста что не так.

mtdu
VK_RETURN находится в модуле windows. Наверное Вы его подключить забыли.

Vadim писал(а):mtdu
VK_RETURN находится в модуле windows. Наверное Вы его подключить забыли.

Большое спасибо собралось.

mtdu
Если вы никакими функциями из модуля windows больше не пользуетесь замените его на LCLType.
Это будет соответствовать идеологиии Lazarus'а - кроссплатформеность

Mr.Smart писал(а):mtdu
Если вы никакими функциями из модуля windows больше не пользуетесь замените его на LCLType.
Это будет соответствовать идеологиии Lazarus'а - кроссплатформеность

Спасибо учту.