Creo que Roman se refería a esto:
Código Delphi
[-]procedure TMaetro.FormCreate(Sender: TObject);
var
AItem: TListItem;
begin
If UnitStart.ClienteNQ.Consultar(CronosDB,ClienteQR,'SP_CLIENTE_SELECT') then
begin
ListView1.Clear;
ClienteQR.First;
While not ClienteQR.Eof do
begin
ClienteQR.RecNo := AItem.Index;
AItem.Caption := ClienteQR.Fields[0].AsString;
AItem.SubItems(0) := ClienteQR.Fields[1].AsString;
AItem.SubItems(1) := ClienteQR.Fields[2].AsString;
ClienteQR.Next
end;
end
else
MessageBox(Application.Handle,
PChar('No es posible consultar a la Base de Datos'),
PChar('Error de Conexion'),
MB_OK + MB_ICONSTOP + MB_DEFBUTTON1 + MB_APPLMODAL);
end;
Saludos.
PD. Creo