...

Function StrToF(s: string): Double;

• • muuntaa merkkijono liukuluvuksi. poistaa välilyönnit ja huolehtii piste/pilkku muunnoksesta.

• procedure CSVToStringList(Lahde: String; Kohde: TStringList; Erotin: Char; RiisuLainausMerkit: Boolean);

  • purkaa csv muodossa olevan merkkijono StringListaksi esim.
    lista := TStringList.create;

    Panel
    s := '1;"ohje esimerkki";12,2'; CSVToStringList(s,lista,';',true); for i:= 0 to Lista.count -1 do   ShowMessage(Lista.items[i]);

...

• function FormatDateTime(format: string; DateTime: Tdatetime):String;
  • Muotoilee ajan ja päivän annetulla formaatilla kts.

• StrToTime
• Time
• TimeToStr
• formatdatetime('yyyy-mm-dd hh:nn:ss', d);
• formatdatetime('yyyy-mm-dd', d);

Bonuslaskenta

• function AlustaBonus(Tietokanta): Bonusluokka;
  • lataa bonusasetukset. Kutsu vain kerran ja jokaista AlustaBonus rutiinin kutsua kohden pitää kutsua vapautabonus.
• procedure VapautaBonus(Bonusluokka);
  • vapauttaa aiemmin AlustaBonus funktiolla luodun bonusmuuttuja.
• function BonusPros(kertyma:Double): Double;
  • palauttaa bonusprosentin johon ostokertymä oikeuttaa

...