Delphi Forum

Sedat GÖKÇEK

DayOfWeek(Tarih)

"Tarih"in haftanın hangi günü olduğunu döner.
1:Pazar
2:Pazartesi
....
7:Cumartesi

Kolay Gelsin.

Arkadaşım teşekkür ederim. Ben bunu biliyorum ben sorunun cevabını da istemiyorum. Daha önce verdiğim linkde rakamlar ve katsayılar var bunların nereden geldiğini bilen varmı ...

Sedat GÖKÇEK

bu kısmı pascal'da yazmada veya formulüze etmede sorunum yok bunları yapıyorum. Belli bir günü sabit alıp işlemde yaptırabiliyorum. İstediğimi tam olarak anlatamadım sanırım.

Ben indisler kullanmadan bu işlemleri yapmak istemiştim
örneğin
1800 1899 için 2
1900 1999 için 0 katsayısı kullanılmış ...

Sedat GÖKÇEK

Slm,

Tarihin haftanın hangi gününe geldiğini bulmak için epeydir uğraştım ama bir çözüm bulamadım. Tabi bu çözümü delphi'de değil pascal'da yapmam gerekiyor. Vermiş olduğum link'de aylar ve yüzyıllar ile ilgili rakamları nasıl bulduklarını anlayamadım bu konuda bana yardımcı olabilirmisiniz ...

Sedat GÖKÇEK

merhaba,

TListBox.Count enson kaydı size verir
kolay gelsin.

Sedat GÖKÇEK

merhaba,
elimdeki makinaların hepsi intel işlemcili amd işlemcili bir makina ile bugüne kadar hiç çalışmadım ama tahminimce çalışmayabilir. Bir zamanlar banada gerekli olmuştu o zamandan beri saklıyorum bunları.

amd işlemcisi olan arkadaşlar test ederse bizde öğrenmiş oluruz.
kolay gelsin.

Sedat GÖKÇEK

bence sizin biraz SQL öğrenmeniz şart bunun için arama motorlarından arama yapabilirsiniz.
"Online SQL" bilgilerinin olduğu birçok free web sitesi bulacaksınız.

kolay gelsin.

Sedat GÖKÇEK

merhaba,
tam anlayabilmiş değilim ama sanırsam şöyle birşey yapabilirsiz:
arrayleri kullanarak
sınıflar array'i
subeler array'i
dersler array'i gibi
veya database'e kaydedip database'de almak daha iyi olur diye düşünüyorum bilgileri buradan alıp create etme işide size kalmış artık
kolay gelsin

Sedat GÖKÇEK

Bu kadarına gerek varmı bilmiyorum bu programı test etmedim ama

Kod: Tümünü seç

Function CPUID :DWORD; assembler;
asm
  PUSH    EBX
  PUSH    EDI
  MOV     EAX,1
  DW      $A20F
  MOV @Result,EDX
  POP     EDI
  POP     EBX
end;

bu function'ı bir deneyin @Result Int64
kolay gelsin.

Sedat GÖKÇEK

memo kullanırsan sanırım olur

listbox daki değerleri DBMemo.Text:= listbox.Items.gettext şeklinde

kolay gelsin

Sedat GÖKÇEK

merhaba,

Kod: Tümünü seç

var
 i,toplam : Integer;
begin
  toplam:=0;
  For i:=0 to Listbox1.Count-1 do
     toplam:= toplam+StrToInt(ListBox1.Items[i]);

  label1.Caption:=InttoStr(toplam);
end;

kolay gelsin.

Sedat GÖKÇEK

yanlış anlamadıysam yıl dediniz tarih formatı aşapıdaki gibi olması gerekiyor.

Kod: Tümünü seç

  ShortDateFormat := 'yyyy';
 edit1.text := DateToStr(Date);

kolay gelsin.

Sedat GÖKÇEK

ben şu şekilde birşey yapmıştım oldu.

procedure TFormArac.DBGrid1TitleClick(Column: TColumn);
begin

If SortedBy='' Then SortedBy := 'ASC'
Else If SortedBy='ASC' Then SortedBy:='DESC'
Else If SortedBy='DESC' Then SortedBy:='ASC';
Query1.SQL.Clear;
Query1.SQL.Add('Select ...... From Table ...

Sedat GÖKÇEK

Kod: Tümünü seç

Library Utility;
Uses SysUtils, Classes;

Function hddfabrikano():string;
.
.
.
.

Exports
   hddfabrikano;
Begin
End.

Project menüsünde Build all yapın.

yazdığınız program içerisindede

Kod: Tümünü seç

implemantation
   Function hddfabrikano():string;External 'Utility.dll';

kolay gelsin.

Sedat GÖKÇEK

Yazdığınız bu komutu bilmiyorum ama diskin boyutunu ve boşluğu aşağıdaki gibi byte cinsinden alabilirsiniz her bu sayıyıda her 1024 böldüğünüzde KB, MB, GB şeklinde dönüşüm olabilir.

Kod: Tümünü seç

var
  Free : Int64;
  Total: Int64;
begin
  Free := DiskFree(0);
  Total := DiskSize(0);
End;

Kolay gelsin

Sedat GÖKÇEK

Tablolarınız benzer alanlar olsaydı 3 SQL i union yapabilirdiniz bu şekilde imkansız gözüküyor

Bir yöntem söyleyebilirim
verilerinizi stringlist içerisine alırsanız mümkün olabilir

1 nci table'ın 1 nci alanı stringlist'in 1 nci kolonuna
1 nci table'ın 2 nci alanı stringlist'in 2 nci kolonuna
2 nci ...

Delphi Forum

27 uygun sonuç bulundu

tarih hangi güne denk geliyor