Assigns an instance of an existing record format to the referenced object .
PROCEDURE SetRecord(
h : HANDLE;
record : STRING);def vs.SetRecord(h, record):
return None| Name | Type | Description |
|---|---|---|
| h | HANDLE | Handle to object. |
| record | STRING | Name of record to assign to object. |
SetRecord(HandleToObject,'Part Info');BEGIN
gNumSymbols := gNumSymbols + 1;
SetRecord (symDefH, gRecordName);
END;
END;
for cnt1 := 1 to tmpStruct.bodyNotesCnt do BEGIN
Locus(0, 0);
loch := LNewObj;
SetRecord(loch, kHidRecName);
dynChar := '';
for cnt2 := 1 to m_GNbodyNotesLens[ cnt1 ] DO
dynChar := Concat(dynChar, m_GNbodyNotes[ cnt2, cnt1 ] );
BEGIN
BeginGroup;
Locus(0,0);
SetRecord(LNewObj,kHiddenRecName);
SetRField(LNewObj,kHiddenRecName,'WhichOne','DeleteMe');
EndGroup;
GroupHand:= LNewObj;
SetClass(GroupHand,noneClass);if vs.GetObject( strMarkerActualName ) != None:
vs.BeginGroup()
vs.Locus(0,0)
vs.SetRecord( vs.LNewObj(), kHiddenRecName )
vs.SetRField( vs.LNewObj(), kHiddenRecName, 'IEMAction', 'DeleteMe' )
vs.EndGroup()
hGroupHand = vs.LNewObj()See also in tutorials: 08. Attach and Read Records on Objects, 24. Auto-Populating Database Row, 26. Sorting and Grouping with SetWSColumnOperators
Availability: from All Versions