Delphi de FOR döngüsüyle EDİT lere değer aktarma yardım!!!

[@engineer]

arkadaşlar şimdiden yardımcı olan herkeze teşekkürler.
hata verilen kısım resimde görülmektedir nasıl bir değişiklikle düzeltilebilir yoksa mantık hatasımı vardır düşündüğüm işi yapabilecek kısa çözüm önerisi olan varmı???

 

[@engineer]

arkadaşlar kodları aşağıda ki gibi resim koydum ama görünmüyor kırmızıyla yazılı bölge hata veriyor


------------------------------
var
Form1: TForm1;
a:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
for a:=1 to 6 do
begin
edit(a).text:='1';
end;
end;

 

[@engineer]

bir fikri olan yokmu????

edit1 , edit2 , edit3 , edit4 , edit5 , edit6 nın içine döngüyle deger atamak istiyorum nasıl yapmalıyım ya da dizilerden mi yapmaya çalışsam
fikri olan varsa yardımcı olabilir mi acaba!!!!!!!!

 

[@engineer]

arkadaşlar delphiyle uğraşan kimse yokmu

 

[tr_escape]

var
  n:integer;
  s:string;
begin
  for n:=1 to 10 do
    begin
       s:='TEdit'+inttostr(n);
       TEdit(FindComponent(s)).Text := 'Bu edit'+ inttostr(n) +' nesnesidir';
    end;
end;

Şeklinde yapabilirsin

 

[@engineer]

tr_escape verdiğin cevap için teşekkürler hemen deneyip sonucu bildiricem

 

[@engineer]

yaptım ama herhangi bir değişiklik olmuyor buttona basınca biraz daha açıklarmısın?

 

[@engineer]

kırmızıyla yazılı yerlerde hata veriyor bi fikri olan varmı kimse delphiyle ilgilenmiyor galiba yeteri kadar öneri gelmiyor

if a='1' or b='1' or c='1' or d='1' or e='1' or f='1' then

 

[@engineer]

kendi soruma cevap veriyim

if (a='1') or (b='1') or (c='1') or (d='1') or (e='1') or (f='1') then

olunca hata vermiyor fakat ilk soruma henüz cevap veremedim???

 

[tr_escape]

yaptım ama herhangi bir değişiklik olmuyor buttona basınca biraz daha açıklarmısın?

Kodlamadaki

s:='Tedit'+inttostr(n);

kısmını

s:= 'edit'+inttostr(n);

yapman gerekli ben yazım hatası yapmışım ezbere yazmıştım

gerçeği:

procedure TForm1.Button1Click(Sender: TObject);
var
  n : integer;
  s : string;
begin
  for n:=1 to 10 do
    begin
      s := 'Edit'+inttostr(n);  // yani edit1..edit10
      TEdit(FindComponent(s)).Text := 'Bu edit '+inttostr(n) + ' nesnesidir';
      caption := TEdit(FindComponent(s)).Name;
    end;
end;