Array T00:00:00.000 2021-01-27T15:37:49.672 0 0 0 1 black 1 0 1 1 http://*/* https://*/* tel:* sms:* mailto:* geo:* 1 1 1 0 0 0 0 0 1 0 0 0 1 1 0 1 1 1 0 0 0 0 1 0 0 1 0 0 1 iOS.css 0 1 main.js index.html www\ 0 1 0 0 0 1 Array 2016-11-21T20:12:09.664Z 2016-11-21T20:12:36.837 Unit1 2016-11-21T20:12:09.664Z 2016-11-21T20:12:09.664 Form1 2016-11-21T20:12:09.664Z 2016-11-23T21:30:20.003
2016-11-21T20:12:09.664 2021-01-27T15:37:46.054 W3Form 168 360 Form1 W3Memo 264 64 16 256 W3Memo1 W3Memo 264 64 288 256 W3Memo2 ARRAY 128 16 256 32 W3Label1
]]>
1 1 1
XArray 2016-11-21T20:12:45.112Z 2016-12-03T23:09:41.589 Item; end); end; Procedure TArray.RemoveIndex(Item: Variant); begin FHandle.splice(Item, 1); end; Function TArray.LookUpIndex(Item:integer):Variant; begin result := FHandle[Item]; end; Procedure TArray.Print; begin writeln(FHandle.join(' - ')); end; Function TArray.LookUpValue(Item:variant):Variant; begin var indices = TVariant.CreateArray; If Item.IsString then Item := "'" + Item + "'"; var foundIndex = FHandle.indexOf(Item); while (foundIndex <> -1) do begin indices.push(foundIndex); foundIndex := FHandle.indexOf(Item, foundIndex + 1); end; result := indices; end; Function TArray.Length:Variant; begin result := FHandle.length; end; end. ]]>
Browser Visual Components Project