Files öffnen und laden

[Die Muhkuh]

Hi,


ich hab hier mal was zusammengeschustert:

Delphi-Quellcode:

procedure {Deine Buttonklickmethode}
var
  FFilename: String;
begin
  //Datei auswählen
  with TOpenDialog.Create(nil) do
  begin
    if Execute then
      FFilename := Filename;
  end; 
  
  Memo1.Lines.LoadFromFile(FFilename); //Laden 
  Memo1.Lines.Add('Datei: ' + FFilename + ' wurde geöffnet'); //anzeigen welche Datei geöffnet wurde
end;

[edit] Kleiner Fehler im Code + noch was hinzugefügt [/edit]