Текст

← →
pvb (2004-05-14 19:42) [0]

Тут такая беда. Я открываю файл assign"ом для записи. Записовую русский и английский текст. Как понимаю он толкает всё в юникоде. При дебаге работает нормаль, но после билда половина русского текста пропадает.
Я использую Delphi 8.

← →
KilkennyCat © (2004-05-14 20:08) [1]

assign"ом не открывают. он лишь сопостовляет имя файла с файловой переменной. Приведите код записи в файл, чтения и дальнейшего вывода.

← →
pvb87 (2004-05-14 21:06) [2]

Хорошо assign в сочетание с rewrite.

← →
Goida © (2004-05-14 22:37) [3]

Лучше приведи часть кода, где ты открываешь файл, записываешь в него данные и, конечно, типы всех переменных. А по тому, что ты сказал можно только гадать на кофейной гуще, в чем у тебя проблема.

← →
pvb (2004-05-15 08:34) [4]

Подобие находится в моем Unit"е

Procedure X(Const S:String); var F:TextFile; Begin assign(F,"output.txt"); rewrite(F); Writeln(F,"English text"); Writeln(F,"English text"); Writeln(F,"English text"); Writeln(F,S);{Этот текст не пропадает} Writeln(F,"English text"); Writeln(F,"X Какой-то другой текст который пропадает X"); Writeln(F,"English text"); close(F); end;

← →
KilkennyCat © (2004-05-15 15:24) [5]

Замечательно. Хотя, если так, то лучше использовать append.
Вопрос: пропадает - как Вы это узнаете? смотрите сторонним редактором, или уже в своей проге? если второе - код чтения где?

← →
pvb (2004-05-16 11:27) [6]

Я смотрю и блокнотом и Dos Navigator"ом.

← →
Anatoly Podgoretsky © (2004-05-16 11:45) [7]

Настрой блокнот

pvb

если у тя не консольное приложение , то нады не assign a assignfile

второе , я бы писал не textfile , а просто text.

если будешь использовать text , то объявляй переменную типа текст не в локальных а в глобальных иначе не скомпилит(delphi7)

> Как понимаю он толкает всё в юникоде

> Я смотрю и блокнотом и Dos Navigator"ом.

Посмотри точно в какой он толкает кодировке

> Writeln(F,"X Какой-то другой текст который пропадает X");

Напиши этот текст в дос-кодировке тем же DN

← →
pvb (2004-05-20 10:55) [10]

От этой строки остается только "X X"

Текст Найти похожие ветки