...
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;
...