fjerne et tegn i string

Hvis du har Delphi 6+, så bruger du RTL funktionen 'StringReplace':


var
  glTxt, nyTxt  : string;
  options      : TReplaceFlags;

begin
  glTxt  := 'Her er den gamle tekst';
  options := [rfReplaceAll, rfIgnoreCase];
  nyTxt  := StringReplace(glTxt, 'G', 'v', options);
end;

Så skulle 'nyTxt' gerne være: 'Her er den vamle tekst'

kan du lave det til en funktion?

Det er sgu da en funktion! ;-)

nyTxt:=  StringReplace(glTxt, 'G', 'v', [rfReplaceAll, rfIgnoreCase]);

Eller er det noget a la det her du søger:

function SoegOgErstat (sGlTxt, sSoeg, sErstat : string) : string;
var
  nPos, nSoeg : integer;
begin
  nPos := Pos(sSoeg, sStr) ;
  nSoeg := Length(sSoeg) ;
  while (nPos > 0) do begin
    Delete(sStr, nPos, nSoeg) ;
    Insert(sErstat, sStr, nPos) ;
    nPos := Pos(sSoeg, sStr) ;
  end;
  Result := sStr;
end;

jaaa sq :-)