Fórum dúvida com laço for #287346
07/07/2005
0
e não estou conseguindo, por isso peço a ajuda de vcs.
Vou explicar rapidamente o objetivo dessa funcionalidade:
Uma tela de cadastro com 3 textbox(txtAndarIni, txtAndarFim, txtIntervalo)
o objetico é inserir andares numa tabela.
Fiz isso em ASP(mas no asp, tem lá o ´step´), mas no Delphi estou levando uma surra
Segue o codigo em ASP:
ini = CInt(txtAndarIni.text)
fim = CInt(txtAndarFim.text)
intervalo = CInt(txtIntervalo.text)
for ini = ini to fim step 100
Dim i
for i= ini to ini + intervalo
//INSERIR ANDAR i
next
nex
EX: ini = 401, fim = 1203, intervalo = 2
//DADOS INSERIDOS NA TABELA
401
402
403
501
502
503
...
1201
1202
1203
Angelomi
Curtir tópico
+ 0Posts
07/07/2005
Rjun
ini := StrToInt(txtAndarIni.text);
fim := StrToInt(txtAndarFim.text);
intervalo := StrToInt(txtIntervalo.text);
while (ini <= fim) do
begin
for i := ini to (ini + intervalo)
// Inserir Andar;
fim := fim + 100;
end;
Gostei + 0
07/07/2005
Angelomi
o INC(ini,100);
daria certo?
Obrigado pela ajuda
Gostei + 0
07/07/2005
Rjun
Gostei + 0
09/07/2005
Beppe
Para incrementar uma variável local, a performance é a mesma. A única diferença é semântica, já que ambos os lados de uma atribuição precisam ser avaliados, e por isso expressões não-funcionais podem gerar resultados diferentes.
Exemplo(Random pode retornar resultados diferentes):
Inc(A[Random(10), 100]);
A[Random(10)] := A[Random(10)] + 100;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)