In einem Feld suchen

[Nisbo]

auch vielen dan an eure hilfe hier, fuchste mich so langsam ein
habe es aber bereits gelöst

Delphi-Quellcode:

      // Session-Hash-Erkennung
      istdrinn  := 'Nein';
      istdrinn2 := 'Nein';
      if CheckBox2.checked = true then
         begin
              Memo2.caption :=  StringReplace(Memo2.caption,'?sid=',wbbart,[rfReplaceAll, rfIgnoreCase]);
              Memo2.caption :=  StringReplace(Memo2.caption,'&sid=',wbbart2,[rfReplaceAll, rfIgnoreCase]);
              
              istdrinn  := 'Nein';
              istdrinn2 := 'Nein';

              If Pos(wbbart, Memo2.caption) > 0 then istdrinn  := 'Ja';
              If Pos(wbbart2,Memo2.caption) > 0 then istdrinn  := 'Ja';
              If Pos('?',Edit3.caption)     > 0 then istdrinn2 := 'Ja';

              if istdrinn = 'Nein' then
              begin
                   if istdrinn2 = 'Ja'
                      then   Memo2.caption :=  StringReplace(Memo2.caption,'PLATZHALTER',wbbart2,[rfReplaceAll, rfIgnoreCase])
                      else   Memo2.caption :=  StringReplace(Memo2.caption,'PLATZHALTER',wbbart ,[rfReplaceAll, rfIgnoreCase])
              end;
         end;

     // Platzhalter wieder entfernen
     Memo2.caption :=  StringReplace(Memo2.caption,'PLATZHALTER','',[rfReplaceAll, rfIgnoreCase])

ist vielleich tnicht das sauberste aber es funktioniert