| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запись в текстовый файл [D6, Win2k, WinXP]

Максим ©   (2005-11-04 13:04:00) 

При записи строк в файл с помощью 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-05 11:51:00) [1]

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

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

---

Fay   (2005-11-05 04:11:00) [2]

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

---

Fay   (2005-11-05 04:10:00) [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.
Я ваще никак не смог добиться такой же проблемы, как у афтара

---

wp2   (2005-11-04 21:33:00) [4]

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

---

Anatoly Podgoretsky   (2005-11-04 14:55:00) [5]

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

---

Наверх