Name einer einer Datei herausfinden...

[Daniel B]

Hai Sharky,

wozu denn noch zwischenspeichern?!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Label1.Caption := ExtractFileName(OpenDialog1.FileName);
  end;
end;

Grüsse, Daniel