Variável recebe valores de 1 a 50;
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
Curtidas 0
Respostas
Carlos
15/04/2010
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
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
GOSTEI 0