unction teststring(out data1:arrpump;out datastrv:variant): integer; stdcall;
var
i: integer;
datastr: arraystring;
begin
result := 0;
setlength(data1, 5);
for i := 0 to 4 do
begin
data1[i].time := (i + 1) * 10;
data1[i].proppant := (i + 1) * 9;
data1[i].liquidrate := (i + 1) * 8;
data1[i].liquidvolumea := (i + 1) * 7;
data1[i].proppantmassa := (i + 1) * 6;
data1[i].fracturehalf := (i + 1) * 5;
data1[i].fracturew := (i + 1) * 4;
end;
type tpumpings1 = record
time, proppant,
liquidrate,
liquidvolumea,
proppantmassa, fracturehalf,
fracturew: double;
end;
arrpump = array of tpumpings1;