Delphi/Lazarus - lablel jako zmienna?

0

Witam, mam problem z napisaniem programu, wiem, że kiedyś zrobiłem podobną rzecz, ale teraz już nie pamiętam jak to zrobiłem. Mam takie coś:

var
t: array[1..15] of integer;
a,b: integer;
d:string;
begin
b:=17;
for a:=1 to 7 do
begin
d:='label'+inttostr(b)+'.caption';
t[a]:= StrToInt(d);
b:=b+1
end;

chodzi mi dokładnie o d, tak żeby z każdym zapętlaniem zmieniała się nazwa label'a o +1, uruchamia program, ale jak wlacza tą procedure to jest błąd.

0

No a Google, lub wyszukiwarka 4p to już nie istnieją...
FindComponent

A tak poza tym, to błąd jest tutaj:

     d:='label'+inttostr(b)+'.caption';
     t[a]:= StrToInt(d);

Jak ty chcesz tekst "label(jakaś liczba).caption" zamienić na int'a, chłopie - podstawy !

0

Pal gume. Urodziłeś się z tą wiedzą co ją masz teraz?

"No a Google, lub wyszukiwarka 4p to już nie istnieją" - to po cholere są te wszystkie fora, skoro wg ciebie: wszystko mozna znaleŹĆ w google?

nie chce zamieniać "label(jakaś liczba).caption" tylko zawartość tego "caption"

1 użytkowników online, w tym zalogowanych: 0, gości: 1