Hallo!
Nur um nochmal sicher zu gehen, würde ich gern von checken lassen, ob ich da nicht was falsch mache!
Ich rufe nun zum Erzeugen eines "sauberen" Namens folgende Funktion auf:
Delphi-Quellcode:
function MakePicName(OldPicName:string):String;
begin
Result:='';
with Form1 do
begin
if chk_names_safety.Checked then
begin
Result := StringReplace (OldPicName,'&','_',[rfReplaceAll,rfIgnoreCase]) ;
Result := StringReplace (OldPicName,'-','_',[rfReplaceAll,rfIgnoreCase]) ;
end;
if chk_names_spaces.Checked then
begin
Result := StringReplace (OldPicName,' ','_',[rfReplaceAll,rfIgnoreCase]) ;
end;
end;
end;
Nun wollte ich wissen, ob man den Aufruf für die Zeichen "&" und "-" nicht auch in einem Rutsch durchführen kann. Oder ist es so übersichtlicher!?