internetfähigen Namen erstellen

[Bowler]

Delphi-Quellcode:

...
            Result := StringReplace (OldPicName,'&','_',[rfReplaceAll,rfIgnoreCase]) ;
            Result := StringReplace (OldPicName,'-','_',[rfReplaceAll,rfIgnoreCase]) ;
...

Ist hier nicht was falsch? IMHO dürfte nach diesen beiden Aufrufen nur das '-' ersetzt worden sein. Der erste Aufruf wird überschrieben. Man müsste das Ergebnis aus dem 1. Aufruf zwischenspeichern:

Delphi-Quellcode:

...
            OldPicName:= StringReplace (OldPicName,'&','_',[rfReplaceAll,rfIgnoreCase]) ;
            Result := StringReplace (OldPicName,'-','_',[rfReplaceAll,rfIgnoreCase]) ;
...

Gruß
Christian