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

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

← →
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]

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

---

← →
Iraizor ©   (2004-05-16 14:19) [8]

pvb

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

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

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

---

← →
GuAV ©   (2004-05-16 14:41) [9]

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


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

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

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

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

---

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

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

---

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

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



Память: 0.47 MB
Время: 0.021 c