Abrir archivo Delphi

[Maria85]

Vale, se me para cuando llega a la linea:

inc(numeroPestana);

asi que supongo que tendrá que ser que no obtengo bien el numero de pestaña o algo así.seguiré investigando...

gracias por ayudarme

[Neftali [Germán.Estévez]]

¿Como tienes definida esa variable?
Prueba con:

Código Delphi [-]
  num := num + 1;

[Maria85]

He descubierto porque me fallaba, no era lo de inc(num) que te he dicho antes. Te escribo el código para que lo veas. La parte que he comentado es la que me fallaba( que se refiere a que si el fichero está abierto no me lo vuelve a abrir). Asi que por lo menos ahora me lo abre aunque sea siempre. Ahora tengo que arrglar esa parte para que me funcione.

Código Delphi [-]
 
procedure TTFormMain.OpcionAbrir(Sender: TObject);
var
  nombreArchivo: string;
  i: integer;
  ficheroAbierto: integer;
begin
  ficheroAbierto:=0;
  if DialogoAbrir.Execute then
    begin
        inc(numeroPestana);
        for i:=0 to numeroPestana-1 do
              {
          begin
                if (numeroPestana<>0) and
                    (compareText(DialogoAbrir.FileName,listaVentanas[i].pestana.hint)=0) then
                  begin
                    nombreArchivo:='EL FICHERO: '+DialogoAbrir.FileName+' YA ESTA ABIERTO';
                      ShowMessage(nombreArchivo);
                    numeroPestana:=numeroPestana-1;
                    ficheroAbierto:=1;
                  end;
          end;
               }
       if ficheroAbierto=0 then
         begin
                AbrirEditor(DialogoAbrir.FileName);
                listaVentanas[numeroPestana].editor.Lines.LoadFromFile(DialogoAbrir.FileName);
                listaVentanas[numeroPestana].guardado := true;
                listaVentanas[numeroPestana].carpetaTrabajo := DialogoAbrir.FileName;
                nombreArchivo := ObtenerNombrePestana(listaVentanas[numeroPestana].carpetaTrabajo);
                delete(listaVentanas[numeroPestana].carpetaTrabajo,
                       pos(nombreArchivo,listaVentanas[numeroPestana].carpetaTrabajo),
                       length(listaVentanas[numeroPestana].carpetaTrabajo));
         end;
    end;
end;

[Neftali [Germán.Estévez]]

La línea que veo con más posibilidades (de fallar ) es la del CompareText, pero lo mismo de antes. Ejecuta paso a paso a ver si afinas la línea.

Un saludo.

[Maria85]

si es esa, la de compareText...