değişkenlere findcompenant ile ulaşabilirmiyiz?

[forumsad]

arkadaşlar çok ihtiyacım olan bir konu var sıralı değişken veya dizilere findcompenant benzeri şekilde ulaşarak toplu olarak değerlerini
alabilirmiyi...

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i,deg1,deg2,deg3:integer;
begin
deg1:=5;
deg2:=6;
deg3:=7;
for i:=1 to 3 do
              begin
              //ListBox1.Items.Add(IntToStr(deg1));
              burda findompenant benzeri bir olayla 3 değişkenin degerinide listboxa atabilirmiyi
              ListBox1.Items.Add(IntToStr(findcompenant));
              end;
end;

Kod: Tümünü seç

ListBox1.Items.Add(inttstr(findcompenand('deg'+inttostr(i)));

gibi bir mantıkla bu iş yapılabilir mi..

[yusuf simsek]

kanaatimce, değişken tanımlamak yerine dizi yaparsanız istediğinizi yapabilirsiniz

procedure TForm1.Button1Click(Sender: TObject);
var
arr[1..10] : array of integer;
begin
arr[0] := 5;
arr[1] := 6;
arr[0] := 7;

for i:=1 to 3 do
ListBox1.Items.Add(arr);
end;