delphide dizi değişkeniyle büyükten küçüğe sıralama
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 3
- Kayıt: 06 Eki 2011 04:31
delphide dizi değişkeniyle büyükten küçüğe sıralama
slm arkadaşlar delphi programında
2 strinngrid
2 buton
1edit
bu bileşenlerle şu program yazılacak
ilk olarak edite sayı girilecek butona basınca bu sayı kadar 1.stringgridin sütunları o sayı kadar olacak örnek 5 girdik butona tıkladık 1.stringgrid 5 sütun olacak.
2.olarak ise 2.butona basıldığında 1.stringgridde her sütuna bir sayı gelecek. 2.stringgridde de bu sayılar dizi değişkeni ile büyükten küçüğe sıralanacak.
bu arada stringgridler 1 satırdan oluşuyor.yani rowcount değeri 1 colcount değeri ise 10 olarak ayarladık
kullanılacak değişken dizi değişkeni
lütfen yardım edin arkadaşlar bugn içinde yapılması gerekiyor.
şimdiden teşekkür ederim
2 strinngrid
2 buton
1edit
bu bileşenlerle şu program yazılacak
ilk olarak edite sayı girilecek butona basınca bu sayı kadar 1.stringgridin sütunları o sayı kadar olacak örnek 5 girdik butona tıkladık 1.stringgrid 5 sütun olacak.
2.olarak ise 2.butona basıldığında 1.stringgridde her sütuna bir sayı gelecek. 2.stringgridde de bu sayılar dizi değişkeni ile büyükten küçüğe sıralanacak.
bu arada stringgridler 1 satırdan oluşuyor.yani rowcount değeri 1 colcount değeri ise 10 olarak ayarladık
kullanılacak değişken dizi değişkeni
lütfen yardım edin arkadaşlar bugn içinde yapılması gerekiyor.
şimdiden teşekkür ederim
Re: acil delpide dizi değişkeniyle büyükten küçüğe sıralama
s.a.
arkdaşım öncelikle aramıza hoş geldin.
burada balık vermekten ziyade balık tutmayı öğretiyoruz.
o yüzden ödevlerinizi bize sormayın. ödevi yaparken takıldığınız noktalarda yardım isterseniz daha fazla arkadaş yardımcı olmaya çalışacaktır. birde forum eşsiz bir hazine aradığınız zaman sorularınızın çoğunun cevabını bulabilirsiniz.
iyi günler.
arkdaşım öncelikle aramıza hoş geldin.
burada balık vermekten ziyade balık tutmayı öğretiyoruz.
o yüzden ödevlerinizi bize sormayın. ödevi yaparken takıldığınız noktalarda yardım isterseniz daha fazla arkadaş yardımcı olmaya çalışacaktır. birde forum eşsiz bir hazine aradığınız zaman sorularınızın çoğunun cevabını bulabilirsiniz.
iyi günler.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
-
- Üye
- Mesajlar: 3
- Kayıt: 06 Eki 2011 04:31
Re: acil delpide dizi değişkeniyle büyükten küçüğe sıralama
hoşbulduk arkadaşım o zaman şöyle sorsam nasıl olur:aslangeri yazdı:s.a.
arkdaşım öncelikle aramıza hoş geldin.
burada balık vermekten ziyade balık tutmayı öğretiyoruz.
o yüzden ödevlerinizi bize sormayın. ödevi yaparken takıldığınız noktalarda yardım isterseniz daha fazla arkadaş yardımcı olmaya çalışacaktır. birde forum eşsiz bir hazine aradığınız zaman sorularınızın çoğunun cevabını bulabilirsiniz.
iyi günler.
ben ilk kısmı hallettim şimdi sorunum 2.kısımda yani dizi değişkeniyle büyükten küçüğe sıralama bunu saatlerdir uğraşıyorum araştırmalarda yaptm ama bir türlü bulamadm daha önce dizi değişkenini delpide kullanmamştm bu yüzden cok zorlanıyorum öğrenci olduğum için de takıldım kaldm yardımcı olursanız sevinirim.
forumunuz konusuna gelnce program hakkında bilgi veren sayılı formlardan burayı secmemin nedeni de her zamn doğru yolu gösteren kodlar var burada tekrar teşekkür ederm
Re: delphide dizi değişkeniyle büyükten küçüğe sıralama
yazdığın kodları gönder ne yapmışsın bi bakalım. nerede takılmışsın bi bakalım ona göre yol gösterelim.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
burda nerde yanlış yaptıgımı bulamadım ben inş müh ögrencisiyim bilg müh deyilim ki
var
Form1: TForm1;
k:integer;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
for i:=0 to k do
memo1.Lines:=inttostr(k-i);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
k:=strtoint(edit1.Text);
if((k<20)and(k div 5<4))or(k mod 5-4>4) then
timer1.Enabled:=true
else
begin
while k<20 do
begin
label1.Font.Size:=20;
label1.Font.Style:=[fsbold];
label1.Font.caption:=inttostr(k*4);
end;
end;
end;
end.
var
Form1: TForm1;
k:integer;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
for i:=0 to k do
memo1.Lines:=inttostr(k-i);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
k:=strtoint(edit1.Text);
if((k<20)and(k div 5<4))or(k mod 5-4>4) then
timer1.Enabled:=true
else
begin
while k<20 do
begin
label1.Font.Size:=20;
label1.Font.Style:=[fsbold];
label1.Font.caption:=inttostr(k*4);
end;
end;
end;
end.
Re: delphide dizi değişkeniyle büyükten küçüğe sıralama
s.a.
aldığın hata mesajını da yazaydın iyi olurdu. Derlerken mi hata alıyorsun, yoksa butona tıklayınca mı bilemedim.
Eskiden olsa küreye bakardım ya artık o işleri de bıraktım.
aldığın hata mesajını da yazaydın iyi olurdu. Derlerken mi hata alıyorsun, yoksa butona tıklayınca mı bilemedim.
Eskiden olsa küreye bakardım ya artık o işleri de bıraktım.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Re: delphide dizi değişkeniyle büyükten küçüğe sıralama
Kod: Tümünü seç
procedure TForm2.Button1Click(Sender: TObject);
begin
k:=strtoint(edit1.Text);
if((k<20)and(k div 5<4))or(k mod 5 -4>4) then
timer1.Enabled:=true
else
begin
while k<20 do
begin
label1.Font.Size:=20;
label1.Font.Style:=[fsbold];
//label1.Font.caption:=inttostr(k*4); /*Font ta caption özelliğini ilk sizde gördüm */
label1.caption:=inttostr(k*4);
end;
end;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var
i:integer;
begin
for i:=0 to k do
memo1.Lines.Add(inttostr(k-i)); //[i]:=inttostr(k-i);
end;
Re: delphide dizi değişkeniyle büyükten küçüğe sıralama
aşağıdaki kodlar tam senin istediğini yaparacemiprogramci » 06 Ekm 2011 01:58
slm arkadaşlar delphi programında
2 strinngrid
2 buton
1edit
bu bileşenlerle şu program yazılacak
ilk olarak edite sayı girilecek butona basınca bu sayı kadar 1.stringgridin sütunları o sayı kadar olacak örnek 5 girdik butona tıkladık 1.stringgrid 5 sütun olacak.
2.olarak ise 2.butona basıldığında 1.stringgridde her sütuna bir sayı gelecek. 2.stringgridde de bu sayılar dizi değişkeni ile büyükten küçüğe sıralanacak.
bu arada stringgridler 1 satırdan oluşuyor.yani rowcount değeri 1 colcount değeri ise 10 olarak ayarladık
kullanılacak değişken dizi değişkeni
Kod: Tümünü seç
procedure TForm2.Button1Click(Sender: TObject);
begin
StringGrid1.ColCount:=StrToInt(Edit1.Text); //Edit ten girilen değere göre colcount u ayarla
end;
procedure TForm2.Button2Click(Sender: TObject);
var
i:Integer;
begin
k:=StrToInt(Edit1.Text);
for i:= StrToInt(Edit1.Text) downto 0 do
begin
StringGrid1.Cells[I,1]:=IntToStr(k-i);
end;
end;