я загружаю текстовый файл в RichEdit. Текст имеет 2 кодировки, ДОС и ВИН; несколько строк в одной кодировке, а остальные в другой. Я из ВИН перекодирую в ДОС, но весь текст.
TStringList *dd = new TStringList();
char buf[1024];
dd->LoadFromFile("C:\\1.txt");
for(int i=0; i<dd->Count; i++)
{
OemToChar(dd->Strings .c_str(),buf);
RichEdit1->Font->Name="Courier New";
RichEdit1->Lines->Add(buf);
}
Не знаю как сделать для некоторой части текста перекодировку. Подскажите, плз, как сделасть весь текст кодировкой ДОС????

нет, текста не много, буквально 2 строки. Можно код в студию, плз. Как оно хоть будет выглядеть!!??

спасибо и на этом, а то даже и не знал с чего начать!!

Вначале у меня происходит преобразование всего текста в кодировку ДОС. Но некоторые слова в кодировке ВИН. Я отыскиваю слово, выделяю его! Как его тоже преобразовать в кодировку ДОС????

void __fastcall TForm1::Button1Click(TObject *Sender)
{
FindDialog1->Position=Point(RichEdit1->Left+RichEdit1->Width,RichEdit1->Top);
FindDialog1->FindText="T.+. =хьхўъшэра";
//FindDialog1->FindText="T.=. ¦рэvў" ;
FindDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FindDialog1Find(TObject *Sender)
{
Beep();
int FoundAt, StartPos, ToEnd;
if (RichEdit1->SelLength)
StartPos=RichEdit1->SelStart+RichEdit1->SelLength;
else
StartPos = 0;
ToEnd=RichEdit1->Text.Length()-StartPos;
FoundAt=RichEdit1->FindText(FindDialog1->FindText,StartPos,ToEnd,TSearchTypes()<<stMatchCase);
if (FoundAt!=-1)
{
RichEdit1->SetFocus();
RichEdit1->SelStart=FoundAt;
RichEdit1->SelLength=FindDialog1->FindText.Length();
}
// Меняю кодировку
RichEdit1->SelText=RichEdit1->Font->Charset<<OEM_CHARSET;

Вместо букв вообще цифры появляются, (пару раз получились каракули). Подскажите, плз, какую функцию использовать и как её приделать к последней строке!!???

киньте кусочек кода , плз!!! Не совсем пойму как обратно вернуть текст. Без последней строки слово находится и выделяется! Осталось только перекодировать. Подскажите как!!! RichEdit1->SelText ??????

В моём коде поиск слова осуществляется с помощью компонента FindDialog1. Как осуществить поиск слова без этого компонента, т.е. чтобы форма открылась, весь текст перекодировался!!???

Пишу так:
char bbuuff[20];
RichEdit1->SelText=OemToChar("T.+. =хьхўъшэра",bbuuff);
Вместо букв появляются цифры(единицы)!!???

Да, в принципе так, но теперь не отображаются инициалы. Здесь зашифровано ФИО А.А. Немечкина, а перекодирует не полностью, а имеено в результате T.+. =емечкина ????

Вроде правильно скопировал, из текстового файла!
1.Как осуществить поиск слов в тексте без компонента FindDialog?
2. У меня надо перекодировать 2 слова, а выделяет только одно. Писал так, может не правильно:
(FindDialog1->FindText="T.+. =хьхўъшэра") &&
(FindDialog1->FindText="T.=. ¦рэvў");
и в конце
(CharToOem("T.+. =хьхўъшэра",bbuuff)) &&(CharToOem("T.=. ¦рэvў",bbuuff));