meine StrCharRemove geht nich...

[a3rosol]

ich mal wieder
tja wie der titel sagt...

Delphi-Quellcode:

function StrCharRemove(wort: string; C: Char): string;
var
  H: Integer;
begin
  for H := 1 to Length(wort) do
    if wort[H] = C then
      StringReplace(wort, C, '', []);
      Inc(H);
end;

ein zeichen wird eingegeben,nach dem die funktion suchen soll
wenn das zeichen gefunden wird soll es mit '' (also mit leerem char) ersetzt werden
das problem ist: es löscht den kompletten string
ich hab das blöde gefühl dass es mit dem '' zu tun hat