Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
31. Jan 2005
uses
ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
pfad: String;
begin
if OpenDialog1.Execute then
begin
pfad := OpenDialog1.FileName;
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
31. Jan 2005
Ja dann gib es doch einfach an. In deiner Variablen pfad hast du doch alles drinne stehen, was du brauchst.
Im übrigen, das:
pfad := OpenDialog1.FileName;
Edit1.Text := ExtractFilePath(pfad) + ExtractFileName(pfad);
kannst du dir sparen. Worum zerlegst du erst den Pfad und fügst ihn dann wieder zusammen?