GetParametersSingleElement Function: Sample Code Borland® Delphi

 

// This example retrieves some parameters for bus 2 of the loaded

// case, using the GetParametersSingleElement function, as well as

// the old GetParameters function

 

procedure TMainForm.RunGPSEClick(Sender: TObject);

var

Output : OLEVariant; 

FieldBusArray, ValueBusArray : OLEVariant; 

i : 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'; 

ValueBusArray := varArrayCreate([1,5],varOleStr); 

ValueBusArray[1] := 2; // To get parameters for bus 2 

ValueBusArray[2] := 0; 

ValueBusArray[3] := 0; 

ValueBusArray[4] := 0; 

ValueBusArray[5] := 0; 

 

// Gets parameters with GetParametersSingleElement function 

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

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

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

else 

begin 

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

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

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

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

Memo1.Lines.Add(FieldBusArray[i] + ' : ' + string(Output[1][i])); 

end; 

Memo1.Lines.Add(''); 

end; 

 

// Gets parameters with old function GetParameters 

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

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

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

else 

begin 

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

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

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

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

Memo1.Lines.Add(FieldBusArray[i] + ' : ' + string(Output[1][i])); 

end; 

Memo1.Lines.Add(''); 

end; 

end;