Hola otra vez a todos!!
Estoy intentando crear un método que pulsando en un botón me abra un archivo...Me sale el diálogo de abrir bien, pero cuando selecciono uno y le doy a aceptar me sale el siguiente error:
Object reference is not set to an instance object
Si alguien pudiera decirme algo...
Os pongo aqui abajo el método:
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);
dec(numeroPestana);
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;