TManufacturingLink.NextAttachPoint
redirigé depuis TManufacturingLink.SetNextAttachPoint
| TManufacturingLink = class (TObject) | Interface de TManufacturingLink | Exemples de TManufacturingLink |
Type d'attache entre opérations: attache de l'opération de destination
Syntaxe
property NextAttachPoint: TManufacturingAttachPoint read GetNextAttachPoint write SetNextAttachPoint
Remarques
Exemples
var gammeCroissant: TManufacturing;
var links: TManufacturingLinks;
var link: TManufacturingLink;
gammeCroissant:=TManufacturing.ConnectByGPAOID('croissant v1.00');
try
links:=gammeCroissant.GetManufacturingLinks;
if links.count>0 then begin
link:=links.links[0];
link.NextAttachPoint:=mapBegin;
end;
gammeCroissant.post;
finally
gammeCroissant.free;
end;
var links: TManufacturingLinks;
var link: TManufacturingLink;
gammeCroissant:=TManufacturing.ConnectByGPAOID('croissant v1.00');
try
links:=gammeCroissant.GetManufacturingLinks;
if links.count>0 then begin
link:=links.links[0];
link.NextAttachPoint:=mapBegin;
end;
gammeCroissant.post;
finally
gammeCroissant.free;
end;
var gammeCroissant: TManufacturing;
var links: TManufacturingLinks;
var link: TManufacturingLink;
gammeCroissant:=TManufacturing.ConnectByGPAOID('croissant v1.00');
try
links:=gammeCroissant.GetManufacturingLinks;
if links.count>0 then begin
link:=links.links[0];
case link.NextAttachPointof
mapBegin: informationDlg('début');
mapEnd: informationDlg('fin');
end;
end;
finally
gammeCroissant.free;
end;
var links: TManufacturingLinks;
var link: TManufacturingLink;
gammeCroissant:=TManufacturing.ConnectByGPAOID('croissant v1.00');
try
links:=gammeCroissant.GetManufacturingLinks;
if links.count>0 then begin
link:=links.links[0];
case link.NextAttachPointof
mapBegin: informationDlg('début');
mapEnd: informationDlg('fin');
end;
end;
finally
gammeCroissant.free;
end;