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