Foros Club Delphi - Automatizar funcion del ReplaceDialog

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Automatizar funcion del ReplaceDialog (https://www.clubdelphi.com/foros/showthread.php?t=67756)

Automatizar funcion del ReplaceDialog

Hola

sucede que tengo que realizar reemplazos en un campo de una tabla de una base de datos, el problema es que esta BD ya tiene muchos datos e ir manualmente uno por uno seria acabar en 2012. Me surgio la siquiente idea usar un while hasta el EoF e ir realizando los cambios, ahora bien siempre he usado el ReplaceDialog y no se como hacerlo yo directamente y el problema esta en que cada ves que se pase de un registro a otro tedria que ejecutar el ReplaceDialog, si alguien conoce una forma de hacerlo sin tener que ejecutarlo estare muy agradecido

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();



         }

}