internetfähigen Namen erstellen

[torud]

Hallo und vielen Dank für die vielen Einsprüche und Hinweise!

Meine Funtktion sieht nun so aus und funktioniert auch bisher einwandfrei:

Delphi-Quellcode:

function MakePicName(OldPicName:string):String;
begin
  Result:='';
    with Form1 do
      begin
        if chk_names_safety.Checked then
          begin
            OldPicName := StringReplace (OldPicName,'&','_',[rfReplaceAll,rfIgnoreCase]) ;
            OldPicName := StringReplace (OldPicName,'-','_',[rfReplaceAll,rfIgnoreCase]) ;
            OldPicName := StringReplace (OldPicName,'(','_',[rfReplaceAll,rfIgnoreCase]) ;
            OldPicName := StringReplace (OldPicName,')','_',[rfReplaceAll,rfIgnoreCase]) ;
            OldPicName := StringReplace (OldPicName,'[','_',[rfReplaceAll,rfIgnoreCase]) ;
            OldPicName := StringReplace (OldPicName,']','_',[rfReplaceAll,rfIgnoreCase]) ;
            OldPicName := StringReplace (OldPicName,'ä','ae',[rfReplaceAll,rfIgnoreCase]) ;
            OldPicName := StringReplace (OldPicName,'ö','oe',[rfReplaceAll,rfIgnoreCase]) ;
            OldPicName := StringReplace (OldPicName,'ü','ue',[rfReplaceAll,rfIgnoreCase]) ;
            OldPicName := StringReplace (OldPicName,'Ä','AE',[rfReplaceAll,rfIgnoreCase]) ;
            OldPicName := StringReplace (OldPicName,'Ö','OE',[rfReplaceAll,rfIgnoreCase]) ;
            OldPicName := StringReplace (OldPicName,'Ü','UE',[rfReplaceAll,rfIgnoreCase]) ;
            OldPicName := StringReplace (OldPicName,'ß','ss',[rfReplaceAll,rfIgnoreCase]) ;
          end;
        if chk_names_spaces.Checked then
          begin
            OldPicName := StringReplace (OldPicName,' ','_',[rfReplaceAll,rfIgnoreCase]) ;
            Result:=OldPicName;
          end;
      end;
      Result:=OldPicName;
end;

Wie Ihr seht, habe ich den BildNamen selbst immer wieder und weiter übergeben und dann dem Result zugeführt, aber das ist ja Kleinkrümelei! Auf jeden Fall bin ich wieder mal schlauer.