Delphi Forum

gereken programı yazdım kardeş çok çok tşk ederim. kolay gelsin. ihtiyacı olan arkadaş warsa örenk program aşağıdadır.

var
deger,i,a:integer;
begin
deger:=0;
for i:=1 to 5 do
begin
a:=strtoint((FindComponent('Edit'+inttostr(i)) as TEdit).Text);
if a>deger then
deger:=a;

end;
edit6.Text ...

kardeş senden son ricam olacak. ben çok ii delphi bilen biri deilim. son olarak for döngüsü 1 den 10 a kadar olsun. ve her sayının karesi sırasıyla edit kutusuna yazılsın.
mesela aşagıdaki programı for dongusuyle edit(i).text:=inttostr(i*i) böyle buna benzer bi komutla yapabilirsen çok daha ii ...

kardeş öncelikle tşk ediorum. 2. verdiğin biraz daha kafamı yattı ama bilmediğim komutlar war denedim olmadı zaten buldugu buyuk sayıyı yazdıracağı bi yer yok. ayrıca şöyle bir şey yapmamız mumkunmu for döngüsü içinde edit(i).text gibi programlamamız mumkunmu??

arkadaşlar uzun zamandır arıorum ama bulamıorum yardımcı olursanız sevinirim.şimdi soru şöle;
10 adet edit kutusu var. bu kutulara sayıları girioruz. button 1 e tıklayarak bu sayıların en buyugunu edit11 e yazdıracak programı nasıl yapabilirim???