Question 1

Jak w pętli odwołać się do wszystkich komponentów?

admin · Accepted Answer

Jeżeli chcesz się odwołać do np. wszystkich TEdit, użyj następującego kodu:

for i := 0 to Form1.ComponentCount - 1 do

  if (Form1.Components is TEdit) then 

    (Form1.Components as TEdit).Text := '' ;

1

2

3

4

5

for i := 0 to Form1.ComponentCount - 1 do

if (Form1.Components is TEdit) then

(Form1.Components as TEdit).Text := '' ;

ComponentCount przechowuje liczbę komponentów znajdujących się na formie. Components to tablica zawierająca kolejne komponenty. Sprawdzamy operatorem is, czy dany komponent jest klasy TEdit, a jeśli tak, to każemy, za pomocą operatora as, uznać go za TEdit. Dzięki temu mamy dostęp do metod i właściwości klasy TEdit.

Autor: Iskar

Question 2