2007 bahar dönemi İnternet ort. yazarlık dil ve uyg. (delphi)1.vize soruları

[nisan]

bu da 1. sorunun cevabı. arkadaştan aldım

Kod: [Seç]

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,toplam:integer;
begin
toplam:=0;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
while a<=b do
begin
toplam:=toplam+a;
a:=a+c;
end;
  edit4.Text:=IntToStr(toplam);

end;

end.

[memin]

çok sağol ya .. hakkaten işime yaradı.Bugün sınavda inş. bunun gibi çıkar da ben de kurtulurum.Bu arada çok denedim ama bir türlü buton rengi değişmedi.Bir yerlerde bişey var ama anlamadım..

[şanlıtuna]

with Button1 do
begin
  Width := 200;
  Caption := 'New Caption';
  Color := clRed;
end;
 

Buton bileşeninin Color özelliği olmamasına rağmen derleyici hata vermez çünkü Formun color özelliği bulunmakta. Buton bileşeninde böyle bir özellik bulamayınca Formunkini değiştirecektir.

Fakat aynı kodu WITH statement'ını kullanmadan yazsaydık derleyicden hata uyarısını alacktık.

Button1.Width := 200;
Button1.Caption := 'New Caption';
Button1.Color := clRed; // HATA!


kaynak:http://www.geocities.com/m_kasap/epascal/chapter5.htm

zaten değişemiyormuş  Hadi ALLAH kolaylık versin. kurtulursun inş başarılar...

[nisan]

soruyu iptal ettiriyormuşuz


tamam butonun renk değişme özelliği yok(button1 yazıp yanına nokta koyduğumuzda çıkan özelliklerde Color yok) ama font rengini değiştirebilmemiz lazım(button1 den sonra nokta koyulunca; çıkan özelliklerde Font var, ondan sonra nokta koyulduğunda da Color çıkıyor). yani button1.font.color un çalışması lazım  işte burayı anlamadım.

arkadaşlar öğrenirseniz öğretiniz