Hola, s eme ocurrio esta solucion, pero aun asi sigue dejando algunos sin reemplazar, alguna idea ???????
Código:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ProgressBar1->Show();
ProgressBar1->Min = 0;
ProgressBar1->Max = ADOQuery1->RecordCount;
ProgressBar1->Step = 1;
while (!ADOQuery1->Eof)
{
int SelPos = DBRichEdit1->Text.Pos(Edit1->Text);
if (SelPos > 0)
{
DBRichEdit1->SelStart = SelPos - 1;
DBRichEdit1->SelLength = Edit2->Text.Length();
DBRichEdit1->SelText = Edit2->Text;
}
ProgressBar1->Show();
ProgressBar1->StepIt();
if (ProgressBar1->Position == ProgressBar1->Max)
{
ProgressBar1->Position = 0;
ProgressBar1->Hide();
}
ADOQuery1->Next();
}
}
__________________
Nunca esta de más volver a ver la "Guia de Estilo" o "La Otra Guia de Estilo". Recuerda siempre usar los "Tags" para una mejor legibilidad de tu código.
Cuando miras fijamente al abismo, este te devuelve la mirada
oo______ooo_____ooo_ooooooo_____ooo____oooooo____ooooooo______oooo____ooo____oo_
oo______oooo___oooo_oo____oo__oo___oo__oo____oo__oo____oo___oo____oo__oooo___oo_
oo______oo_oo_oo_oo_oo____oo_oo_____oo_oo_____oo_oo____oo__oo______oo_oo_oo__oo_
oo______oo__ooo__oo_oooooo___ooooooooo_oo_____oo_ooooooo___oo______oo_oo__oo_oo_
oo______oo_______oo_oo_______oo_____oo_oo____oo__oo____oo___oo____oo__oo___oooo_
ooooooo_oo_______oo_oo_______oo_____oo_oooooo____oo_____oo____oooo____oo____ooo_
________________________________________________________________________________
|