voiciXs notes » pascal

GetLocalUserName (Windows, Lazarus)

admin — Thu, 04 Jun 2009 07:55:10 +0000

function GetLocalUserName : string;
var
Buffer : array[0..255] of char;
Count : DWord;
begin
Count := 256 + 1;
GetUserName(Buffer, Count);
Result := string(Buffer);
end;

Download example
Download source

lazarus + firebird embedded step by step project (`Hello World tutorial`) //Win32

admin — Tue, 02 Jun 2009 12:54:25 +0000

1. Download Lazarus and isntall

2. Download and install FireBird

3. Create DB (hellodb.fdb) :

SET SQL DIALECT 3;

SET NAMES UTF8;
CREATE DATABASE 'PATH_TO_DB\HelloDB.fdb'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 16384
DEFAULT CHARACTER SET UTF8;

CREATE TABLE TBL_HELLO (TXT_FIELD CHAR(1000))

// or grab my one here
// for manage DB you can use IBExpert

3. Download ZeosDBO (Component for connecting to multiple database)
3.1 packages/lazarus/ZCore.lpk – Open/Compile
3.2 packages/lazarus/ZParseSql.lpk – Open/Compile
3.3 packages/lazarus/ZPlain.lpk – Open/Compile
3.4 packages/lazarus/ZDbc.lpk – Open/Compile
3.5 packages/lazarus/ZComponent.lpk – Open/Compile/Install

4. Open Lazarus and create new project ‘HelloWorld’ and save it.

5. From ‘Zeos Access’ tab, drag TZConnection and TZTable component to project

6. Configure TZConnection properties

// Database – PATH to HelloDB.fdb
// Hostname – localhost ( for embedded project this field must be blank)
// Protocol – choose your database server and version (mine is firebirdd-2.1)
// User – SYSDBA (default FireBird username)
// Password – masterkey (default FireBird password)
// Connected – set to TRUE (now you are connected to your database)
if you getting error about missing dll`s,
then copy fbclient.dll from Firebird bin directory
to Windows System32 and rename it to: fbclientd.dll

7. Configure TZTable properties
//Connection – choose ZConnection1
//TableName – choose TBL_HELLO
//Active- set True

8. From Data Access tab drag in project TDatasource component
// Set DataSet property to ZTable1

9. From Data Controls tab drag in project TDBnavogator
// Set Align property to alBottom
// Set DataSource property to Datasource1

10. From Data Controls tab drag in project TDBGrid
// Set Align property to alClient
// Set DataSource property to Datasource1
//Set AutoFillColumns to True

11. Build / Run project. Now you can insert Hello World text in database.

Project still not running with embedded server, lets download Firebird embedded and change project for embedded work.

12. Set TZConnection property Connected to False.
Add some code to OnCreate event for Form

ZConnection1.HostName:=''; // Hostname must be blank for embedded server projects

ZConnection1.Database:=ExtractFilePath(Application.EXEName)+'HELLODB.FDB'; //Set path to DB file (directory where is HelloWorld.exe)
ZConnection1.Connect; // open connection
ZTable1.Active:=true; // open connection

13. Build project.

14. From project map copy to seperate map (For example: HelloWorld_embedded) :
HelloWorld.exe
HELLODB.FDB

15. Download Firebird embedded, separate download, zip kit.

16. Copy dll files from embedded server map to HelloWorld_embedded map
fbembed.dll
ib_util.dll
icudt30.dll
icuin30.dll
icuuc30.dll

17. Rename fbembed.dll to fbclientd.dll

18. Thats all, now you can stop/uninstall Firebird server,
just run HelloWorld.exe and you have application with fully functional embedded SQL server.

Download all tutorial files

Lazarus

admin — Thu, 28 May 2009 13:58:38 +0000

http://www.lazarus.freepascal.org/

Amount in words (in Latvian) – pascal

admin — Tue, 17 Jul 2007 13:29:01 +0000

function Replace(strSource:string; strToFind:string; strReplace:string): string;
var sresult:string; i:integer;
begin
i:=1;
while i<=length(strSource) do
begin
if copy(strSource,i,length(strToFind)) = strToFind then
begin
sresult := sresult + strReplace;
i:=i+length(strToFind);
end
else
begin
sresult := sresult + copy(strSource,i,1);
i:=i+1;
end;
end;
result := sresult
end;

function Get_10(iOne:integer):string;|>
begin
Result:='';
If (iOne>0) And (iOne<20) Then
Case iOne of
1:Result:='viens ';
2:Result:='divi ';
3:Result:='trīs ';
4:Result:='četri ';
5:Result:='pieci ';
6:Result:='seši ';
7:Result:='septiņi ';
8:Result:='astoņi ';
9:Result:='deviņi ';
10:Result:='desmit ';
11:Result:='vienpadsmit ';
12:Result:='divpadsmit ';
13:Result:='trīspadsmit ';
14:Result:='četrpadsmit ';
15:Result:='piecpadsmit ';
16:Result:='sešpadsmit ';
17:Result:='septiņpadsmit ';
18:Result:='astoņpadsmit ';
19:Result:='deviņpadsmit ';
end;
if (iOne>=20) and (iOne<100) Then
begin
case Trunc(Int(iOne/10)) of
2:Result:='divdesmit ';
3:Result:='trīsdesmit ';
4:Result:='četrdesmit ';
5:Result:='piecdesmit ';
6:Result:='sešdesmit ';
7:Result:='septiņdesmit ';
8:Result:='astoņdesmit ';
9:Result:='deviņdesmit ';
end;
Case Trunc(Int(iOne - Int(iOne / 10) * 10)) of
1:Result:=Result+'viens ';
2:Result:=Result+'divi ';
3:Result:=Result+'trīs ';
4:Result:=Result+'četri ';
5:Result:=Result+'pieci ';
6:Result:=Result+'seši ';
7:Result:=Result+'septiņi ';
8:Result:=Result+'astoņi ';
9:Result:=Result+'deviņi ';
end;
end;
if Result='' then Result:='0 ';
End;

Function GetCurrency(iOne:integer; txt1,txt2:string):string;
begin
Result:='';
Result:=Get_10(iOne);
if Copy(Result,length(Result)-5,6)='viens ' then
Result:=Result+txt1 else
Result:=Result+txt2;
End;

function NumberToWords(KOPA:Currency;Ucase:boolean):String;
var
l:integer;
value:integer;
stringvalue,sant,santimms:string;
number:extended;
santims:integer;
begin

number:=Trunc(KOPA);
santimms:=Replace(Format('%.2n', [Frac(KOPA)]),'0.','');

if santimms='1.00' then
begin
number:=number+1;
santimms:=Replace(santimms,'1.','');
end;

santims:=StrToInt(santimms);

value:=Trunc(Int(number));
stringvalue:=IntToStr(value);

l:=Length(stringvalue);
case value of
0..99:Result:=Get_10(value);
100..999:Result:=GetCurrency(value div 100,'simts ','simti ')+Get_10(StrToInt(Copy(stringvalue,l-1,2)));
1000..9999:
begin
Result:=GetCurrency(value div 1000,'tūkstotis ','tūkstoši ');
if Copy(stringvalue,l-2,1)<>'0' then
Result:=Result+GetCurrency(StrToInt(Copy(stringvalue,l-2,1)),'simts ',
'simti ');
Result:=Result+Get_10(StrToInt(Copy(stringvalue,l-1,2)));
end;
10000..99999:
begin
Result:=GetCurrency(value div 1000,'tūkstotis ','tūkstoši ');
if copy(stringvalue,l-2,1)<>'0' then
Result:=Result+GetCurrency(StrToInt(Copy(stringvalue,l-2,1)),'simts ',
'simti ');
Result:=Result+Get_10(StrToInt(Copy(stringvalue,l-1,2)));
end;
100000..999999:
begin
Result:=GetCurrency(value div 100000,'simts ','simti ')+
GetCurrency(StrToInt(Copy(stringvalue,l-4,2)),'tūkstotis ','tūkstoši ');
if copy(stringvalue,l-2,1)<>'0' then
Result:=Result+GetCurrency(StrToInt(Copy(stringvalue,l-2,1)),'simts ',
'simti ');
Result:=Result+Get_10(StrToInt(Copy(stringvalue,l-1,2)));
end;
1000000..9999999:
begin
Result:=GetCurrency(value div 1000000,'miljons ','miljoni ') ;
if Copy(stringvalue,l-5,1)<>'0' then
Result:=Result+GetCurrency(StrToInt(Copy(stringvalue,l-5,6)) div
100000,'simts ','simti')+GetCurrency(StrToInt(Copy(stringvalue,l-4,2)),'tūkstotis ','tūkstoši ');
if copy(stringvalue,l-2,1)<>'0' then
Result:=Result+GetCurrency(StrToInt(Copy(stringvalue,l-2,1)),'simts ',
'simti ');
Result:=Result+Get_10(StrToInt(Copy(stringvalue,l-1,2)));
end;
end;
if Copy(Result,length(Result)-5,6)='viens ' then
Result:=Result+'lats ' else
Result:=Result+'lati ';

sant:=Get_10(santims);
if Copy(sant,Length(sant)-5,6)='viens ' then
Result:=Result+sant+'santīms' else
Result:=Result+sant+'santīmi';
if Ucase then Result:=AnsiUppercase(Result) else
Result:=AnsiUpperCase(Copy(Result,1,1))+Copy(Result,2,Length(Result));
end;