Скачать: CL | DM;

Почему в 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");

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c