...
Delphi-Quellcode:
if not SysUtils.DirectoryExists(ArbeitsVerzeichnis) then
begin
Arbeitsverzeichnis := 'd:\h.bothur\entw\anw\soern 2datev\v7.0\Soe2Datev';
StringReplace(Arbeitsverzeichnis, ' ', '*', [rfReplaceAll, rfIgnoreCase]);
ShowMessage('Falsches Verzeichnis im INI-String !' +#13 +'Programm wird beendet' + #13 + 'Verzeichnis: ' +Arbeitsverzeichnis);
Application.Terminate;
end;
...
1) Das Stringreplace ersetzt das Leerzeichen nicht durch einen '*' - warum nicht ?
...
Doch, aber du speicherst das nicht wieder zurück:
Delphi-Quellcode:
if not SysUtils.DirectoryExists(ArbeitsVerzeichnis) then
begin
Arbeitsverzeichnis := 'd:\h.bothur\entw\anw\soern 2datev\v7.0\Soe2Datev';
Arbeitsverzeichnis := StringReplace(Arbeitsverzeichnis, ' ', '*', [rfReplaceAll, rfIgnoreCase]);
ShowMessage('Falsches Verzeichnis im INI-String !' +#13 +'Programm wird beendet' + #13 + 'Verzeichnis: ' +Arbeitsverzeichnis);
Application.Terminate;
end;
Und "ja", das ShowMessage mach bei Leerzeichen einfach irgendwann Zeilenumbrüche (WordWrap), wenn die Zeile "zu lang wird".
Frag mich aber nicht, was "zu lang" ist. Ich habe mich damit abgefunden. 😅
LG Incocnito