Errors: String;
Свойство Errors возвращает сообщение обо всех ошибках и предупреждениях, возникших при расчетах.
Для выполнения примера необходимо наличие на форме компонентов ChartBox и UiChart, который является источником (Source) для 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;
После выполнения примера будет построен график равномерного распределения величины:
См. также: