problem mit der function Pos (Delphi 7)

[twospirit]

Hallo,

ich habe ein Memo-Feld wo ein Text darin steht und ich kann in diesem Text stellen suchen und ersetzen.
Doch gibt mir die Pos-Funktion immer nur die 0 zurück, obwohl der Teilstring im String vorhanden ist.
Woran könnte es liegen?

Delphi-Quellcode:

procedure TForm1.btnsuchersetzClick(Sender: TObject);
var text,suche,ersetz:string;
    fund:integer;
begin
  text:=memo1.Text;
  suche:=edtsuche.Text;
  ersetz:=edtersetzen.Text;
  Repeat
    fund:= Pos(AnsiUpperCase(text),AnsiUpperCase(suche));
    If fund <> 0 Then
    Begin
    delete(text,fund,length(suche));
    insert(ersetz,text,fund);
    end;
  Until fund = 0;
  Memo1.Text:=text;
end;

MfG twoSpirit

[CCRDude]

Pos bekommt zuerst die Nadel, dann den Heuhafen... bei Dir siehts umgekehrt aus.

[stifflersmom]

Machs Dir doch einfacher und benutze

Delphi-Quellcode:

ReplaceString

Moin

[twospirit]

Danke euch beiden :)

Funktioniert jetzt, erst Nadel dann Heuhaufen :hello: