Проблема с записью в файл.

← →
Zaq123 © (2006-04-20 10:55) [0]

Братва, добрый день!
У меня такая проблема:

var f:textfile;
s:string;
f_handle:integer;
begin
...
f_handle:=fileopen("c:\1.txt",fmOpenWrite);
s:="12345";
filewrite(f_handle,s,10);
fileClose(f_handle)
...

При записи в файл получается какая то абракадабра.

← →
MBo © (2006-04-20 10:56) [1]

http://www.delphikingdom.ru/lyceum/seminar.asp?ID=2

← →
AbrosimovA © (2006-04-20 11:12) [2]

Вообще-то для текстовых файлов используют:
AssignFile
Rewrite или Append
Write
CloseFile

← →
Zaq123 © (2006-04-20 12:12) [3]

меня интересует именно эта функция - filewrite(f_handle,s,10);

← →
Zaq123 © (2006-04-20 12:14) [4]

при использовании (AssignFile,Rewrite, Write,CloseFile) я не могу использовать seek(f,n)

← →
grisme © (2006-04-20 12:31) [5]

Zaq123 © (20.04.06 12:14) [4]
Почему не можешь?

← →
Zaq123 © (2006-04-20 12:34) [6]

Братва, мне одно только надо: перемещать указатель в нужную позицию в текстовом файле. Кто знает, подскажите!!!???

← →
Zaq123 © (2006-04-20 12:35) [7]

Не могу, потому что она не работает

← →
Мефисто (2006-04-20 12:47) [8]

В текстовом файле никаких позиций нет.

Вот пример работы с текстовыми файлами через TMemoryStream:

procedure TForm1.Button1Click(Sender: TObject); var Stream,Stream2:TMemoryStream; a,b:integer; begin Stream:=TMemoryStream.Create; Stream2:=TMemoryStream.Create; Stream.LoadFromFile("1.txt"); a:=3; b:=6; Stream.Position:=0; Stream2.CopyFrom(Stream,a); Stream.Position:=b; Stream2.CopyFrom(Stream,Stream.Size-b); Stream.Free; Stream2.SaveToFile("2.txt"); Stream2.Free; end;

var f:textfile

если так объявляете, то работайте как сказано в [2].
если нужна другая работа, не объявляете var f:textfile

Проблема с записью в файл. Найти похожие ветки