Buscar

como voltar ao inicio de um while fazendo um loop de onde se encontra

Código


caros colegas

uma coisa simples mas bastante util , é quando queremos voltar ao inicio no WHILE , e fazer toda comparacao novamente , isso em casos de uma comparacao de campos , onde o registro comparado nao obedeca aos criterios de todos os IF do sistema. assim :

var
  y:String;
  vctag:integer;
  inicio:string;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

Edit1.TabOrder:=0;

y:='S';
Vctag:=0;

// inicio do loop
while y='S' do begin

  Vctag:=Vctag + 1;

  if vctag>30 then begin
       ShowMessage(' E trinta........................');
       y:='N';
       continue;
  end;

  if vctag>20 then begin
       ShowMessage(' E Vinte........................');
       continue;

  end;

  if vctag>10 then begin
       ShowMessage(' E dez........................');
       continue;
  end;

  showmessage(' Ainda  ....é -'+CurrToStr(vctag));


end; // fim original do loop



  showmessage(' FIM DO SISTEMA......... ');
  Application.Terminate;


end;



OBS :
Muito util em Casos de procurar um Registro que a  Cidade seja RECIFE e o Bairro BOA VIAGEM , e se for diferente pula para o proximo registro , e faca toda comparacao novamente de bairro e cidade.

Espero que ajude

SIC-NET informatica Ltda
Clovis l Costa
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 22/03/10
Por: Clovis L Costa
Visualizada: 8382 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009