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ı???
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;
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!!!!!!!!
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;
yapman gerekli ben yazım hatası yapmışım ezbere yazmıştım
gerçeği:
Kod:
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;