Перевод каретки и строки #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]

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

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]

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

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