Resultform.ShowModal; (Эту команду удалить)
Begin
D:=GetCurrentDir;
F:=TIniFile.Create(D+'/'+fileform.FIO+'.txt');
With F do begin
writestring('Данные','Результаты по методике ',':');
writestring('Данные','Низкий результат',inttostr(_res));
free;
end;
if _res >15 then
Begin
D:=GetCurrentDir;
F:=TIniFile.Create(D+'/'+fileform.FIO+'.txt');
With F do begin
writestring('Данные','Результаты по методике ',':');
writestring('Данные','Высокий результат',inttostr(_res));
free;
end;
resultform.ShowModal; (Эту команду удалить)
Test1form.Close;
end;
end;
11. Далее создаем новую форму (Файл – Создать - Форма).
12. Сохраняем, как result unit.
Name----ResultForm
Caption----- «Результат»
Размещаем элементы:
1 Memo (1 шт.) (в свойстве lines оставляем чистое поле);
2 MainMenu (создаем Меню, в данном пункте добавляем открыть, закрыть, выход);
3 OpenDialog (свойство Filter в Filtername пишем *.txt).
Форма Результат
Кнопку открыть прописываем:
begin
if openDialog1.Execute then
begin
resultForm.Memo1.Lines.LoadFromFile(openDialog1.FileName);
resultForm.Caption:=OpenDialog1.FileName;
end;
end;
Кнопку закрыть прописываем:
begin
memo1.Lines.Clear;
ResultForm.Caption:='Результат';
end;
Кнопку выход прописываем:
begin
close;
end.
// В процедуре нажатия кнопки после создания формы ResultForm пропишите команду вызова формы результат.