[delphi xe3]: ciclo for su label.caption

[karug64]

Salve a tutti.
Ho sul form una serie di label che si chiamano Lab_1, Lab_2 .... Lab_10 che di default sono settate a "."
Avrei bisogno di controllarne la caption all'interno di un ciclo e se è uguale a "." assegnarle un valore.

Pensavo di faro con un ciclo for, ma come ?

Ovviamente

Codice: Seleziona tutto

var
  I: Integer;
begin
  for I := 1 to 10 do
  if trim(Lab_ + I .caption) = '.' then
    Lab_I.Caption = ADOtable2.FieldByName('Art').AsString


non va.

Potreste aiutarmi ?

Grazie

[infinito1971]

Ciao karug,
per fare quello che che vuoi devi necessariamente utilizzare un array di label, per cui devi trasformare le tue label in: Lab[1], Lab[2],..., Lab[10]; senza array è impossibile fare quanto chiedi.


Un saluto,
infinito1971

[karug64]

Scusa il ritardo nella risposta. Così ho risolto. Grazie.