SBS AÇIKLANDI

T.C. Millî Eğitim Bakanlığı Ortaöğretime Geçiş Sistemi 2012 Yılı 8. Sınıf Seviye Belirleme Sınav Sonuçları ve Ortaöğretim Yerleştirme Puan Bilgileri   T.C. Kimlik Numaranız : Doğum Tarihiniz :     ©2012 T.C. MİLLÎ EĞİTİM BAKANLIĞI Tüm hakları saklıdır.

KPSS Soruları ve Cevapları açıklandı

SORU KİTAPÇIKLARI VE YANITLARINI GÖRMEK İÇİN TIKLAYINIZ....

Listbox Sıralama

Listbox ve buton ekleyerek,listbooxa girilen bilgileri butona basıldığında sıralayan programın kodu=

procedure TForm1.FormCreate(Sender: TObject);

begin

ListBox1.Items.Add('Ankara');

ListBox1.Items.Add('İstanbul');

ListBox1.Items.Add('İzmir');

ListBox1.Items.Add('Kırıkkale');

ListBox1.Items.Add('Muğla');

ListBox1.Items.Add('Samsun');

ListBox1.Items.Add('Diyarbakır');

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.Sorted:=TRUE;

end;

end.

   

Edit1 ve Edit2 arasındaki sayılar

2Edit,1button,1memo ekle,butona basıldığında edit1 ve edit2 arasındaki sayıları memoya yazdıran programın kodu=

Kodu;

procedure TForm1.Button1Click(Sender: TObject);

var a,b,I:word;

begin

a:=StrToInt(edit1.Text) ;

b:=StrToInt(edit2.Text) ;

Memo1.lines.Clear;

for i:=a to b do

memo1.Lines.add (IntToStr(i));

end;

end.

Listbox Toplam Eleman Sayısı

listbox,label,edit eklyerek,listbox’ta toplam eleman sayısını edite yazdıran kod=

procedure TForm1.FormCreate(Sender: TObject);

begin

ListBox1.Items.Add('Elif');

ListBox1.Items.Add('Kurtoğlu');

ListBox1.Items.Add('Bilgisayar Programcılığı');

ListBox1.Items.Add('Kırıkkale');

ListBox1.Items.Add('Meslek Yüksek Okulu');

ListBox1.Items.Add('2.sınıf');

ListBox1.Items.Add('Normal öğrenim');

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

edit1.Text:=IntToStr(ListBox1.Count);

end;

end.

Listbox seçilen elemanın sırası

listbox,label,edit eklyerek,listbox’ta seçilen elemanın sırasını edite yazdıran kod=

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.Add('Elif');
ListBox1.Items.Add('Kurtoğlu');
ListBox1.Items.Add('Bilgisayar Programcılığı');
ListBox1.Items.Add('Kırıkkale');
ListBox1.Items.Add('Meslek Yüksek Okulu')
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 edit1.Text:=IntToStr(ListBox1.ItemIndex+1);
end;
end.

Listbox edite ekle-seçili elemanı sil

Listbox,label,edit eklerek, listbox’ta seçilen elemanı edite yazdıran ve seçilen elemanı silen kod=

procedure TForm1.FormCreate(Sender: TObject);

begin

ListBox1.Items.Add('Elif');

ListBox1.Items.Add('Kurtoğlu');

ListBox1.Items.Add('Bilgisayar Programcılığı');

ListBox1.Items.Add('Kırıkkale');

ListBox1.Items.Add('Meslek Yüksek Okulu');

ListBox1.Items.Add('2.sınıf');

ListBox1.Items.Add('Normal öğrenim');

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

edit1.Text:=ListBox1.Items[ListBox1.ItemIndex];

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.Items.Delete(ListBox1.ItemIndex);

end;

end.