защита от дурака

[phasha]

не могу сообразить как переделать чтоб работало((
нужно удвоенное число как доказательство что защита работает и переводит в целые числа
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 var n:string;i:Integer;
begin
  Readln(n);
  for i:=1 to length(n)  do begin
  if n[i] = ['0'..'9']   then

     StrToInt(n);
  end;
  Writeln(n*2);
end.

[Alex11223]

Не понял, что вы хотите сделать. Может быть (раз тут есть цикл) вам надо сохранить все числа, найденные в этой строке, в другую строку (ну или удалить не числа в этой) и уже ее переводить?

StrToInt(n);

Никуда не возвращает результат.

[JUDAS]

program Project2;
 {$APPTYPE CONSOLE}
uses
 SysUtils;

 var n:string;
       i:Integer;
 begin
  Readln(n);
  if TryStrToInt(n,i) then
  Writeln(i*2);
 end.

[phasha]

ого)не знал что так можно))спасибо огромное!

[Serge_Bliznykov]

JUDAS, отличный пример!

phasha
а ещё можно воспользовать классической процедурой VAL:

var n:string;
    i,k:Integer;
 begin
  Readln(n);
  Val(n, i, k);
  if k=0 then
    Writeln(i*2)
  else WriteLn('error in position ',k);
  Readln
 end.

ДОБАВЛЕНО через несколько минут...

блиин... заглянул я в исходники функции TryStrToInt
догадываетесь, что я там увидел?!

function TryStrToInt(const S: string; out Value: Integer): Boolean;
var
  E: Integer;
begin
  Val(S, Value, E);
  Result := E = 0;
end;

комментарии, как говорится, излишни....

[phasha]

мда))одно из другого выходит...а эффект один грубо говоря=)