Результат выводится в сообщении. Как перенаправить его на другую форму?
Спасибо.
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;
Что значит "перенаправить"? Сохранить в каком-то компоненте? Так сохраняй, обращаться можно к любой форме, указывая ее название.