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

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

escape sequences in Delphi and C++Builder???


Serge ©   (2004-12-17 14:14:00) 

День добрый, господа!
Возник такой вопрос - надо перевести часть кода с Delphi на C++Builder и застопорился на такой проблемме - не могу перевести этот код
Memo1.Lines.Add(#27#69'Cod Fiscal:   123456'#27#70); - то есть не знаю как в С++ записать escape последовательность вместе с остальным текстом (он посылается напрямую в ЛПТ порт)
Помогите пожалуйста кто сталкивался.
Спасибо заранее.


serge   (2004-12-17 17:13:00) [1]

Я уже пробовал так но к сожалению ничего толкового не выходит
Memo1->Lines->Add("\0x1B\0x45Cod Fiscal: ... ") - абсолютно ничего не добавляет, будь он неладен энтот билдер :(
Попытался выйти из ситуации так:

AnsiString chr_(char fch, char sch=0)
{
AnsiString as;
char esc=27;
as = AnsiString(esc) + AnsiString(fch) + AnsiString(sch);
return as;
};

char esc=27, bold=69, _bold=70;

Memo1->Lines->Add(chr_(bold) + "пробный" +chr_(_bold)+" текст")- облом

А так вот работает
Memo1->Lines->Add(AnsiString(esc) + AnsiString(bold)+ "пробный" +AnsiString(esc)+AnsiString(-bold)+" текст")

Ну да ладно, не буду раздувать ветку, бо здесь не С++ форум.


palva   (2004-12-17 15:57:00) [2]

Коды надо перевести в 16 с.с. (27=1B, 69=45 и т. д.) а потом записать текстовую константу в виде:
"\0x1B\0x45Cod Fiscal: ... "


serge   (2004-12-17 15:17:00) [3]

Неужели никто не знает ? :(


Наверх

Титульная страница Поиск, карта сайта Написать письмо