![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
GrabbeR |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: ![]() ![]() ![]() |
Результат выводится в сообщении. Как перенаправить его на другую форму?
Спасибо. procedure TForm1.Button2Click(Sender: TObject); var i,j: Integer; StrResult,s:string; begin Button1Click(nil); StrResult:=''; for j:=1 to 15 do begin s:=''; for i:=1 to 6 do s:=s+' | '+IntToStr(Results[i,j]); StrResult:=StrResult+s+#13#10; end; for i:=1 to 6 do for j:=1 to 15 do Results[i,j]:=0; Application.MessageBox(pChar(StrResult),'Результат',MB_OK); { Form11:=tform11.create(application); form11.show } end; -------------------- Чем больше я узнаю, тем больше понимаю, что ничего не знаю
|
![]() ![]() |
![]() |
Текстовая версия | 18.06.2025 20:58 |