chamada em função
É 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
Curtidas 0
Respostas
Shikota
24/02/2003
É 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
GOSTEI 0