Functions-Problem

[Christian Seehase]

Moin Zusammen,

dann will ich auch mal

Delphi-Quellcode:

function RemoveChar(const AsValue : string;const AcToRemove : Char) : string;

var
  iFrom : integer;
  iTo   : Integer;

begin
  SetLength(Result,Length(AsValue));
  iTo := 0;
  for iFrom := 1 to Length(AsValue) do begin
    if AsValue[iFrom] <> AcToRemove then begin
      Inc(iTo);
      Result[iTo] := AsValue[iFrom];
    end;
  end;
  SetLength(Result,iTo);
end;