ReplaceDialog - użycie

[Cyfrowy Baron]

Fakt! Za szybko pisałem kod. Poprawiam:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

String ReplaceContext(String Text, String FindText, String ReplaceText)
{
 String Result;
 int x = Text.Pos(FindText);
 
 if(x <= 0) return Text;

 Result = Text.Delete(x, FindText.Length());
 Result = Result.Insert(ReplaceText, x);

 return Result;
}

[polymorphism]

No, teraz OK. Choć Twój kod nie przewiduje wariantu, gdzie w stringu jest kilka wystąpień szukanego tekstu:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

int x;

if(FindText == ReplaceText)return Text;

Result = Text;

while(x = Result.Pos(FindText))
{
        Result = Result.Delete(x, FindText.Length()).Insert(ReplaceText, x);
}

return Result;

Minusem tego kodu jest to, że string jest przeszukiwany od początku co iterację, no ale niestety, taki "wspaniały" jest ten VCL-owy string (do tego dochodzi jeszcze brak metody replace).

[Cyfrowy Baron]

Można to znacznie uprościć:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

String ReplaceContext(String Text, String FindText, String ReplaceText)
{
 String Result;
 int x = Text.Pos(FindText);
 
 if(x <= 0) return Text;

 Result = StringReplace(Text, FindText, ReplaceText, TReplaceFlags() << rfReplaceAll);

 return Result;
}

[Cyfrowy Baron]

Po namyśle.
Sprawdzanie czy łańcuch znaków zawiera poszukiwany tekst jest zbędne, gdyż funkcja StringReplace już to robi, wystarczy wiec:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

String ReplaceContext(String Text, String FindText, String ReplaceText)
{
 return StringReplace(Text, FindText, ReplaceText, TReplaceFlags() << rfReplaceAll);
}

[polymorphism]

Można to znacznie uprościć:

No tak, pisałem już o tym, to znaczy o tej funkcji, wcześniej. Odnosiłem się do Twojego kodu.

[Cyfrowy Baron]

Rzeczywiście! Wcześniej umknęło mi to.

[Pitek]

Niezmiernie wam Panowie DZIĘKUJĘ! Za pomoc a co ważne za zrozumienie . Jeszcze się uczę i dużo przede mną dlatego bardzo sobie cenię przykłady z opisem. Staram się z nich wyciągnąć jak najwięcej, analizując je.

Jeszcze raz wielkie DZIĘKI!

Mam jeszcze taki mały problem z tym kodem otóż gdy wyszukuje tekst np. warszawa bez uwzględniania wielkości liter a w tabeli jest jako Warszawa to owszem wyszukuje ten tekst (ponieważ podświetla komórki w których się on znajduje), jednak nie zamienia ich na podany tekst.

[Cyfrowy Baron]

Z którym kodem dokładnie masz ten problem?!

[Pitek]

Szczerze mówiąc to właśnie nie wiem który kod mógłby generować ten problem ale sądząc po zachowaniu programu myślę że jest to ten który zamienia tekst czyli ReplaceContext jednak może być zupełnie inaczej, kod którego użyłem:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

int CompareContext(String Str1, String Str2, bool MatchCase)
{
  if(MatchCase == false)
  {
    Str1 = Str1.LowerCase();
    Str2 = Str2.LowerCase();
  }

  int x = Str1.Pos(Str2);

  if(x > 0) return 0;

  return 1;
}
//---------------------------------------------------------------------------

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

String ReplaceContext(String Text, String FindText, String ReplaceText)
{
 return StringReplace(Text, FindText, ReplaceText, TReplaceFlags() << rfReplaceAll);
}

a używam :

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

int compare;
  if(ReplaceDialog1->Options.Contains(frMatchCase))
  {
   compare = CompareContext(StringGrid1->Cells[col][row], ReplaceDialog1->FindText, true);
  }

  if(!ReplaceDialog1->Options.Contains(frMatchCase))
  {
   compare = CompareContext(StringGrid1->Cells[col][row], ReplaceDialog1->FindText, false);
  }

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

if(compare == 0)
  {
   StringGrid1->Cells[col][row] = ReplaceContext(StringGrid1->Cells[col][row],
        ReplaceDialog1->FindText,
        ReplaceDialog1->ReplaceText);
   StringGrid1->Col = col;
   StringGrid1->Row = row;
   next = false;
  }

[Cyfrowy Baron]

Po pierwsze funkcja Pos nie uwzględnia wielkości liter, dlatego trzeba poprawić funkcję CompareContext:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

int CompareContext(String Str1, String Str2, bool MatchCase)
{
  if(!MatchCase)
  {
    Str1 = Str1.LowerCase();
    Str2 = Str2.LowerCase();
  }

  int x = Str1.Pos(Str2);
  String tmp = Str1.SubString(x, Str2.Length());

  if(CompareStr(tmp, Str2) != 0) return 1;

  if(x > 0) return 0;

  return 1;
}

Po drugie funkcja StringReplace uwzględnia wielkość liter dlatego trzeba również poprawić funkcję ReplaceContext:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

String ReplaceContext(String Text, String FindText, String ReplaceText, bool MatchCase)
{
  if(!MatchCase)
  {
    Text        = Text.LowerCase();
    FindText    = FindText.LowerCase();
    ReplaceText = ReplaceText.LowerCase();
  }

  return StringReplace(Text, FindText, ReplaceText, TReplaceFlags() << rfReplaceAll);
}

Wywołanie funkcji:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

  int compare;
  if( ReplaceDialog1->Options.Contains(frMatchCase) )
   compare = CompareContext(StringGrid1->Cells[col][row],
                            ReplaceDialog1->FindText, true);

  if( !ReplaceDialog1->Options.Contains(frMatchCase) )
   compare = CompareContext(StringGrid1->Cells[col][row],
                            ReplaceDialog1->FindText, false);

  if( compare == 0 )
  {
   StringGrid1->Cells[col][row] = ReplaceContext(StringGrid1->Cells[col][row],
                                                ReplaceDialog1->FindText,
                                                ReplaceDialog1->ReplaceText,
                                                ReplaceDialog1->Options.Contains(frMatchCase));

   StringGrid1->Col = col;
   StringGrid1->Row = row;
   next = false;
  }

Poza tym zmienne statyczne:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 static int col = -1, row = 0;

zamieniłbym na zmienne prywatne:

Plik nagłówkowy np. Unit.h

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

private:
        int col, row;

W zdarzeniu OnShow dla ReplaceDialog1 zerowałbym te zmienne:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::ReplaceDialog1Show(TObject *Sender)
{
 col = -1, row = 0;
}

do zdarzenia OnReplace dla ReplaceDialog1 dodałbym kod zerujący wyszukiwanie, gdy zmianie ulegnie wyszukiwany tekst w oknie dialogowym, czyli to zdarzenie mogłoby wyglądać tak:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::ReplaceDialog1Replace(TObject *Sender)
{
 static String changeText = "";
 String tmpChangeText = ReplaceDialog1->FindText;

 if(CompareStr(changeText, tmpChangeText) != 0)
 {
  changeText = tmpChangeText;
  col = -1;
  row = 0;
 }

 bool next = true;
 while(next)
 {
  if(col < 9)
  {
   ++col;
  }
  else
  {
   col = 0;
   ++row;

   if(row > 9) row = 0;
  }

  int compare;
  if( ReplaceDialog1->Options.Contains(frMatchCase) )
   //compare = CompareStr( StringGrid1->Cells[col][row], ReplaceDialog1->FindText);
   compare = CompareContext(StringGrid1->Cells[col][row],
                            ReplaceDialog1->FindText, true);

  if( !ReplaceDialog1->Options.Contains(frMatchCase) )
   //compare = CompareText(StringGrid1->Cells[col][row], ReplaceDialog1->FindText);
   compare = CompareContext(StringGrid1->Cells[col][row],
                            ReplaceDialog1->FindText, false);

  if( compare == 0 )
  {
   StringGrid1->Cells[col][row] = ReplaceContext(StringGrid1->Cells[col][row],
                                                ReplaceDialog1->FindText,
                                                ReplaceDialog1->ReplaceText,
                                                ReplaceDialog1->Options.Contains(frMatchCase));

   StringGrid1->Col = col;
   StringGrid1->Row = row;
   next = false;
  }
  else
  {
   next  = true;
   if(col >= 9 && row >= 9)
   {
    col = 0;
    row = 0;
    return;
   }
  }
 }
}

[Pitek]

Bardzo dziękuję!!!

[polymorphism]

Po drugie funkcja StringReplace uwzględnia wielkość liter

Uwzględnia, ale nie musi - jest flaga rfIgnoreCase.

[Cyfrowy Baron]

Celna uwaga. Zupełnie o tym zapomniałem, to aż tak dużo nie zmienia, funkcja ReplaceContext może pozostać w takiej postaci jak podałem, może też być tak:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

String ReplaceContext(String Text, String FindText, String ReplaceText, bool MatchCase)
{
  if(!MatchCase)
     return StringReplace(Text, FindText, ReplaceText, TReplaceFlags() << rfReplaceAll << rfIgnoreCase);

  return StringReplace(Text, FindText, ReplaceText, TReplaceFlags() << rfReplaceAll);
}