Status: Integer;
The Status property returns the calculation execution status.If the calculation contains no errors this property returns 0. Otherwise it returns error code.
To execute the example, the form must have the ChartBox component and the UiChart component which serves as the source for ChartBox.
Class MyForm: Form
ChartBox1: ChartBox;
UiChart1: UiChart;
Uniform: SmUniformDistribution;
Values: Array Of Double;
Const Cnt = 10;
Sub MyFormOnCreate(Sender: Object; Args: IEventArgs);
Begin
Uniform := New SmUniformDistribution.Create;
Text := Uniform.DisplayName;
Uniform.A := 0.1;
Uniform.B := 0.8;
Values := Uniform.RandomVector(Cnt);
If Uniform.Status <> 0 Then
WinApplication.InformationBox(Uniform.Errors);
End If;
UiChart1.PointCount := cnt;
End Sub MyFormOnCreate;
Sub UiChart1OnGetDataValue(Sender: Object; Args: IUiChartGetDataValueEventArgs);
Begin
If Args.PointIndex < Cnt Then
Args.Value := Values[Args.PointIndex];
Args.Result := True;
End If;
End Sub UiChart1OnGetDataValue;
End Class MyForm;
After executing the example a uniform distribution graph is created for the value:
See also: