Вниз
Скачать: 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 вся ветка

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



Память: 0.47 MB
Время: 0.023 c
15-1144929104
VID
2006-04-13 15:51
2006.05.07
Дебаггер в дельфи перестал реагировать на нажатия F7, F8, F9 и тд


15-1144955727
Yozh_Programmer
2006-04-13 23:15
2006.05.07
Проблема с телевизором Toshiba


2-1145261109
d_oleg
2006-04-17 12:05
2006.05.07
функции в dll


15-1145053611
Gero
2006-04-15 02:26
2006.05.07
Закон


3-1142418337
Данияр
2006-03-15 13:25
2006.05.07
Отмена удаления записи в OnBeforeDelete




   Наверх