GetParametersMultipleElement Sample Code Borland® Delphi

 

// This example retrieves some parameters for all buses of the

// loaded case, using the GetParametersMultipleElement function

 

procedure TMainForm.RunGPMEClick(Sender: TObject);

var

FieldBusArray : OLEVariant; 

i,j : Integer; 

begin

// Declares fields array to be sent to Excel 

FieldBusArray := VarArrayCreate([1,5], varOleStr); 

FieldBusArray[1] := 'Number'; 

FieldBusArray[2] := 'Name'; 

FieldBusArray[3] := 'kV'; 

FieldBusArray[4] := 'Vpu'; 

FieldBusArray[5] := 'Vangle'; 

 

// Gets parameters with Multiple Element function 

Output := SimAuto.GetParametersMultipleElement('bus', FieldBusArray, ''); 

if (string(Output[0]) <> '') then 

StatusBar1.Panels[1].Text := 'Error: ' + string(Output[0]) 

else 

begin 

StatusBar1.Panels[1].Text := 'Parameters got.'; 

Memo1.Lines.Add('== GetParametersMultipleElement =='); 

Memo1.Lines.Add('Value : Output[1][i][j]'); 

for i := VarArrayLowBound(Output[1],1) to VarArrayHighBound(Output[1],1) do begin 

for j := VarArrayLowBound(Output[1][i],1) to VarArrayHighBound(Output[1][i],1)  

do begin 

Memo1.Lines.Add(FieldBusArray[i] + '(' + IntToStr(j) + ') : ' +  

string(Output[1][i][j])); 

end; 

end; 

Memo1.Lines.Add(''); 

end; 

end;