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