Ver Mensaje Individual
  #5  
Antiguo 11-03-2009
karo karo is offline
Registrado
 
Registrado: mar 2009
Posts: 3
Reputación: 0
karo Va por buen camino
Si señor usted tiene toda la razon tengo que ser mas explicita, a continuacion le envio los dos programas la Unit1 y la Unit3. para que usted ayude a mirar cual es el error, muchas gracias.

Código Delphi [-]
unit Unit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit3, StdCtrls;
type

TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Label1Click(Sender: TObject);

private
{ Private declarations }
public
ar:string; { Public declarations }
end;

var

Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
gise:Tform3;
begin
gise:=Tform3.Create(self);
gise.show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ar:= sumardosnumeros(num1,num2:interger):string;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
label1.caption:=ar;

end;
end.

unit Unit3;

interface
function sumardosnumeros(num1,num2:interger):string;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm3 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
function sumardosnumeros(num1, num2:interger): string;
var
suma:interger;
va=string;
begin
num1:=1;
num2:=2;
suma:=num1+num2;
va:=intostr(suma);
Result:= va;

end;
end.

Última edición por dec fecha: 12-03-2009 a las 04:59:06. Razón: Añadir las etiquetas DELPHI
Responder Con Cita