Вопрос о RadioGroup

[Tomoyo]

При выборе определенной RadioButton находится определенный интеграл уравнения y=x^2 методом, описанным в метке. Как вывести это значение в соответствующий Edit? Стандартный способ,коим я пользовалась раньше при написании прог здесь не срабатывает.

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm11 = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit8: TEdit;
    Label5: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}


function MethodPR(x:real):real;
begin
  MethodPR:=x*x;
end;


procedure TForm11.Button1Click(Sender: TObject);
Var i,n:integer;
    s,dx,a,b:real;
begin
a:=strtofloat(edit6.Text);
b:=strtofloat(edit7.Text);
n:=strtoint(edit8.text);
dx:=(b-a)/n;
case RadioGroup1.ItemIndex of
0:
begin
  for i := 1 to n do
    s:=dx*(s+MethodPR(a+dx*(i-1)));
end;

1:
begin
  for i := 1 to n do
    s:=dx*(s+MethodPR(a+dx*i));
end;

2:
begin
  for i := 1 to n do
    s:=dx*(s+MethodPR(a+dx*(i-0.5)));
end;

3:
begin
 for i := 1 to n do
   s:=0.5*dx*(s+MethodPR(a+dx*(i-1))+MethodPR(a+dx*i));
end;

4:
begin
  for i := 1 to n do
  s:=(dx*(s+dx*(s+MethodPR(a+dx*(i-1))+4*MethodPR(a+dx*(i-0.5))+MethodPR(a+dx*i))))/6;
end;
end;


end;

end.

[Пепел Феникса]

FloatToStr
не пробывали?

[Tomoyo]

Конечно пробовала!!! Я конечно чайник, но не настолько) В Edit ничего не выводится. Мне тут один знакомый сказал, что надо через массивы, но не объяснил почему и как.

[SibBear]

С RadioGroup не правильно работаете.
Нужно не создавать поверх RadioButton'ы, а в свойствах RadioGroup найти Items и вручную забить строки. Тогда Ваш Case будет работат, а в Вашем коде Case ищет результат в пустом RadioGroup. Поэтому и тишина.

В архиве Ваша программа рабочая. Пользуйтесь.

P.S. На будующие: результаты работы любого Case легко проверять выводом номера выбранного буттона на экран, хотябы будете выдеть, срабатывает ли хоть один бутон или нет. (в примере номер в Edit1)

[Tomoyo]

Большое спасибо Вам.