[crazypiters]

У меня несколько Edit.Text и в каждом стоит какоето число.
как можно после ввода других чисел и закрыв прогу, сохранить изменение...

вроде можно в txt но я могу только 1 Edit.Text сохранить в 1 txt....а у меня их 16
а еще и значения этих едитов задействованы

Код:

 procedure TForm2.RadioGroup8Click(Sender: TObject);
 begin
 if RadioGroup8.ItemIndex=0 then b:=StrToFloat(Edit1.Text);
 if RadioGroup8.ItemIndex=1 then b:=StrToFloat(Edit2.Text);
 if RadioGroup8.ItemIndex=2 then b:=StrToFloat(Edit3.Text);
 if RadioGroup8.ItemIndex=3 then b:=StrToFloat(Edit4.Text);
 if RadioGroup8.ItemIndex=4 then b:=StrToFloat(Edit5.Text);
 if RadioGroup8.ItemIndex=5 then b:=StrToFloat(Edit6.Text);
 if RadioGroup8.ItemIndex=6 then b:=StrToFloat(Edit7.Text);
 if RadioGroup8.ItemIndex=7 then b:=StrToFloat(Edit8.Text);
 if RadioGroup8.ItemIndex=8 then b:=StrToFloat(Edit9.Text);
 if RadioGroup8.ItemIndex=9 then b:=StrToFloat(Edit10.Text);
 if RadioGroup8.ItemIndex=10 then b:=StrToFloat(Edit11.Text);
 if RadioGroup8.ItemIndex=11 then b:=StrToFloat(Edit12.Text);
 if RadioGroup8.ItemIndex=12 then b:=StrToFloat(Edit13.Text);
 if RadioGroup8.ItemIndex=13 then b:=StrToFloat(Edit14.Text);
 if RadioGroup8.ItemIndex=14 then b:=StrToFloat(Edit15.Text);
 if RadioGroup8.ItemIndex=15 then b:=StrToFloat(Edit16.Text);
 if RadioGroup8.ItemIndex=16 then b:=StrToFloat(Edit17.Text);
 end;

может кнонибудь пример показать как сохранять изменения в txt или если это возможно без задействования txt