Files öffnen und laden

[Sharky]

Hai Misjahx,

packe auf deine Form mal einen OpenDialog (Registerkarte - Dialoge).

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (OpenDialog1.Execute) then
  begin
    Edit1.Text := OpenDialog1.FileName
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile (Edit1.Text);  // Die Datei welche in Edit1 angegeben ist z.B in ein Memo laden.
end;

[Edit]Jungens, ihr müsst viel schneller werden