F�rum Vari�vel recebe valores de 1 a 50; #134950

15/04/2010

Gostaria que uma variavel recebece deteerminados valores mais n�o seu com fazer oc�digo tentei assim mais est� errado: a:=1 or 50 b:=51 0r 10 ---------------------------------------------------------------- quero que a:=de 1 a 50; e b:=de 51a100; como escrevo isso;

Benilton

Curtir t�pico

+ 0

Responder

Posts

16/04/2010

Carlos

BENILTON,

Veja se isso ajuda:

procedure TForm1.Button1Click(Sender: TObject);
var
a : Array[1..50] of byte;
b : Array[51..100] of byte;
I, K, L : byte;
s : string;
begin
for I := 1 to 50 do
     a[I] := I;

for K := 51 to 100 do
     b[K] := K;

for L := 1 to 50 do begin
    s := s + 'a: '+inttostr(a[L])+'   '+
             'b: '+inttostr(b[L+50])+#13;
end;
showmessage(s);
end;

Testei no BDS 2006 (Delphi "9").
Espero que ajude.carlosrm

Responder

Gostei + 0