Hola koiji.
Cita:
Empezado por koiji
Hola ptorres pues no lo e podido probar usted cree que me pueda dar un ejemplo de uso para poder ver su funcionamiento porfabor Muchas Gracias por su ayuda
|
Bueno, si no lo has podido probar... debe ser difícil ver su funcionamiento
Con el permiso de
ptorres, pongo un ejemplo del uso:
(File->New->Unit. (borrar, copiar y pegar el código de
ptorres)
Código Delphi
[-]
...
implementation
uses clSistema;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TBIOS.create do
try
Memo1.Clear;
Memo1.Lines.Add(Fabricante);
Memo1.Lines.Add(ProductoBase);
Memo1.Lines.Add(VersionTarjeta);
Memo1.Lines.Add(Fecha);
Memo1.Lines.Add(Vendedor);
Memo1.Lines.Add(VersionBios);
Memo1.Lines.Add(FamiliaSistema);
Memo1.Lines.Add(FabricanteSistema);
Memo1.Lines.Add(NombreProducto);
Memo1.Lines.Add(SKU);
Memo1.Lines.Add(VersionSistema);
finally
Free;
end;
end;
Saludos
