Error en OpenDialog

[JoseFco]

Hola Amigos.

Código Delphi [-]
begin
  if OpenDialog1.Execute then
    Edit1.Text:=OpenDialog1.FileName;

Aqui se habre un OpenDialog y si seleciono un file y le doy open todo marcha como debe ser.Pero si decido cancelar entonces sale un error.
Como se puede evita que si decido cancelar no me de un error.? Que regrese normal al form sin una ventana de error.

Un Saludo.

[[egostar]]

Hola amigo [JoseFco], pues no le veo ningún problema a ese code, nos puedes mostrar que error es el que te sale?

Salud OS

[JoseFco]

Empezado por egostar

Hola amigo [JoseFco], pues no le veo ningún problema a ese code, nos puedes mostrar que error es el que te sale?

Salud OS

Aqui esta la ventana que me sale. Esto si decido cancelar el opendialog.

Un Saludo.

[[eduarcol]]

antes de abrir el archivo agrega esto:

Código Delphi [-]
if FileExists(Edit1.Text) then
   //Abrir el archivo

[JoseFco]

Empezado por eduarcol

antes de abrir el archivo agrega esto:


Código Delphi [-]if FileExists(Edit1.Text) then
//Abrir el archivo

Código Delphi [-]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
   i,j,indice: integer;
  Str: String;
begin
  if OpenDialog1.Execute then
    Edit1.Text:=OpenDialog1.FileName;
    Edit2.Text:=('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>');
    Edit2.Text:=('Load File..................OK !');
  Memo1.Clear;
  //Inicializo las columnas y filas de el stringgrid donde se inicia la escritura
  with TStringList.Create do
    try
      LoadFromFile(Edit1.Text);
      FillChar(Buffer,Sizeof(Buffer),#255);
      for i:= 0 to Count - 1 do
        Insertar(Strings[i],Buffer);
        j:= StrToInt(Label2.caption);
        Str:= EmptyStr;

No veo donde intercalar esa linea eduarcol.

Un Saludo.

[[eduarcol]]

debes agregar sysutils al uses

Código Delphi [-]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
   i,j,indice: integer;
  Str: String;
begin
  if OpenDialog1.Execute then
    Edit1.Text:=OpenDialog1.FileName;
    Edit2.Text:=('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>');
    Edit2.Text:=('Load File..................OK !');
  Memo1.Clear;
  //Inicializo las columnas y filas de el stringgrid donde se inicia la escritura
  with TStringList.Create do
    try
      if FileExists(Edit1.Text) then
      begin
         LoadFromFile(Edit1.Text);
         FillChar(Buffer,Sizeof(Buffer),#255);
         for i:= 0 to Count - 1 do
           Insertar(Strings[i],Buffer);
           j:= StrToInt(Label2.caption);
           Str:= EmptyStr;
      end;