OpenDialog Zuweisung

[bigg]

Delphi-Quellcode:

procedure TForm1.Oeffnen(Sender: TObject);
var Ext: String;
begin
  
if OpenDialog1.Execute then {Wenn du auf Öffnen geklickt hast, dann....}
begin

{OpenDialog1.FileName = Kompletter Pfad zur Datei}
  
Ext := LowerCase(OpenDialog1.FileName); {Ermittle die Dateierweiterung und konvertiere sie in Kleinbuchstaben}

{dann filtern und laden, das macht sich aber in einer Schleife wesentlich besser}

end;
end;