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

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

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

sdw_syscoder ©   (2004-08-09 18:34:00) 

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

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

---

sdw_syscoder   (2004-08-09 19:29:00) [1]

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

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

---

Fay   (2004-08-09 19:08:00) [2]

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

---

sdw_syscoder   (2004-08-09 19:04:00) [3]

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

---

Мастер   (2004-08-09 18:52:00) [4]

>sdw_syscoder   (09.08.04 18:51) [2]

Memo1.Lines.Text := MyStr;

---

sdw_syscoder   (2004-08-09 18:51:00) [5]

> Мастер ©   (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:38:00) [6]

>sdw_syscoder   (09.08.04 18:34)

А код?

---

Наверх