вот сделал такой код
...
var f9:TFileStream;
...
f7:= 'строка' ;
StrPCopy(buf1,f7);
f9:= TFileStream.Create(Edit1.Text, fmOpenReadWrite, fmShareCompat);
f9.Write(buf1, 100);
закрытие файла при закрытии программы.
все время пока файл открыт в программе к нему нет доступа из других программ. может я что-то не так делаю?
|