
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

Valuta számító komponens

Példaprogram letöltése

10442 bájt

Ebben a cikkben egy olyan komponenst készítünk, amely képes bármelyik valutáról forintba, vagy egy tetszőleges másik valutára átváltani egy megadott értéket.

A mellékelt példaprogram megnyitása előtt a TCurrencyExchange.pas-ban lévő komponenst telepítenie kell a Delphi alá.

A komponensbe bármennyi valutát felvehetünk az aktuális árfolyamukkal együtt, ami annak köszönhető, hogy a valutanemeket egy TCollectionból származtatott osztályban tároljuk (CurrencyItems). Minden valutanem rendelkezik egy 3 betűs egyedi azonosítóval (pl. USD=USA dollár, DEM=német márka, HUF=magyar forint, stb.), a valuta megnevezésével és az aktuális árfolyammal.

function GetCurrencyRate(vid:TCurrencyID):currency;

A GetCurrencyRate függvénnyel lekérdezhetjük egy valuta árfolyamát. Paraméterként át kell adni a valuta azonosítóját (vid), és visszatérési értékként megkapjuk a valuta árfolyamát.

function Exchange(vfrom:TCurrencyID; amount:real; 
     vto:TCurrencyID):currency;

Az Exchange függvénnyel két valuta között tudunk átváltani. A vform paraméter annak a valutának az azonosítója, amiből átváltani szeretnénk, az amount paraméter az összeg, amennyit átváltani szeretnénk, és a vto paraméter pedig annak a valutának az azonosítója, amire átváltani szeretnénk. A függvény visszatérési értéke az átváltott valuta összege lesz.

function ExchangeHUF(vid:TCurrencyID; amount:real):currency;

Hasonló az előző függvényhez, de itt mindig forintba váltjuk át a valutát.

function RefreshRate(vid:TCurrencyID; newrate:currency):boolean;

Ezzel a függvénnyel frissíthetjük egy valuta árfolyamát. A paraméterként megadott azonosítóval (vid) rendelkező valuta árfolyamát a szintén paraméterként megadott értékre állítja be (newrate).

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
3333	Windows	Net Shell parancsok	1. rész
3367	Windows	Net Shell parancsok	2. rész
3396	Windows	Net Shell parancsok	3. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2001 évkönyv 221. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!