Текущий архив: 2005.11.20;
Скачать: 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 вся ветка
Текущий архив: 2005.11.20;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.044 c
