[kenzo]

Помогите пожалуйста на 1 форме у меня radiogroup и кнопка на 2 форме Мемо.Как сделать так чтобы я выберал нужный Items radiogroupа и нажимал на кнопку эта форма исчезала появлялась 2 форма с нужным текстом. Я скинул Не доработанный исходник посмотрите пожалуйста

[kenzo]

Ну подскажите пожалуйста

[Redstason]

[i]procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=0;
while (i<RadioGroup1.Items.Count) do
begin
if RadioGroup1.Buttons[i].Checked then
begin
form2.visible:=true;
form2.Memo1.Text:=RadioGroup1.Buttons.Caption;
form1.Visible :=false;
end;
Inc(i);
end;
end;

[Electronic_Arts]

Вот так ты имел ввиду?
поправил исходник качай

[Redstason]

Сообщение от Electronic_Arts

Вот так ты имел ввиду?

А если он захочет еще пару RadioButton-ов вставить? Длиноватая функция получится.

[kenzo]

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

[Алексей1980]

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Memo1.Lines.LoadFromFile('Text'+ IntToStr(radiogroup1.ItemIndex) +'.txt');
form2.Show;
form1.Visible:=false;
end;
файлы должны номероваться с нуля, это переделанная процедура для примера Project-text.zip , номер выбранного индекса подставляется прям в адрес открываемого файла
принцип взят из движков простых сайтов, только в интерпретации дельфи