программа работающая с дивайсом, получает некоторые данные и записывает в файл ( файл открывает , но не пишет ) . Для упрощения составил тестовую программу, где производится запись в файл ( под 7 64 работает ) . Не подскажете , как нужно под вин 10 записывать в файл ?
Код:
procedure tf1.writefile;
var
s1,s2,s3,s4:string;
h,m,s,msec:word;
begin
decodetime(now,h,m,s,msec);
append(rabfile);
write(rabfile,timetostr(now)+' '+ik1.text+' '+ik2.text+' --> '+inttostr(ik1.tag)+' '+chr(13)+chr(10));
end;
Админ: пользуемся тегами для оформлния кода!