La�o em Delphi

Question

Sou programador em Clipper, e gostaria de fazer uma rotina em delphi conf abaixo:

var1=substr(codigo,1,13)
vvalor=valor
do while codigo=substr(codigo,1,13)
var2=substr(codigo,1,9)
do while codigo=substr(codigo,1,9)
var3=substr(codigo,1,5)
do while codigo=substr(codigo,1,5)
vvalor=vvalor+valor
skip
enddo
enddo
enddo

Afarias · Answer

vc tem 2 estruturas de la�o no Delphi (n�o contando o FOR) ::

while (condi��o) do // executa e repete SE/ENQUANTO condi��o verdadeira
begin
{fa�a algo aqui}
end;

repeat
{fa�a algo aqui}
until (condi��o); // repete AT� q condi��o seja verdadeira

F�rum La�o em Delphi #219924