Текущий архив: 2006.05.07;
Скачать: CL | DM;
Вниз
Проблема с записью в файл. Найти похожие ветки
← →
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]MBo © (20.04.06 10:56) [1]
До просветления
← →
MBo © (2006-04-20 12:48) [9]В текстовом файле никаких позиций нет.
← →
AbrosimovA © (2006-04-20 12:49) [10]Вот пример работы с текстовыми файлами через 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;
← →
kilkennyCat © (2006-04-20 12:52) [11]var f:textfile
если так объявляете, то работайте как сказано в [2].
если нужна другая работа, не объявляете var f:textfile
Страницы: 1 вся ветка
Текущий архив: 2006.05.07;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.017 c
