Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
FastReport yazıya çevirme
#1
eskileri karıştırırken karşıma çıktı belki birine lazım olur

FastReport Code Kısmına yazılan
function Basamak(const i:Int):String;
begin
 case i of
   1:Result:='Bin';
   2:Result:='Milyon';  
   3:Result:='Milyar';  
   4:Result:='Trilyon';  
   5:Result:='Katrilyon';  
   6:Result:='Kentrilyon';  
 else
   Result:='';                                             
 end;
end;

function Onlar(const i:Int):String;
begin
 case i of
   1:Result:='On';
   2:Result:='Yirmi';  
   3:Result:='Otuz';  
   4:Result:='Kırk';  
   5:Result:='Elli';  
   6:Result:='Altmış';
   7:Result:='Yetmiş';  
   8:Result:='Seksen';  
   9:Result:='Doksan';  
 else
   Result:='';                                             
 end;
end;

function Birler(const i:Integer):String;
begin
 case i of
   1:Result:='Bir';  
   2:Result:='İki';  
   3:Result:='Üç';  
   4:Result:='Dört';  
   5:Result:='Beş';  
   6:Result:='Altı';  
   7:Result:='Yedi';  
   8:Result:='Sekiz';  
   9:Result:='Dokuz';  
 else
   Result:='';                                             
 end;
end;

FastReport'ta Tutarı elde ettiğin nesnenin "OnAfterPrint" kısmı "memoYazdir" yazının görüneceği nesne oluyor
var
 sSayi, sTmp, sYaziTL, sYaziKurus, sTL, sKurus:string;
 i, iTL, iKurus : Integer;
 bSwcAyrac : Boolean;
begin
 sKurus     := '';
 sTL        := '';
 sSayi      := '';
 sSayi      := Trim(memoGenel.Text);
 sYaziTL    := '';
 sYaziKurus := '';
 iTL        := 0;
 iKurus     := 0;

 bSwcAyrac := False;
 i := Length(sSayi);
 while i > 0 do
 begin
     if sSayi[I] in ['0'..'9'] then
     begin
       if bSwcAyrac = False then
         sKurus := sKurus + sSayi[I]
       else
         sTL := sTL + sSayi[I];
     end
     else
     begin
       if (Length(sSayi) - I) <= 2 then
         bSwcAyrac := True;
     end;
     Dec(I);
 end;

 sTmp := '';
 if sKurus <> '' then
   for I := Length(sKurus) downto 1 do
     sTmp := sTmp + sKurus[I];
 sKurus := sTmp;
 sTmp := '';
 if sTL <> '' then
 for I := Length(sTL) downto 1 do
   sTmp := sTmp + sTL[I];
 sTL := sTmp;

 if ( (sTL = '') and (sKurus <> '') ) then
 begin
     sTL := sKurus;
     sKurus := '';
 end;

 if sTL <> '' then
   iTL    := StrToInt(sTL);
 if sKurus <> '' then
   iKurus := StrToInt(sKurus);

 sYaziTL    := RakamOku(iTL);
 sYaziKurus := RakamOku(iKurus);
 memoYazdir.Text:= ' Fatura Genel Toplamı : Yalnız '+sYaziTL+'TL ' +sYaziKurus+'Kuruş ';
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Fastreport koşula göre gösterim klavye 4 189 17-03-2018, Saat: 17:29
Son Yorum: klavye
  Fastreport koşullu rapor hazırlama klavye 7 234 08-02-2018, Saat: 10:35
Son Yorum: klavye
  Fastreport Çoklu Dil Desteği uparlayan 2 215 24-12-2017, Saat: 23:50
Son Yorum: savasabd
  FastReport Form'dan tarih bilgisi almak yhackup 2 213 20-11-2017, Saat: 10:42
Son Yorum: yhackup
  FastReport "Sum" Fonksiyon Sorunu hyperxman 6 398 17-08-2017, Saat: 20:40
Son Yorum: hyperxman



Konuyu Okuyanlar: 1 Ziyaretçi