Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
2. Mai 2010
Zuverlässig im Sinne von das Ergebnis liefert den richtigen Pfad ...
von vorhandener Fehlerprüfung/-behandlung hab ich nichts gesagt. :stupid:
Aber wenn es sein muß,dann entweder diese Zeile
S := SL + '\';
hierdurch ersetzen
if SL.Count = 0 then S := ''
else S := SL + '\';
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
1. Mai 2010
Nicht unbedingt das Schellste, aber es läuft zuverlässig:
var
SL: TStringList;
S, S2: String;
B: Boolean;
i: Integer;
begin
// input: SL
// output: S
S := SL + '\';