Başka formdan bi componentin içeriğini almak.

[sako]

Şimdi benim 30 formluk bi program var. Her formun içindeki edit1 in içeriğini 31. formdaki editlerin içerisine aktaracam. Şöyle bişe yazdım ama kabul etmedi.

for i:=1 to 30 do begin
TEdit(FindComponent('Edit'+IntToStr(i))).Text :=Tform(FindComponent('form'+IntToStr(i))).(FindComponent('Edit'+IntToStr(i))).Text';

böyle bişe yazdım ama bold yazdığım alanda hata veriyor. Başka bi yolu varmı acaba

kolay gelsin.

[mrmarman]

Satırda kural hatası yapmışsın o kadar...

1. Tırnak ile bitirmişsin...
2. koyu yazdığın FindComponent'i parantez içine almışsın, halbu ki tümünü TEdit parantezine almalıydın... Ancak bu sayede sondaki Text ibaresinin bir TEdit'e ait olduğunu kanıtlarsın...

Kod: Tümünü seç

  TEdit(FindComponent('Edit'+IntToStr(i))).Text :=TEdit(Tform(FindComponent('form'+IntToStr(i))).FindComponent('Edit'+IntToStr(i))).Text;

[sertkayasalih]

Merhaba sako,

- Aklıma geldiği kadarıyla, 1 den 30 a kadar olan edit içeriğini okutup aktarmak mantığıyla aşağıdaki gibi bir düzenlemeyle yapılabilinir.

Umarım yardımcı olur.

Kod: Tümünü seç

var
  i        : integer;
  iEdit   : TEdit; // 1-30 arası Formdaki okunacak Edit ler için.
begin
   for i := 1 to 30 -1 do
   begin
      iEdit := Tform(FindComponent('form'+IntToStr(i))).(FindComponent('Edit'+IntToStr(i))) as TEdit;//1-30 arası Formdaki Edit ler için.
      FindComponent('sEdit'+IntToStr(i) as TEdit).Text := iEdit.Text;// sEdit 31. formdaki Edit tanımları (sEdit1, sEdit2, vs..).
   end;
end;

[sertkayasalih]

Muharrem hocam,

Özür...

- Ben yanıtlamaya çalışırken siz cevabı yazmışsınız.
- İnşallah sizin cevabınıza alternatif olarak düşünmezsiniz

[mrmarman]

@midijor

- Merhaba...

- Neden öyle düşüneyim. Ayrıca öyle ya da değil fikir çeşitliliği her zaman en güzelidir.. Lütfen başlığa cevap yazılmış deyip boş geçmeyin. Her cevabın bugün olmasa bile gelecekte mutlaka faydası olacaktır...

[sertkayasalih]

Teşekkür ederim Muharrem Hocam