codigo, gracias por ayudar
Código Delphi [-]
function veces :integer;
begin
result :=strToInt(Form4.Edit1.Text);
end;
procedure TForm4.Button1Click(Sender:TObject);
begin
form2.visible := true;
form2.calculoPi(veces);
end;
public procedure calculoPi(veces:integer);
begin
end;
Última edición por dec fecha: 11-10-2007 a las 10:16:01.
|