Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Panel

Esimerkki: Caption := AnsiCapitalize(Tuotteet['Nimi']);




AsiakasTieto

function AsiakasTieto(const Asiakas: Integer; const Kentta: String): Variant;

...

Esimerkki: AsiakasTieto(1000, 'Nimi');

EanCodeOk

function EanKoodiOk(Const s: String): Boolean;

...

Esimerkki: If EanKoodiOk(Tuotteet['Numero'])=True Caption:='EAN-koodi: '+Tuotteet['Numero'];

ExtractWord

function extractWord(SanaNro: integer; Merkkijono,erottimet: String):String


Otaa merkkijonosta yhden sanan. Erottimet parametri voi pitää sisällään usean merkin. Peräkkäiset erottimet tulikitaan yhdeksi. esimerkiksi
ExtractWord(2,'100;200;300',';') palauttaa '200' ja ExtractWord(3,'100,23;32,22;14,3',';,') palauttaa 32.
s := 'Kuopio;Tampere;Jyväskylä;Helsinki';
for i:= 1 to WordCount(s,';') do
showmessage(extractWord(i,s,';'));

FileExists

function FileExists(Const s: string): Boolean

Palauttaa TRUE, jos parametrina annettu tiedosto on olemassa ja palauttaa FALSE, mikäli ko. tiedostoa ei löydy.

FilePathStr

function FilePathStr:string

Palauttaa kyseisen yrityksen tietokannan polkun. Polku tulee täsmälleen samassa formaatissa kuin se näkyy tiedosto->asetukset ruudulla.

AlvPros

function AlvPros(const luokka: integer): Extended;

Palauttaa alvprosentin annetulle luokalle.

Avoinkysely

function Avoinkysely(const kysely, tietokanta: string): String;

...