Arama butonu
Bu konudaki kullanıcılar: 1 misafir
9
Cevap
547
Tıklama
0
Öne Çıkarma
DELPHİ İÇİN ACİLEN YARDIMMMMMMMM
H
20 yıl
Çavuş
Konu Sahibi

ARKADAŞLAR DELPHİDE PROGRAM YAZMAK GEREK FAKAT YAZACAĞI PROGRAM GEREĞİ PROGRAM ÇALIŞITRILDIĞINDA FARENİN SAĞ TUŞUNA TIKLAYIP ORDA SIRALA SECENEKLERİ KOYDURTMAM VE BU SECENKLERE GÖRE SIRALAM YAPTIRMAM LAZIM NASI YAPCAM?
FARENİN SAĞ TUŞUNUN İŞLEVİNİ NASI AÇABİLİRİM??

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil



N
20 yıl
Teğmen

bildiğim kadarıyla popup menü yü kullanarak menünü oluşturcaksın. zaten popup menü de sağ tıklamayla çalışıyor.
bi dene bende yeni başladım yanlış olabilir


Bu mesaja 1 cevap geldi.
D
20 yıl
Yarbay

bir popup menu nesnesi al ve hangi billeşen (kontrol) üzerinde açılşmasını istiyorsan object inspectorden ilgili kontrolün popupmenusune eklediğin popup menuyu seç


Bu mesaja 2 cevap geldi.
H
20 yıl
Çavuş
Konu Sahibi

peki hocam delphi içinde sıralama nası yaptıracam....
mesela elimde n tane tarih girişi olsun(gün.ay.yıl olarak)
bunları nassı küçükten büyüğe veya büyükten küçüğe sıralatacağıım???
lütfen aceleee


Bu mesaja 1 cevap geldi.
R
20 yıl
Binbaşı

datalarını listbox ' a yükle. Burdanda

listbox.sorted:=true;

yaparsan en basitinden sana sıralar.



V
20 yıl
Onbaşı

quote:

Orjinalden alıntı: hellas3133

ARKADAŞLAR DELPHİDE PROGRAM YAZMAK GEREK FAKAT YAZACAĞI PROGRAM GEREĞİ PROGRAM ÇALIŞITRILDIĞINDA FARENİN SAĞ TUŞUNA TIKLAYIP ORDA SIRALA SECENEKLERİ KOYDURTMAM VE BU SECENKLERE GÖRE SIRALAM YAPTIRMAM LAZIM NASI YAPCAM?
FARENİN SAĞ TUŞUNUN İŞLEVİNİ NASI AÇABİLİRİM??

popup menu işini kolaylaştıracak.



V
20 yıl
Onbaşı

quote:

Orjinalden alıntı: drony

bir popup menu nesnesi al ve hangi billeşen (kontrol) üzerinde açılşmasını istiyorsan object inspectorden ilgili kontrolün popupmenusune eklediğin popup menuyu seç

katılıyorum bu anlatım doğrudur. ben bu şekile bir popup menu yaptım oldu.


Bu mesaja 1 cevap geldi.
D
20 yıl
Yarbay

bak bu kod için yarım saat uğraştım.. biri gelipte iki satır kod yazarsa boğazına sarılırım ona göre


zaten anlaşılıyor ama, Forma tarihlist ve siralitarih adında iki listbox ve sirala adında bir buton ekle

Eğer bu işlemi database ile yapıyorsan zaten database den sıralı olarak çağırabilirdin... ama buda iyi bir örnek oldu..delphi ye başlayanlar için...


var
Form1: TForm1;
arabellek:Tstringlist;
implementation

{$R *.dfm}

{
02.09.2005 13:40:19 tarih formatı örneği
02.09.2005 tarih formatı örneği
}

Procedure sayisirala(list:TStrings);
var bos:int64;
s:array of int64;
i,j,l:integer;
begin
l:=list.Count;
SetLength(s,l);
for i:=0 to l-1 do
s:=strtoint(list.Strings);
for i:=0 to l do begin
for j:=i to l do begin
if s>s[j] then begin
Bos:=s;
s:=s[j];
s[j]:=Bos;
end;
end;
end;
list.clear;
for i := 1 to l do
list.add( inttostr(s[i-1]) );
end;

procedure TForm1.siralaClick(Sender: TObject);
var a,b:integer;
begin
arabellek:=TStringList.Create;
arabellek.Clear;
with tarihlist.items do begin
add('01.07.1993 01:40:18');
add('05.02.2002 07:40:13');
add('23.09.2015 08:40:17');
add('07.09.2006');
add('25.12.2000');
add('02.09.2005 23:15:18');
add('21.09.2004');
add('09.12.2001 13:40:10');
add('11.09.1998 21:40:14');
add('20.09.2001 15:40:11');
end;
for a:=0 to tarihlist.Items.Count-1 do
arabellek.Add(inttostr(DateTimeToUnix(StrToDateTime(tarihlist.Items.Strings[a]))));
sayisirala(arabellek);
siralitarih.clear;
for b:=0 to arabellek.Count-1 do
siralitarih.Items.Add(DateTimeToStr(EncodeDate(1970,1,1)+ strtoint(arabellek.Strings) / SecsPerDay)) ;
arabellek.free;
end;


Bu mesaja 1 cevap geldi.
A
20 yıl
Onbaşı

iyide arkadaşım benim yazdığım kaçtane program ve o kadar delphiyle program yazan arkadaşım var tarihleri sıralamak için bu kadar uğraşı verdiğimi ve verdiklerini hatırlamıyorum.. Hem sen popupmenuyü yapman 10 sn yeni alır önemli olan işlevleridir. Sen tarihleri sıralamak yerine veritabanı bağlantısı kurmayı ve SQL komutlarını öğren.. Database olmadan bi program yazmak çok zordur boşuna zahmete girersin.. SQL ile örnek olarak bi .. ORDER BY .. Dersin sana 1 sayfa yazmaktan kurtarır bilgin olsun ne diyeyim..


Bu mesaja 1 cevap geldi.
D
20 yıl
Yarbay

quote:

Orjinalden alıntı: alonewalker

iyide arkadaşım benim yazdığım kaçtane program ve o kadar delphiyle program yazan arkadaşım var tarihleri sıralamak için bu kadar uğraşı verdiğimi ve verdiklerini hatırlamıyorum.. Hem sen popupmenuyü yapman 10 sn yeni alır önemli olan işlevleridir. Sen tarihleri sıralamak yerine veritabanı bağlantısı kurmayı ve SQL komutlarını öğren.. Database olmadan bi program yazmak çok zordur boşuna zahmete girersin.. SQL ile örnek olarak bi .. ORDER BY .. Dersin sana 1 sayfa yazmaktan kurtarır bilgin olsun ne diyeyim..

haklısın...amaç sadece arkadaşa yardımcı olmak değil.. örnek kod göstermek.. ayrıca sayı sıralama hakkında googleda bir örnek aradım bulamadım..işte buda örnek olmuş oldu..
amaç başkalarınada yardımcı olmak değilmi?



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.