Open Dialog

[1adavin]

Delphi-Quellcode:

Mach's do einfach so:


  if OpenDialog1.Execute then    { Dialog zum Dateiöffnen anzeigen } 
  begin 
    AssignFile(Filename, OpenDialog1.FileName);   { Datei ausgewählt } 
    try
       Reset(Filename); 
       while not eof(Filename) do 
       begin 
          Readln(Filename,s); 
       end; 
    finally
       CloseFile(Filename); 
    end;
  end
  else begin
    ShowMessage ('Sie haben keine Datei ausgewählt !');
  end;