Panelin zemin ve yazı tipini değiştiren program

1Panel,3Edit,2Radiobutton,1button ekleyerek,gerekle işlemleri yapıp butona tıklandığında panelin zemin ve yazı tipini değiştiren programın kodu.

Kodu;

procedure TForm1.Button1Click(Sender: TObject);

var r,g,b : Integer;

begin

r := StrToInt(Edit1.Text);

g := StrToInt(Edit2.Text);

b := StrToInt(Edit3.Text);

if RadioButton1.Checked then

Panel1.Color := rgb(r,g,b);

if RadioButton2.Checked then

panel1.Font.Color := rgb(r,g,b);

end;

end.

Kurs Fiyatlarını Hesaplayan Program

6radiobutton,1checkbox,1edit,1button,3label,3GroupBox ekleyiniz. Kurs fiyatlarını hesaplayan programın kodu.

Kodu;

procedure TForm1.FormCreate(Sender: TObject);

begin

RadioButton1.Checked:=true;

RadioButton5.Checked:=true;

CheckBox1.Checked:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

katsayi,kdvorani:Integer;

fiyat:Currency;

begin

katsayi:=100;

if CheckBox1.Checked then

Dec(katsayi,20);

if RadioButton5.Checked then

kdvorani:=20

else

kdvorani:=25;

if RadioButton1.Checked then

fiyat:=2000*(kdvorani+katsayi)/100

else if RadioButton2.Checked then

fiyat:=1500*(kdvorani+katsayi)/100

else if RadioButton3.Checked then

fiyat:=2500*(kdvorani+katsayi)/100

else if RadioButton4.Checked then

fiyat:=4000*(kdvorani+katsayi)/100;

Edit1.Text:=FloatToStr(fiyat);

end;

end.

Eleman Sayısı Bul,Eleman Ekle,Eleman Aktar

1ComboBox,3button,1Memo,1Edit ekleyerek; eleman sayısını bulan,eleman ekleyen,memo bileşenindeki elemanları ComboBox’a ekleyen programın kodu.

Kodu;

procedure TForm1.Button1Click(Sender: TObject);

var

elemanSayisi : Integer;

begin

elemanSayisi := ComboBox1.Items.Count;

ShowMessage(IntToStr(elemanSayisi));

 end;

 procedure TForm1.Button2Click(Sender: TObject);

begin

ComboBox1.Items.add(Edit1.Text);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

ComboBox1.Items.Assign(Memo1.Lines);

end;

end.

Stringgrid Sırasıyla Rakam Yazdırma

Stringgrid ekleyerek sırasıyla rakamları yazdıran kod.

procedure TForm1.FormCreate(Sender: TObject);

var

a,b,c:word;

begin

c:=0;

for a:=1 to 6 do

for b:=1 to 6 do

begin

c:=c+1;

S1.Cells[b,a]:=inttostr(c);

end;

end;

end.

ComboBox eleman ekle,eleman sayısı bul

1ComboBox,3button,1Memo,1Edit ekleyerek; eleman sayısını bulan,eleman ekleyen,memo bileşenindeki elemanları ComboBox’a ekleyen programın kodu. 

Kodu;

?

procedure TForm1.Button1Click(Sender: TObject);   var   elemanSayisi : Integer;   begin   elemanSayisi := ComboBox1.Items.Count;   ShowMessage(IntToStr(elemanSayisi));        end;        procedure TForm1.Button2Click(Sender: TObject);   begin   ComboBox1.Items.add(Edit1.Text);   end;   procedure TForm1.Button3Click(Sender: TObject);   begin   ComboBox1.Items.Assign(Memo1.Lines);   end;   end.