Hola tengo la siguiente clase que se conecta una bd echa en access y despues la intento llamar desde
un formulario y me da un error:
Aqui tienes la clase y debajo el error
Código Delphi
[-]unit u_TBiblioteca;
interface
uses
SysUtils, Classes, ADODB;
Type
TBiblioteca=class
public
LibrosDisponibles:TStringList;
NumUsuarios:Integer;
TotalPrestamos:Integer;
Usuarios:TStringList;
cnx:TADOConnection;
query: TADOQuery;
function GetLibrosDisponibles:TStringList;
end;
implementation
function TBiblioteca.GetLibrosDisponibles:TStringList;
begin
cnx.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=datos.mdb;Persist Security Info=False';
query.Connection:=cnx;
query.SQL.Text:='Select * From t_inventario';
query.Open;
while not query.Eof do
begin
LibrosDisponibles.Add(query.FieldValues['id']+'_'+ query.FieldValues['titulo']);
query.Next;
end;
result:=LibrosDisponibles;
end;
end.
Ahora al intentar llamar la clase desde un boton de la siguiente forma:
Código Delphi
[-]procedure Tf_main.Button1Click(Sender: TObject);
var a:TBiBlioteca;
b:TStringList;
begin
a:=TBiblioteca.Create;
b:=a.GetLibrosDisponibles;
end;
Me da el siguiente error:
raised Exception Class EAccessViolation with message 'Access violation at address 0046F01E'
Saludos y desde ya muchas gracias