Текущий архив: 2004.08.22;
Скачать: CL | DM;

Вниз

Перевод каретки и строки #13#10 (0D/0A)   Найти похожие ветки 

← →
sdw_syscoder   (2004-08-09 18:34) [0]

Добрый вечер уважаемые мастера! Нужна ваша помощь. Есть строка с управляющими символами #13#10 в DOS-кодировке. Наблюдается следующая картина: при выводе строки в Memo она не разбивается на строки, а выводит палку ( | ), а RichEdit и через ShowMessage всё нормально! А теперь деляю так: перекодирую из DOS в Win-кодировку и теперь картина рисуется уже другая: в Memo опять так же, но по русски, ShowMessage обрабатывает как положено, а вот RichEdit выводит exception - EOutOfResoures (RichEdit line nsertion error), но на строки делит. ???? Обёясните чё такое и как быть.

ЗЫ: ...Ну блин и написа-а-а-ал... Зато я думаю все поняли.

---

← →
Мастер ©   (2004-08-09 18:38) [1]

>sdw_syscoder   (09.08.04 18:34)

А код?

---

← →
sdw_syscoder   (2004-08-09 18:51) [2]

> Мастер ©   (09.08.04 18:38) [1]

Вот:
var
 s:string;
begin
 StrFM := DosToWin(S);
 ShowMessage(StrFM);
 Memo1.Lines.Add(StrFM);
 RichEdit1.Lines.Add(StrFM);
end;

function DosToWin(const s : string) : string;
var dest : string;
begin
setLength(dest, length(s)+1);
windows.OemToAnsi(@s[1], @dest[1]);
Result:=dest;
exit;
end;

---

← →
Мастер ©   (2004-08-09 18:52) [3]

>sdw_syscoder   (09.08.04 18:51) [2]

Memo1.Lines.Text := MyStr;

---

← →
sdw_syscoder   (2004-08-09 19:04) [4]

Вот фигня-то какая простая оказалась! Благодарю!

---

← →
Fay ©   (2004-08-09 19:08) [5]

2 sdw_syscoder   (09.08.04 18:51) [2]
Если не секрет, зачем Вам var dest : string;?

---

← →
sdw_syscoder   (2004-08-09 19:29) [6]

> Fay ©   (09.08.04 19:08) [5]

Да я как-то и незадумывался, выдрал где-то, закомпилил - вроде работает, а как она там работает, разбираться некогда.

---

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

Текущий архив: 2004.08.22;
Скачать: CL | DM;

Наверх

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