delphi программа

[vbchristy46]

Написать программу, которая проверяет является ли введенная с клавиатуры строка целым числом.

пожалуйста помогите...

[Serge_Bliznykov]

Пусть в S исходная строка.
Тогда достаточно нескольких строчек кода:

  Val(S, N, k);
  if k=0 then ShowMessage('Целое число, равное ',N:1)
  else ShowMessage('В строке НЕ Целое число!!');

[vbchristy46]

мне выдаёт ошибку....

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,Windows,Messages;
  var
  S: string;
  N,k: integer;
begin

  { TODO -oUser -cConsole Main : Insert code here }
  write ('ââåäèòå ñèìâîëû');
  readln (S);
        Val(S, N, k);
  if k=0 then ShowMessage('Öåëîå ÷èñëî, ðàâíîå ',N:1)
  else ShowMessage(' ñòðîêå ÍÅ Öåëîå ÷èñëî!!');

end.

[Serge_Bliznykov]

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

мне выдаёт ошибку....

И правильно. Нельзя же смешивать виндузячьи и консольные команды...
Если пишете в консоли, тогда выводите через WriteLn:

program Project2;

{$APPTYPE CONSOLE}

uses SysUtils, Windows;

function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

var
  S: string;
  N,k: integer;
begin
  write (StrAnsiToOem('Введите строку: '));
  readln (S);
  Val(S, N, k);
  if k=0 then WriteLn(StrAnsiToOem('Целое число, равное '),N:1)
  else WriteLn(StrAnsiToOem('В строке НЕ Целое число!!'));
  Readln;
end.

[vbchristy46]

спасибо))))