Lazarus 3.0 (2023.12.21.)
Letöltés

  • Oldal:
  • 1

TÉMA:

Futáskor komponens bejárása 2016 máj. 24 14:14 #2002

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 499
  • Köszönetek: 86
TApplication.Components
.... és összehasonlítás az is kulcsszóval (nem = jellel)
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

Futáskor komponens bejárása 2016 máj. 24 14:06 #2001

  • makgab
  • makgab profilkép Témaindító
  • Törzsgárda tag
  • Törzsgárda tag
  • Hozzászólások: 280
  • Köszönetek: 1
Üdv!
Adott egy app és néhány formon van SQLQuery komponens. Ezeknek néhány (float) mezője be van állítva, pl. DisplayFormat:='#0.0000'
Be lehet járni valahogy ezeket a komponenseket és beállítani a DisplayFormat értéket?
Tehát ilyesmire gondoltam:
procedure TmainForm.FormCreate();
begin
  for i:=0 to Component.Count...
    if (Components[i] as TSQLQuery ) then (Components[i] as TSQLQuery).DisplayFormat:='#0.00';
...

Be szeretném járni az SQLQuery komponenseket az alkalmazásban futáskor.
Hasonlóan, mint Form-ok bejárása:
       for i:=0 to Screen.FormCount-1 do
          if ( Screen.Forms[i].Visible ) and ( Screen.Forms[i].Name <> 'mainForm' ) then
               // do something

  • Oldal:
  • 1