Работа с OpenDialog

[alexanderrrr]

в программе нужно выбирать файл посредством OpenDialog (и вывод в стринггрид), как это реализовать?

сама программа прилагается

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var f:TextFile;
    minX,maxX,minY,maxY,
    X,Y:double;
    i:integer;
begin
 Memo1.Clear;
 AssignFile(f,Edit1.Text);
 try
 reset(f);
 i:=0;
 while not eof(f) do
  begin
   inc(i);
   StringGrid1.RowCount:=i+1;
   readln(f,X,Y);
   if (X<minX) or (i=1) then minX:=X;
   if (X>maxX) or (i=1) then maxX:=X;
   if (Y<minY) or (i=1) then minY:=Y;
   if (Y>maxY) or (i=1) then maxY:=Y;
   StringGrid1.Cells[0,i]:=FloatToStr(X);
   StringGrid1.Cells[1,i]:=FloatToStr(Y);
  end;
 CloseFile(f);
 if i=0 then
   Memo1.Lines.Append('отсутствуют данные')
  else
   begin
    Memo1.Lines.Append('minX= ' + FloatToStr(minX));
    Memo1.Lines.Append('maxX= ' + FloatToStr(maxX));
    Memo1.Lines.Append('minY= ' + FloatToStr(minY));
    Memo1.Lines.Append('maxY= ' + FloatToStr(maxY));
   end;
except              
 ShowMessage('отсутствует указанный файл');
end
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 StringGrid1.Cells[0,0]:='X';
 StringGrid1.Cells[1,0]:='Y';
 StringGrid1.RowCount:=2;
 StringGrid1.FixedRows:=1;
end;
end. 


[Прик]

На форме разместить OpenDialog.
В процедуре:

begin
  Memo1.Clear;
  if OpenDialog1.Execute then
    Edit1.Text := OpenDialog1.FileName
  else
    Exit;
  AssignFile(f,Edit1.Text);
  ...

[alexanderrrr]

Сообщение от Прик

На форме разместить OpenDialog.
В процедуре:

begin
  Memo1.Clear;
  if OpenDialog1.Execute then
    Edit1.Text := OpenDialog1.FileName
  else
    Exit;
  AssignFile(f,Edit1.Text);
  ...

после этого начинает ругаться на except

[Прик]

У меня не ругается:

procedure TForm1.Button1Click(Sender: TObject);
 var f:TextFile;
    minX,maxX,minY,maxY,
    X,Y:double;          //данные из файла
    i:integer;           //номер строки заполнения
begin
  Memo1.Clear;
  if OpenDialog1.Execute then
    Edit1.Text := OpenDialog1.FileName
  else
    Exit;
  AssignFile(f, Edit1.Text);  // связь файловой переменной
  try
    reset(f);                  // попытка открытия файла
    i:=0;
    while not eof(f) do begin
      inc(i);                    // увеличить номер строки
      StringGrid1.RowCount := i+1; //  количество линий
      readln(f,X,Y);

      if (X<minX) or (i=1) then minX:=X;
      if (X>maxX) or (i=1) then maxX:=X;
      if (Y<minY) or (i=1) then minY:=Y;
      if (Y>maxY) or (i=1) then maxY:=Y;
      StringGrid1.Cells[0,i] := FloatToStr(X);
      StringGrid1.Cells[1,i] := FloatToStr(Y);
    end;
    CloseFile(f);     // закрытие файла

   // вывод результата
    if i=0 then
      Memo1.Lines.Append('Отсутствуют данные')
    else begin
      Memo1.Lines.Append('minX= ' + FloatToStr(minX));
      Memo1.Lines.Append('maxX= ' + FloatToStr(maxX));
      Memo1.Lines.Append('minY= ' + FloatToStr(minY));
      Memo1.Lines.Append('maxY= ' + FloatToStr(maxY));
    end;
  except
    ShowMessage('Отсутствует указанный файл');
  end
end;