SelectDirectory setzt kein Backslash nach einem SubDirectory

[Predator]

moin Jungs,

also ich hab folgenden Code benutzt um ein Directory zu wählen:

Delphi-Quellcode:

var
   Dir: string:
begin
    if SelectDirectory('Ordner:','', Dir) then 
       Edit2.Text := Dir + Dateiname;
    end;
end;

wenn ich nun als source habe:

C:\SwapItOE2.msi

kommt hier bei Select Directory das raus:

C:\ProgrammeSwapItOE2.msi

also nach Programme kein \

Kann jemand einen code posten(code ist besser, so versteht mans schneller als immer drumrum reden)

Vielen Dank im Voraus.

[Christian Seehase]

Moin Predator,

so:

Delphi-Quellcode:

Edit2.Text := Dir + '\' + Dateiname;

oder so

Delphi-Quellcode:

Edit2.Text := IncludeTrailingBackslash(Dir) + Dateiname;

[Niko]

Zitat:

Zitat von Christian Seehase

IncludeTrailingBackslash(Dir)

Wo ist denn die Funktion her? - Ich finde die nirgends... :gruebel:

[Predator]

bei den uses must du FileCtrl einbinden

funktioniert 1a

Danke !

[Christian Seehase]

Moin Niko,

die stammt aus der Unit SysUtils.
Es kann natürlich sein, dass es die bei D4 noch nicht gab.