• WorkflowManager

Popis

declare procedure RemoveFromListVariable dll "ActualDocument" (string, integer, pointer)

script TEST_RemoveFromList (): Boolean
var
  iIdx, iCount: integer
  sVal: string
begin
  wkf.MyStringList[0] := "Hodnota 0"
  wkf.MyStringList[1] := "Hodnota 1"
  wkf.MyStringList[2] := "Hodnota 2"
  wkf.MyStringList[3] := "Hodnota 3"
  wkf.MyStringList[4] := "Hodnota 4"

  // výpis hodnot v proměnné
  iCount := wkf.MyStringList.count
  write("Počet hodnot ve stringlistové proměnné: " + iCount)
  for iIdx := 0 to iCount - 1 do
    sVal := wkf.MyStringList[iIdx]
    write("wkf.MyStringList[" + iIdx + "]: " + sVal)
  end

  RemoveFromListVariable("MyStringList", 2, ActualDocument)

  // výpis hodnot v proměnné
  iCount := wkf.MyStringList.count
  write("Počet hodnot ve stringlistové proměnné: " + iCount)
  for iIdx := 0 to iCount - 1 do
    sVal := wkf.MyStringList[iIdx]
    write("wkf.MyStringList[" + iIdx + "]: " + sVal)
  end

end