Husoedit i nasıl kullanacağız ?

[Salih]

Merhaba,

Hocam elinize sağlık bu bileşen epeyce işe yarayacak gibi, ama kullanmayı becerebilirsem !

Yanlış mı kuruyorum, yanlış mı kullanıyorum anlamadım. Delphi7 kullanıyorum. Şimdi husoedit.dcu ve husoedit.pas dosyalarını delphi7\lib dizinine kopyaladım.
Install component'e girip husoedit.pas ı açtım. package name dclusr.dpk, compile ve install düğmelerine bastım, düzgün kuruldu diye düşünüyorum.

Formumun üstüne 3 tane husoedit koydum, 1 ve 2 yi toplayıp 3 e yazıcam, hepsi bu. Ne şekilde yapmam lazım ? Kullanıma ilişkin birkaç satır yazarsanız sevinirim.

[husonet]

Kod: Tümünü seç

    HusoEdit3.TextAsFloat := husoedit1.Value(Husoedit1.Text) + husoedit2.Value(Husoedit2.Text);

Kolay Gelsin....

[Salih]

1 -> 12.00
2 -> 12.00
HusoEdit3.TextAsFloat := husoedit1.Value(Husoedit1.Text) + husoedit2.Value(Husoedit2.Text);

3 -> 2,400 yazıyor

Bu bileşeni sadece display için mi kullanmak lazım yoksa ?

Bir de, neden husoedit1.value yada husoedit1.asfloat şeklinde değil de "husoedit1.Value(Husoedit1.Text)" şeklinde kullanıyoruz ?

[husonet]

1 -> 12.00
2 -> 12.00
HusoEdit3.TextAsFloat := husoedit1.Value(Husoedit1.Text) + husoedit2.Value(Husoedit2.Text);

3 -> 2,400 yazıyor

Bu bileşeni sadece display için mi kullanmak lazım yoksa ?

Bir de, neden husoedit1.value yada husoedit1.asfloat şeklinde değil de "husoedit1.Value(Husoedit1.Text)" şeklinde kullanıyoruz ?

2,400 yazdığına eminmisin? 24,00 yazması lazım. virgülden sonraki kuruş hanesidir.

Value fonkisyionu gönderilen stringte ki noktaları siler ve saf bir moda getirir TextAsFloat Propertysi ise saf sayıyı formatlamak için kullanırız.


Kolay Gelsin...

[Salih]

Sanırım hatayı buldum,

Ben Aslangeri'nin düzenlediği halini kullanmıştım.

2.Eğer sayının küsüratı yoksa decimals ı yazmaması için settextasfloat proceduresini değiştirdim

Kod: Tümünü seç

procedure TAlgnEdit.SetTextAsFloat(Value: Extended);
begin
    if frac(value)=0 then text:=FormatFloat('#,###', Value)
    else Text := FormatFloat(FormatString, Value);
end;

bu işlem başka bir tarafta bir aksaklığa yol açabilirmi

Demek ki yol açıyormuş
Text := FormatFloat(FormatString, Value);

yapınca düzeldi.

Edit1 : Allah Allah ya, ben yanlış görmüşüm düzelmemiş. şimdi de
12.00
12.00
sonuç 2,400.00

Hocam bi el at şu componente nolur !

[aslangeri]

S.A.
Kardeş sen benim düzenlememden önceki halini kullan istersen. ben biraz karıştırdımda

kendime özel yaptım öyle kullanıyorum.

[husonet]

Orjinalini yüklersen dediğim gibi çalışır. @Aslangeri arkadaşımın düzenlemesini incelemedim o yüzden yorum yapamıycam

[Salih]

Hocam uninstall ettim,
huso* dosyalarını sildim, tekrar http://www.delphiturkiye.com/dfiles/husoedit.zip
adresinden yükledim ve tekrar kurdum. İnanmıyacaksın ama sonuç aynı :
HusoEdit3.TextAsFloat := husoedit1.Value(Husoedit1.Text) + husoedit2.Value(Husoedit2.Text);
123.00 + 234.00 = 35,700.00 böyle gösteriyor !!!

[husonet]

Allah Allah

Arkadaşlar şu Component i sizde deneyebilirmisiniz?

[gkimirti]

sorun yok calısıyo,
kurus hanesini girmek icin , e basmak gerkiyor normal olarak

[Salih]

Kuruş girmede sorun yok hocam,
2 tane husoediti toplayıp üçüncüye yazınca kuruşa bölüp göstermiyor (x 100) halini gösteriyor, bir de akşam evdeki bilgisayara kurayım, kafaya taktım.

[aslangeri]

peki direk textasfloat ları toplatmayı denedinmi.
ben şimdi bi denem yaptım.

Kod: Tümünü seç

a3.TextAsFloat := a1.Value(a1.Text) + a2.Value(a2.Text);

ile yapınca yanlış virgüllerde problem çıkartı ama

Kod: Tümünü seç

  a3.TextAsFloat := a1.Textasfloat + a2.Textasfloat;

şeklinde yapınca normal topladı.
yalnız bendeki değişmiş hali.

[aslangeri]

sanırım problemin sebebini buldum.
Hüseyin hocam value yi çekerken

Kod: Tümünü seç

function THusoEdit.Value(Str: String): Double;
var
     i:integer;
begin
     for i:=1 to length(Str) do
     Begin
        if Str[i]='.' then
            delete(Str,i,1);
     End;
     result:= StrToFloat(Str);
end;

şeklinde yazmış.
eğer bölgesel ayarlarda bi farklılık varsa
if Str='.' then satırı düzgün çalışmıyor. value proceduresinde küçük bir değişiklik ile

Kod: Tümünü seç

function THusoEdit.Value(Str: String): Double;
var
     i:integer;
begin
     for i:=1 to length(Str) do
     Begin
        if Str[i]=ThousandSeparator then
            delete(Str,i,1);
     End;
     result:= StrToFloat(Str);
end;

şekline çevirerek problemi hallediyoruz.

[husonet]

Bu problemleri yazdığınız için teşekkürler yeni versiyonlarında hepsini dikkate alıcam

[Salih]

sanırım problemin sebebini buldum.
value proceduresinde küçük bir değişiklik ile
problemi hallediyoruz.

Hocam eline sağlık, çok teşekkürler...