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

Запись в текстовый файл   Найти похожие ветки 

← →
Максим   (2005-11-04 13:04) [0]

При записи строк в файл с помощью Writeln(filename, "Line") у меня почему-то максимум записывается 256 символов. Как это исправить?

Подробности:

...
var myfile: textfile;
begin
AssignFile(myfile, "C:\Files\file.txt");
Rewrite(myfile);
Writeln(myfile, "Line");
CloseFile(myfile);
end;
...

---

← →
Anatoly Podgoretsky ©   (2005-11-04 14:55) [1]

Код правильный, но здесь записывается только 6 байт.

---

← →
wp2 ©   (2005-11-04 21:33) [2]

Попробуйте записывать не сразу, а по очереди.
Один раз 256, другой раз 256 и т.д.

---

← →
Fay ©   (2005-11-05 04:10) [3]

2 Максим   (04.11.05 13:04)
А так работает?

procedure TForm1.Button1Click(Sender : TObject);
var
 myfile : textfile;
 s : String;
 i : Integer;
begin
 SetLength(s, 1024);
 FillChar(s[1], 1025, "0");
 AssignFile(myfile, "C:\Test.txt");
 Rewrite(myfile);
 Writeln(myfile, s);
 CloseFile(myfile);
end;


P.S.
Я ваще никак не смог добиться такой же проблемы, как у афтара

---

← →
Fay ©   (2005-11-05 04:11) [4]

>> FillChar(s[1], 1025, "0");
Это я промахнулся 8)

---

← →
Anatoly Podgoretsky ©   (2005-11-05 11:51) [5]

Fay ©   (05.11.05 04:10) [3]
Я ваще никак не смог добиться такой же проблемы, как у афтара

Поскольку ее нет.

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.024 c