Bored scripting....
Simba Code:
program new;
function FindEt(const name: string; out Arr: TVariantArray; const Data: array of TVariantArray): boolean;
var
H, I, J, K: Integer;
begin
Result := False;
H := High(Data);
for I := 0 to H do
if (Length(Data[I]) > 0) then
if (String(Data[I][0]) = Name) then
begin
SetLength(Arr, Length(Data[I]));
J := High(Data[I]);
for K := 0 to J do
Arr[K] := Data[I][K];
Break;
end;
if (Length(Arr) > 0) then
begin
Result := True;
H := High(Arr);
for I := 1 to H do
Arr[I - 1] := Arr[I];
SetLength(Arr, Length(Arr) - 1);
end;
end;
var
Data: array of TVariantArray;
Et: TVariantArray;
begin
SetLength(Data, 3);
Data[0] := ['test', 42, True];
Data[1] := ['hmmm', False];
Data[2] := ['-'];
WriteLn(FindEt('test', Et, Data)); //True
WriteLn(Et); // [42, True]
WriteLn(FindEt('hmmm', Et, Data)); //True
WriteLn(Et); // [False]
WriteLn(FindEt('-', Et, Data)); //True
WriteLn(Et); // []
WriteLn(FindEt('Nothing', Et, Data)); //False
WriteLn(Et); // []
end.