Почему в Win98 приложение работает, а в Win2000 выдает ошибку?

← →
Serious Sam (2004-04-07 19:00) [0]

Написал прогу, у меня работает нормально (Win98SE), а у друга (Win2000) выдает ошибку (че-то типа "is not integer value"). Листинг:
procedure TForm1.FormCreate(Sender: TObject);
begin
Left := Screen.Width;
assignfile(f,"c:\Мои документы\sot.spr");
{$I-}
append(f);
{$I+}
if IOResult<>0 then rewrite(f);
writeln(f,DateToStr(Date)+" "+TimeToStr(Time));
closefile(f);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
close;
end;

← →
Семен Сорокин © (2004-04-07 19:03) [1]

:))
Left := Screen.Width; <=> Application.ShowMainForm := false;
и вообще зачем здесь форма?
а ты уверен что путь верный:
assignfile(f,"c:\Мои документы\sot.spr");

есть ли права на запись в ХП?
DateToStr(Date)+" "+TimeToStr(Time) <=> DateTimeToStr(Now);
:))

Почему в Win98 приложение работает, а в Win2000 выдает ошибку? Найти похожие ветки