fechar uma procedure dentro de outra?confira porfavor.
22/05/2003
0
olá amigos o problema é o seguinte:
Dentro de um procedure eu estou chamando outra procedure que eu criei
só que eu quero o seguinte que dentro dessa procedure que eu criei ela feche a outra procedure.
ou seja eu quero dentro de uma procedure fechar outra procedure?
isso é possivel?
eu sei que o comando Exit sai da procedure correto?
porfavor amigos me dem uma luz , valeu amigos
Dentro de um procedure eu estou chamando outra procedure que eu criei
só que eu quero o seguinte que dentro dessa procedure que eu criei ela feche a outra procedure.
ou seja eu quero dentro de uma procedure fechar outra procedure?
isso é possivel?
eu sei que o comando Exit sai da procedure correto?
porfavor amigos me dem uma luz , valeu amigos
Felipesans
Curtir tópico
+ 0
Responder
Posts
22/05/2003
Juan Basso
Use uma funcao na chamada, ou seja, dentro da sua procedure chame uma funcao que retorne valores conhecidos e coloque isto dentro do if, exemplo:
function OI (Texto: String): Integer;
begin
if Length(Texto) > 0 then
Result := 1
else
Result := 0;
end;
procedure Blah;
begin
if (OI(´Alow´)) then
// Continuar funcao
end;
Isto eh uma saida.
PS: Desculpe a falta de acentos e do eh. Ete computador onde estou apresenta falhas no teclado.
function OI (Texto: String): Integer;
begin
if Length(Texto) > 0 then
Result := 1
else
Result := 0;
end;
procedure Blah;
begin
if (OI(´Alow´)) then
// Continuar funcao
end;
Isto eh uma saida.
PS: Desculpe a falta de acentos e do eh. Ete computador onde estou apresenta falhas no teclado.
Responder
22/05/2003
Rafael Heise
Bom.. existem duas maneiras de fazer isso .. a primeira, já foi citada...
ao invés de você chamar uma procedure, chame uma função, e dependendo do resultado da função, você continua ou não
procedure
begin
...
if not funcao then
exit;
...
end;
ou você pode usar ´abort;´, é uma função do delphi, que cancela TODO o processo em questão, ou seja, se você estiver no 1º, no 2º ou no 5º nível de procedures adentro, voce saira de TUDO ao chamar abort;. Isso é perigoso pois faz com que pare todo o processo em questão e espere uma nova ação do usuário.
é isso ae... mas se você estiver certo do que está fazendo, abort é uma outra saida.... mas eu usuaria a função ;-)
abraços....
ao invés de você chamar uma procedure, chame uma função, e dependendo do resultado da função, você continua ou não
procedure
begin
...
if not funcao then
exit;
...
end;
ou você pode usar ´abort;´, é uma função do delphi, que cancela TODO o processo em questão, ou seja, se você estiver no 1º, no 2º ou no 5º nível de procedures adentro, voce saira de TUDO ao chamar abort;. Isso é perigoso pois faz com que pare todo o processo em questão e espere uma nova ação do usuário.
é isso ae... mas se você estiver certo do que está fazendo, abort é uma outra saida.... mas eu usuaria a função ;-)
abraços....
Responder
Clique aqui para fazer login e interagir na Comunidade :)