календарь, ... Опции

[Alpha7]

День добрый, господа !
Подскажите плз как из stringовой переменной перевести в integer.
Записи вида 1.номер 2.начальная работа (01.01.2004) string3.промежуточная работа (10 дней)integer считываются из файла, необходимо найти время следующей работы путем сложения п.1 и п.2.
Заранее сенх !

[klem4]

Пример перевода из String в Integer :

uses crt;
var
   s:string;
   x,ErrCode,result:integer;

Begin
   clrscr;
   write('s='); readln(s);
   val(s,x,ErrCode);
   if ErrCode=0 then begin
       Result:=x;
       writeln('Result=',Result);
   end
    else writeln('ErrCode=',ErrCode);
end.

зы если введешь скажем 23g42 то вернет ErrCode = 3 (символ в котором ошибка)

зыы если сам не разберешься, задание попонятней напиши а то я ваще ничо не понял, кроме того что что-то надо в integer перводить...

Сообщение отредактировано: klem4 - 18.06.2005 17:26