
	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ó? |

Különböző mértékegységek közötti átszámítást végző komponens

Példaprogram letöltése

7401 bájt

Munkánk során gyakran előfordulhat, hogy különböző mértékegységekben megadott értékeket kell átszámítanunk egy adott mértékegységre. Ebben lehet segítségünkre a mellékelt komponens.

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

A komponens Measures property-jében megadhatjuk, hogy milyen mértékegységek között szeretnénk átszámítani. Ezek a következők lehetnek:

msMilesToKilometres: mérföldből kilométerre;
msInchesToCentimetres: hüvelykről (col) centiméterre;
msFeetToCentimeters: lábról centiméterre;
msSqrInchesToSqrCentimetres: négyzet-hüvelykről négyzetcentiméterre;
msCubicInchesToCubicCentimetres: köb-hüvelykről köbcentiméterre;
msUkGallonToLitre: UK gallonról literre;
msUsGallonToLitre: US gallonról literre;
msAcreToHectare: Acre-ról hektárra. Az Acre egy kb. 4000 négyzetméteres terület;
msAcreToSquareFeet: Acre-ról négyzetlábra;
msYardToMetre; yard-ról méterre;
msOunceToKiloGram: unciáról kilogrammra;
msUkTonToKiloGram: UK ton-ról (kb 1 tonna) kilogrammra;

A konvertálási irányt megfordíthatjuk, ha a Reverse property-nek igaz értéket adunk. Az átszámítandó értéket a ConvValue property-ben kell megadni, az eredményt a ConvResult property-ben kapjuk meg. Ha nem akarunk komponenst használni, akkor erre is van lehetőség, mivel az átszámítást egy külső függvény, a ConvertMeasures végzi el:

function ConvertMeasures(Measures: TMeasures; Value: double; Reverse: boolean): double;

A komponens is ezt a függvényt használja, paraméterként átadva a property-kben megadott értékeket. A Measures paraméter minden értékéhez tartozik egy érték, amellyel a Value paramétert megszorozzuk. Ezeket az értékeket egy konstans tömbben, az EXCHRATE-ben tároljuk.

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
1166	Delphi	Osztály hierarchia lekérdezése	1. rész
1180	Delphi	Osztály hierarchia lekérdezése	2. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2001 évkönyv 573. 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!