Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.03 c
1-1092116702
Aldor_
2004-08-10 09:45
2004.08.22
Запускающий мое приложение bat-ник "виснет"


1-1091715250
arm79
2004-08-05 18:14
2004.08.22
Проблемы с диспетчером памяти..?


1-1092106071
Марат
2004-08-10 06:47
2004.08.22
Перенос label


6-1087211397
Ivan K
2004-06-14 15:09
2004.08.22
Recv и синхронный режим


6-1087400582
Vvedensk
2004-06-16 19:43
2004.08.22
Трасировка из дельфи





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский