Вниз
Скачать: 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.033 c
15-1144856995
ArtemESC
2006-04-12 19:49
2006.05.07
Настольгия...


11-1125947930
MemoMan
2005-09-05 23:18
2006.05.07
Как производить навигацию по тексту KolMemo?


2-1144847743
kernel
2006-04-12 17:15
2006.05.07
Console and RUS


15-1144876427
малдер
2006-04-13 01:13
2006.05.07
Отдам


2-1145250212
Barabashka
2006-04-17 09:03
2006.05.07
Метод Монте-Карло




   Наверх