chamada em função
24/02/2003
0
É o seguinte criei uma função que chama ela mesma só que está dando um erro:
STACK OVERFLOW.
ela tem que ficar se chamando até eu mudar uma letra do edit e ai ela para.
Olha o codigo.
function TForm2.chamada(pA: string): string;
var Va:string;
begin
if pA = ´A´ then
begin
Va:=Form1.Edit1.text ;
chamada(Va);
end
else
begin
form2.ShowModal;
end;
end;
STACK OVERFLOW.
ela tem que ficar se chamando até eu mudar uma letra do edit e ai ela para.
Olha o codigo.
function TForm2.chamada(pA: string): string;
var Va:string;
begin
if pA = ´A´ then
begin
Va:=Form1.Edit1.text ;
chamada(Va);
end
else
begin
form2.ShowModal;
end;
end;
Anonymous
Curtir tópico
+ 0
Responder
Posts
24/02/2003
Shikota
É o seguinte criei uma função que chama ela mesma só que está dando um erro:
STACK OVERFLOW.
ela tem que ficar se chamando até eu mudar uma letra do edit e ai ela para.
Olha o codigo.
function TForm2.chamada(pA: string): string;
var Va:string;
begin
if pA = ´A´ then
begin
Va:=Form1.Edit1.text ;
chamada(Va);
end
else
begin
form2.ShowModal;
end;
end;
Tente fazer com a função While
Responder
Clique aqui para fazer login e interagir na Comunidade :)