procedure de parametre sorunu

[şimal]

Merhabalar...
formumun birinde pomp1, pomp2, pomp3,... pomp(n) şeklinde panellerim var.
Her pomp panelin üstünde üstünde
popm1ekran, pomp1litre
popm2ekran, pomp2litre
popm3ekran, pomp3litre
.
.
popm(n)ekran, pomp(n)litre şeklinde 2 şer tanede panel var

birde procedurum var:
procedure kontrolet(pomp: TPanel);
var
compsay
begin
for compsay := 0 to pomp.ComponentCount-1 do
begin
if pomp.Components[compsay].Name=pomp.Name+'ekranpara' then pomp.Components[compsay].caption:='';
end;
end;


örneğin procedure parametre olarak gönderdiğim pomp1 panelinin üzerindeki pomp1ekranpara panelinin caption özelliğine boşluk atamak istiyorum.
veya pomp2 yi parametre gönderip pomp2ekranpara panelinin caption özelliğine boşluk atamak istiyorum...

Umarım derdimi anlatabilmişimdir:)

Bunu nasıl yapabilirim???


Yukarıdaki kod da undeclared identifier caption hatasını veriyor...

[gkimirti]

pomp.Components[compsay] aldıgın sey TComponent tipinde olup caption diye bir property si yok
TPanel(pomp.Components[compsay]).caption seklinde kullanırsan sorun cıkmaz

[şimal]

Çok teşekkürler....
Ewt sorun buymuş

[şimal]

Şunu farkettim bu kod hata vermiyor ancak panel üstündeki componentleride saymıyor
bunun için döngü şartı şu şekilde olmalıymış :

for compsay := 0 to form1.ComponentCount -1 do
begin
if form1.Components[compsay].Name=pomp.Name+'ekranpara' then form1.Components[compsay].caption:='';
end;

Searchde başlığa ulaşıpda sonradan inceleyebilecek arkadaşlar için düzeltme yapalım istedim...
Herkeslere kolay gelsin....