|
Hola Aqui tienes el codigo del procedimiento:
procedure adaptar_pad(var x,y,desig: string);
var
aux,cadena: string;
begin
aux:=ExtractFilePath(Application.ExeName)+'\bases de datos\componentes gerber.mdb';
cadena:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+aux+';Persist Security Info=False';
FComponente.TablaPad.ConnectionString:=cadena;
FComponente.TablaNodo.ConnectionString:=cadena;
FComponente.TablaNodo.Open;
FComponente.TablaNodo.First;
FComponente.TablaPad.Open;
while not (FComponente.TablaNodo.Eof) do
begin
FComponente.TablaPad.Append;
FComponente.TablaPad.FieldValues['identificador_pad']:=desig;
FComponente.TablaPad.FieldValues['localizacion_x']:=x;
FComponente.TablaPad.FieldValues['localizacion_y']:=y;
FComponente.TablaPad.Post;
end;
end;
y la llamada del procedimiento es
adaptar_pad(x1,y1,designador);
Gracias
|