Error en OpenDialog

[[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;

[JoseFco]

Caso resuelto maestro..

[roman]

Disculpen, pero aunque el FileExists evita el problema, lo que sucede aquí es que se está mandando abrir el archivo aun cuando el usuario haya cancelado la operación. Lo lógico sería:

Código Delphi [-]
if OpenDialog1.Execute then
begin

  ...

  LoadFromFile(OpenDialog1.FileName);

  ...

end;

De esta manera evitamos preguntar por la existencia de un archivo que de antemano sabemos que no existe cuando el usuario cancela el diálogo.

// Saludos

[JoseFco]

Empezado por roman

Disculpen, pero aunque el FileExists evita el problema, lo que sucede aquí es que se está mandando abrir el archivo aun cuando el usuario haya cancelado la operación. Lo lógico sería:


Código Delphi [-]
if OpenDialog1.Execute then
begin

...

LoadFromFile(OpenDialog1.FileName);

...

end;





De esta manera evitamos preguntar por la existencia de un archivo que de antemano sabemos que no existe cuando el usuario cancela el diálogo.

// Saludos

Hola roman.

Lo tengo asi exactamente como lo puso eduarcol y aun cuando seleciono el file.Si decido en vez de "Open" poner "Cancel" el file no entra al buffer ni me pone en el edit que tengo como "Load File" nada. El error que tenia anteriormente desaparecio.No me sale mas la ventana.
Me gustaria entender mejor lo que me explicas ya que me perdi en los puntitos esos.

Un Saludo.

[[Delphius]]

Empezado por JoseFco

Hola roman.

Lo tengo asi exactamente como lo puso eduarcol y aun cuando seleciono el file.Si decido en vez de "Open" poner "Cancel" el file no entra al buffer ni me pone en el edit que tengo como "Load File" nada. El error que tenia anteriormente desaparecio.No me sale mas la ventana.
Me gustaria entender mejor lo que me explicas ya que me perdi en los puntitos esos.

Un Saludo.

Lo que dice roman es que no se necesita de un FileExist si lo estamos buscando y suministrando.

Al hacer un:

Código Delphi [-]
if OpenDialog1.Execute
   then begin
           // todo lo que hay que hacer
          end;

Garantizamos de que en el TEdit quede la ruta del archivo.

Mientras que si se hace:

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

// lo que hay que hacer
LoadFromFile(Edit1.Text);
// Sigamos haciendo algo...

Dejamos la posibilidad de que en el TEdit quede un valor inconsistente ante una operación Cancel ya que se está leyendo el valor independientemente de si se validó o se canceló.

La forma correcta es como señala roman: todo el código debe ir en la parte then:

Código Delphi [-]
if OpenDialog1.Execute
   then begin
            // lo que haya que hacer...
            // No hace falta preguntar si existe...
            LoadFromFile(Edit1.Text);
            // algo más para hacer...    
          end;

¿Se vé la diferencia?
Espero que se me entienda. Si no lo vuelvo explicar.

Saludos,

[[egostar]]

Empezado por JoseFco

Hola roman.

Lo tengo asi exactamente como lo puso eduarcol y aun cuando seleciono el file.Si decido en vez de "Open" poner "Cancel" el file no entra al buffer ni me pone en el edit que tengo como "Load File" nada. El error que tenia anteriormente desaparecio.No me sale mas la ventana.
Me gustaria entender mejor lo que me explicas ya que me perdi en los puntitos esos.

Un Saludo.

Lo que apunta roman es que "metiendo" en un solo bloque begin...end todo el código no es necesario validar si existe el archivo ya que en el momento que eliges cancel el método execute será false por lo tanto no ejecutará nada.

Salud OS