Veri Format sorunu

[nosedive]

Kod: Tümünü seç

        SnLgsPuan[dm1.Qfreepuan.fieldbyname('ks_dersid').AsInteger].k1 := strtofloat(format('#0.###', [dm1.Qfreepuan.fieldbyname('ks_ksayiders1').AsFloat * 100 / dm1.qfrei.fields[0].AsInteger]));

burada format hatası yapıyorum.. 3,214 gibi bir format yapacaktım...

[ofenX]

Merhaba,
aşağıdaki şekilde yaparsanız işinizi görür mü?

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);

           var
k1,k2:double;
k3:integer;
s:string;

begin
              k2:=25.25;
              k3:=3;

        k1:=strtofloat(Format('%8.4f', [k2*100/k3]));
          showmessage(floattostr(k1));

end;

Yukarıdaki örneğe göre 841,6667 değeri yazıldı.

Kolay gelsin.