Buscar por:

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