Delphi Forum

Teşekkürler

function IsFolder(Path: String): Boolean;
begin
Result:=FileGetAttr(Path) = 16;
end;

Bu işimi gördü.

Herhangi bir pathin dosya mı yoksa klasör mü olduğunu nasıl anlarım.

ClipBoard kullanmadan kastım o değildi.
Visible false olan bir Richediti geçici olarak kullanarak yapmaktan bahsediyorum.
Aşağıdaki kodla yaptım.
Ama ClipBoard kullanmadan yapmak istiyorum.


var S: TMemoryStream;
begin
S:=TMemoryStream.Create;
TBlobField(QEditor.FieldByName('Editor ...

Merhaba

Tam olarak herşeyi test etmedim ama sorun çözülmüş gibi görünüyor.
Biltes in tavsiyesi ile kodda AsFloat yerine AsCurrency kullandım.
Sonra saçmalayan rakamlar düzeldi.

Teşekkürler Biltes. Teşekkürler ilgilenenlere...

Evet hocam dediğin gibi girince de saçmalama olayı devam ediyor.
Kod şöyle


procedure TFrmVezneKaydi.MDOdenecekCalcFields(DataSet: TDataSet);
var T, O1, O2, O3, K: Double;
begin
T:=DataSet.FieldByName('Tutar').AsFloat;
O1:=DataSet.FieldByName('Odenen1').AsFloat;
O2:=DataSet.FieldByName('Odenen2 ...

Merhaba

Richeditdeki yazıların altına, daha önceden veritabanındaki bir tabloya stream olarak kaydedilmiş bir yazıyı kopyalayan bir kod arıyorum.
Yani streamları toplama gibi bir şey.
Yalnız bu işi clipboard kullanmadan yapmak istiyorum.
Öyle yaptım zaten.

Biraz uğraştım ama aşağıdaki kod boş bir ...

Merhaba

5 tane alanım var: Tutar, Odenen1, Odenen2, Odenen3, Kalan

Kalan Calculation Field

Kalan = Tutar - (Odenen1 + Odenen2 + Odenen3);

Diyelim ki Tutar 13,95 olsun

Odenen1 e 13,95 girdiğim zaman Kalanı 0 olarak hesaplıyor.

Odenen1 e 10 Odenen2 ye 3,95 girersem Kalan = -8,88178419700125E-16 ...

Value Constant Meaning

-1 LessThanValue The first value is less than the second value.
0 EqualsValue The two values are equal.
1 GreaterThanValue The first value is greater than the second value.



Burada mantıksız birşey yok.
İlk değer ikincisinden küçük olduğu zaman -1 döner.
İkisi de eşitse ...

Bunu birkaç denemeyle kendin de görebilirsin.
Joinleri yazmaya başlamadan önce ilk tablo ismin ne ise o tabloya update yapabiliyorsun.
Diğerlerine de yapılabiliyormu dediğim gibi bir denemek lazım.
Tabi bunlar ADO için geçerli.

Merhaba CAST yerine CONVERT kullanarak yaptım.


SELECT
CASE
WHEN DAY(Tarih) < 10 THEN '0' + CONVERT(VARCHAR, DAY(Tarih))
ELSE CONVERT(VARCHAR, DAY(Tarih))
END +
CASE
WHEN MONTH(Tarih) < 10 THEN '0' + CONVERT(VARCHAR, MONTH(Tarih))
ELSE CONVERT(VARCHAR, MONTH(Tarih))
END +
CONVERT ...

Neyse anladığım kadarıyla Firebirde "FROM NEW" diye bir yapı yok
Ben SQL Serverda bu şekilde kullandığım için burda da öyledir diye düşünmüştüm.
Başka bir şekilde hallettim.
İlgilenen herkese teşekkürler.

Tablo ismim "GIRIS" fakat orda NEW yerine "GIRIS" yazarsam en son tetiklenen kayıt üzerinde işlem yapmam için ayrıca kodlar yazmam gerkemez mi ?.
Ben SQL Server ile Firebird ü karşılaştırmıyorum.
SQL Serverdaki mantığı biliyorum.
Firebirddekini çözmeye çalışıyorum.
Bir örnek üzerinde anlatayım ...

Hocam başıboş durmuyor altında joinler var.
O benim syntax kullanımımdan kaynaklı olabilir.

SQL Serverda ona çok benzer bir yapı kullanmıştım:


CREATE TRIGGER EkleMalzeme ON Malzeme
FOR INSERT
AS

DECLARE @Malzeme VARCHAR(200)
DECLARE @Miktar FLOAT
DECLARE @Birim VARCHAR(20)

SELECT
@Malzeme ...

Ama ben değişkenlerin değerlerini NEW den almak istiyorum.
Bildiğim kadarıyla Firebird yeni eklenen kaydı NEW, onun eklenmeden önceki halini de OLD isimli bir tabloda tutuyor.
Yani SQL Servede böyle olduğu için Firebirdde de böyledir diye düşündüm.
SQL Serverda NEW yerine INSERTED OLD yerine DELETED ...