Fórum Problema com function na hora de chamar o resultado #166232

24/06/2003

0

Delphi

Eu fiz assim:
public
{ Public declarations }
function AreaQuadrada (Lado:Integer):Integer;Stdcall;export;

end;

var
Form1: TForm1;

implementation
function TForm1.AreaQuadrada (Lado:Integer):Integer;Stdcall;export;
begin
Result := Lado * Lado;
Lado:= StrToInt(Edit1.Text);
Edit2.Text:= IntToStr(Result);
end;
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
AreaQuadrada;
end;


Juarezber

Juarezber

Responder

Posts

24/06/2003

Carnette

Eu fiz assim: public { Public declarations } function AreaQuadrada (Lado:Integer):Integer;Stdcall;export; end; var Form1: TForm1; implementation function TForm1.AreaQuadrada (Lado:Integer):Integer;Stdcall;export; begin Result := Lado * Lado; Lado:= StrToInt(Edit1.Text); Result:= IntToStr(Result);//MUDEI AQUI troquei o Edit pelo Result; end; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text := AreaQuadrada;//Aqui voce atribui o valor para o Edit end;



Responder

Gostei + 0

24/06/2003

Carnette

Esqueça a resposta anterior...Tava tudo errado


Responder

Gostei + 0

25/06/2003

Juarezber

Carnette, não funcionou esta parte:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := AreaQuadrada;//Aqui voce atribui o valor para o Edit
end;

Se não for pedir demais, daria pra vc testar antes
de mandar a resposta.

Grato
Juarez
juarezber@terra.com.br


Responder

Gostei + 0

25/06/2003

Carnette

Carnette, não funcionou esta parte: procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text := AreaQuadrada;//Aqui voce atribui o valor para o Edit end; Se não for pedir demais, daria pra vc testar antes de mandar a resposta. Grato Juarez juarezber@terra.com.br



public
{ Public declarations }
function AreaQuadrada (Lado:Integer):Integer;


implementation

{$R *.DFM}
function TForm1.AreaQuadrada (Lado:Integer):Integer;
begin
Result := Lado * Lado;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=IntToStr(AreaQuadrada(StrToInt(Edit1.Text)));
end;


Responder

Gostei + 0

25/06/2003

Carnette

Tambem pode ser assim:

public
{ Public declarations }
function AreaQuadrada (Lado:String):String;

end;

var
Form1: TForm1;

implementation

{$R *.DFM}
function TForm1.AreaQuadrada (Lado:String):String;
begin
Result := IntToStr(StrToInt(Lado) * StrToInt(Lado));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=AreaQuadrada(Edit1.Text);
end;


Responder

Gostei + 0

26/06/2003

Juarezber

Carnette, muito obrigado.

juarezber@terra.com.br


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar