Thema: Delphi Files öffnen und laden

Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#4

Re: Files öffnen und laden

  Alt 23. Jul 2004, 13:52
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]
  Mit Zitat antworten Zitat