Delphi Forum

Herkese hayırlı günler...

Editlerdeki bilgileri worde aktarma konusunda adam gibi bir kod bulamadım ,açıkcası işi çözemedim...
Forumda da aradım ama net bir bilgi yok ,yada ben bulmayı başaramadım..

Bu konuda yardım istiyorum ...

İyi çalışmalar ...

SysUtils ve DateUtils unitlerinde IncYear, IncMonth ve IncDay fonksiyonları mevcut. Bunları kullanarak istediğini yapabilirsin.

Şu fonksiyondan istifade edebilirsin:
function TarihinYarisi(const aStartDate: TDateTime; const aYear, aMonth, aDay: Word): Double;
begin
Result := (IncDay(IncMonth ...

Verdiğiniz cevapları deniycem ;

Şunu yazmadan geçmeyeyim , mesela 5 yılı 365 ile çarparsak1825 gün çıkıyor ve bunun yarısı 912,5 tir bunun üzerine 16 ayında yarısı 8 eder 7 günün yarısıda 3,5 gün olarak hesaplarsak ,,

912,5 / 365 dersek kaç yıl olduğunu bulmak istersek sonuç 2,5 küsüratlı ...

Arkadaşlar herkese kolay gelsin diyorum...

İŞten güçten eski günler kadar aktif olamıyordum forumu takip ediyordum ama aktif olamıyordum..

Benim sorum şu olacak arkadaşlar..

5 yıl 16 ay 7 gün olarak verilen zamanın yarısını almak...

Cebirsel olarak yapacağımız işlemde bunu aşağıdaki şekilde ...

Arkadaşlar hayırlı günler hepinize...

Daha önce edite yazdığımız bir yazıyı ikinci defa yazmak istediğimizde otomatik tamamlayan edit bileşeni bulamadım..Forumu altüst getirdim bulamadım yoksa benmi gözden kaçırdım..Bu konuda bana yardımcı olan arkadaşlardan yardım istiyroum..Kolay gelsin herkese.

Daha fazla bilgi için onguard diye aratabilirsin,,Bu konu hakkında makale bile olması lazım.

var
Bookmark : TBookmark;
toplamBorc : Real;
begin
Bookmark := Table1.GetBookmark;
Table1.DisableControls;
toplamBorc := 0;
try
Table1.First;
while not Table1.EOF do begin
toplamBorc := toplamBorc + Table1BORC.Value;(Toplanacak alan)
Table1.Next;
Edit1.Text := FloatToStr(toplamBorc);
end;
finally ...

Hüseyin abi tebrik ederim ....Tatlı hangi tatlıdan abi muhalledi, baklava vs..
Bende ondan kullanayım...

Hocam gerçekten ilginç ya.enterasan ama harbiden fiks olmuş yani...

Şöyle yapabilirsin hocammm..

Programa en son müdehaleyi (giriş birimlerinden klavye, fare) tespit edip bu zamandan itibaren 15 dakikalık bir zaman dilimi tutan bir kod parçası ile iş biter herhalde diye düşünüyorum..
Yani 15 dakika zaman dolunca zaten programa bağlantı kesilecek ve sen ilk ...

belki şu şekilde bir kontrol sana bir fikir verecektir.


Key violation hatasını yakalamak..

procedure TForm1.TablePostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
if (E is EDBEngineError) then
with EDBEngineError(E) do begin
if Errors[ErrorCount - 1].ErrorCode ...

Onun için calculatedfields alanı kullanabilirsin bu yolla çözebilirsin sorununu .Kolay gelsin.

With AdoQuery3 do
begin
for i:=0 to AdoQuery3.fields.count-1 do
begin
begin
Dbgrid1.Columns[i+1].FieldName:= ADOQuery3.Fields[i].AsString;
end;


Şu anda delphiyi açmaya müsati olmadığım için böyle yaptım yapman gereken dbgridin fieldname ine istediğin alanı göstermen için query nin ...

Bende Bilgisayar Programcılığı okudum..Şu anda kamu kurumunda memur olarak çalışıyorum çok şükür mesleğimizi icra edebiliyoruz..
Kendimce yazdığım 2 tane proje var...

Açılış ekranı için bir form oluşturun. Formun BorderStyle özelliğini bsNone yapın.
Project Options kısmından formu Auto-Create değil, Avaible forms yapın.
Daha sonra Project->View Source ile proje dosyanıza(.dpr uzantılı) aşağıdaki kodları
ekleyin.

begin
SplashForm := TSplashScreen.Create ...