помогите подправить, а не то мне кирдык!!Delphi7 OOP

Ответить
student1234
Сообщения: 9
Зарегистрирован: 05 янв 2008, 23:15

у меня задача ее суть даны данные, различных типов . string, integer, TdateTime и TAge (последний определен: TAge=0..2008)и их надо сохр, вывести и т.д.
написано не плохо все, но, при компиляции выдает ошибку:
[Error] UIsp.pas(232): Incompatible types: 'TAge' and 'TDateTime'
в процедуре ввода с клавиатуры, тут код выглядит след.образом:
...writeln('год');
readln(str);
FAge:=strtoDate(str);...

и
процедуре загрузки из файла:
result := GetStrValue(f,str);
if result then FAge := StrTodate(str);

И при этом ввод и загрузка времени типа TdateTime производится аналогично - только при помощи функции StrToTime, у которой синтаксис такой же. Описаны переменные обоих типов в программе одинаково.
Что делать помогите?!!!!!!!
airyashov
Сообщения: 441
Зарегистрирован: 02 ноя 2007, 10:31

все верно выдает компилятор, как TDateTime привести к TAge?
тут год только нужен и его перевести в integer
FAge:=strtoint(str);...
Ответить