Laço em Delphi

Delphi

11/03/2004

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


Cosmenick

Cosmenick

Curtidas 0

Respostas

Afarias

Afarias

11/03/2004

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


GOSTEI 0
POSTAR