OpenCase Function: Sample Code

 

Borland® Delphi

Output := SimAuto.OpenCase('c:\simauto\examples\b7opf.pwb');

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

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

else

begin

StatusBar1.Panels[1].Text := 'Open Case successful.'; 

// Perform activities with opened case 

end;

 

Microsoft® Visual Basic for Applications

Output = SimAuto.OpenCase("c:\simauto\examples\b7opf.pwb")

If output(0) <> "" Then

MsgBox(output(0)) 

Else

' Perform activities with the opened case 

End If

 

Matlab®

Output = SimAuto.OpenCase('c:\simauto\examples\b7opf.pwb')

%If the first cell in Output ~= '', then that means an error

%occurred.

if ~(strcmp(Output{1},''))

disp(Output{1}) 

else

%Otherwise, no errors. Perform activities. 

disp('Open Case successful') 

end