Online Help TEDIElement

Unit JclEDI_ANSIX12, JclEDI_UNEDIFACT

Types

TEDIElement

   The TEDIElement object stores EDI element data.

 Property
function GetIndexPositionFromParent: Integer;

   Call this function to get the index position from the parent.

   In JclEDI_ANSIX12.pas: The TEDIElement parent should be a TEDISegment object.

   In JclEDI_UNEDIFACT.pas: The TEDIElement parent can be a TEDISegment or TEDICompositeElement object.

Usage

Notes & Examples

   Some simple examples.

 Example #1
procedure DoSomething(Segment: TEDISegment);
var
  Item: TEDIObjectListItem;
  Element: TEDIElement;
begin
  Item := Segment.Elements.First;
  while Item <> nil then
  begin
    Element := TEDIElement(Item.EDIObject);
    DoSomethingWithElement(Element);
    Item := Item.NextItem;
  end; //while
end;

 Example #2: Using dynamic array compatibility.
procedure DoSomething(Segment: TEDISegment);
var
  E: Integer;
begin
  for E := 0 to Segment.ElementCount - 1 do
  begin
    DoSomethingWithElement(Segment[E]);
  end;
end;