Websichere Dateinamen?

[mleyen]

schnell runtergetippt:

Delphi-Quellcode:

function GibMirNenWebsicherenDateinamenZurueck(const S: string): string;
var
  aChr: Char;
  insetIndex: Integer;
  LastSignChanged: Boolean;
begin
  SetLength(Result, length(S));
  insetIndex := 1;
  LastSignChanged := false;
  for aChr in S do
  begin
    if (aChr in ['a'..'z']) or
       (aChr in ['0'..'9']) or
       (aChr in ['A'..'Z']) then
    begin
      LastSignChanged := false;
      Result[insetIndex] := LowerCase(aChr)[1]
    end
    else
      if LastSignChanged then
        Continue
      else
      begin
        Result[insetIndex] := '_';
        LastSignChanged := true
      end;
    inc(insetIndex);
  end;
  SetLength(Result, insetIndex-1);
end;