diff options
author | mogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-07-15 21:24:06 +0000 |
---|---|---|
committer | mogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-07-15 21:24:06 +0000 |
commit | 17298eb642931ea1eeeb733104a9e0f0432eb04d (patch) | |
tree | fc17d063b377cea2e1e65396faf8cd7fb11a8d5d /Game/Code/lib/SQLite | |
parent | 259d32ccc0e51fb9392ce15ff6e7a5d74f65ae3b (diff) | |
download | usdx-17298eb642931ea1eeeb733104a9e0f0432eb04d.tar.gz usdx-17298eb642931ea1eeeb733104a9e0f0432eb04d.tar.xz usdx-17298eb642931ea1eeeb733104a9e0f0432eb04d.zip |
Cleaning up our SVN, removing unneeded files.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1200 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | Game/Code/lib/SQLite/lazarustest.lpi | 123 | ||||
-rw-r--r-- | Game/Code/lib/SQLite/lazarustest.lpr | 81 |
2 files changed, 0 insertions, 204 deletions
diff --git a/Game/Code/lib/SQLite/lazarustest.lpi b/Game/Code/lib/SQLite/lazarustest.lpi deleted file mode 100644 index 0e65a1e2..00000000 --- a/Game/Code/lib/SQLite/lazarustest.lpi +++ /dev/null @@ -1,123 +0,0 @@ -<?xml version="1.0"?> -<CONFIG> - <ProjectOptions> - <PathDelim Value="/"/> - <Version Value="5"/> - <General> - <MainUnit Value="0"/> - <IconPath Value="./"/> - <TargetFileExt Value=".exe"/> - <ActiveEditorIndexAtStart Value="0"/> - </General> - <VersionInfo> - <ProjectVersion Value=""/> - <Language Value=""/> - <CharSet Value=""/> - </VersionInfo> - <PublishOptions> - <Version Value="2"/> - <IgnoreBinaries Value="False"/> - <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> - <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> - </PublishOptions> - <RunParams> - <local> - <FormatVersion Value="1"/> - <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> - </local> - </RunParams> - <Units Count="9"> - <Unit0> - <Filename Value="lazarustest.lpr"/> - <IsPartOfProject Value="True"/> - <UnitName Value="lazarustest"/> - <CursorPos X="29" Y="18"/> - <TopLine Value="1"/> - <EditorIndex Value="0"/> - <UsageCount Value="23"/> - <Loaded Value="True"/> - </Unit0> - <Unit1> - <Filename Value="delphi/bass.pas"/> - <UnitName Value="Bass"/> - <CursorPos X="12" Y="539"/> - <TopLine Value="589"/> - <UsageCount Value="10"/> - </Unit1> - <Unit2> - <Filename Value="avformat.pas"/> - <UnitName Value="avformat"/> - <CursorPos X="38" Y="594"/> - <TopLine Value="567"/> - <UsageCount Value="10"/> - </Unit2> - <Unit3> - <Filename Value="avcodec.pas"/> - <UnitName Value="avcodec"/> - <CursorPos X="3" Y="1796"/> - <TopLine Value="1775"/> - <UsageCount Value="11"/> - </Unit3> - <Unit4> - <Filename Value="avio.pas"/> - <UnitName Value="avio"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="1"/> - <UsageCount Value="11"/> - </Unit4> - <Unit5> - <Filename Value="pngimage.pas"/> - <UnitName Value="pngimage"/> - <CursorPos X="20" Y="133"/> - <TopLine Value="121"/> - <UsageCount Value="10"/> - </Unit5> - <Unit6> - <Filename Value="pngzlib.pas"/> - <UnitName Value="pngzlib"/> - <CursorPos X="6" Y="111"/> - <TopLine Value="91"/> - <UsageCount Value="10"/> - </Unit6> - <Unit7> - <Filename Value="pnglang.pas"/> - <UnitName Value="pnglang"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="1"/> - <UsageCount Value="10"/> - </Unit7> - <Unit8> - <Filename Value="SQLiteTable3.pas"/> - <UnitName Value="SQLiteTable3"/> - <CursorPos X="28" Y="16"/> - <TopLine Value="1"/> - <UsageCount Value="10"/> - </Unit8> - </Units> - <JumpHistory Count="1" HistoryIndex="0"> - <Position1> - <Filename Value="lazarustest.lpr"/> - <Caret Line="47" Column="41" TopLine="1"/> - </Position1> - </JumpHistory> - </ProjectOptions> - <CompilerOptions> - <Version Value="5"/> - <CodeGeneration> - <Generate Value="Faster"/> - </CodeGeneration> - <Other> - <CompilerPath Value="$(CompPath)"/> - </Other> - </CompilerOptions> - <Debugging> - <Exceptions Count="2"> - <Item1> - <Name Value="ECodetoolError"/> - </Item1> - <Item2> - <Name Value="EFOpenError"/> - </Item2> - </Exceptions> - </Debugging> -</CONFIG> diff --git a/Game/Code/lib/SQLite/lazarustest.lpr b/Game/Code/lib/SQLite/lazarustest.lpr deleted file mode 100644 index bc005bec..00000000 --- a/Game/Code/lib/SQLite/lazarustest.lpr +++ /dev/null @@ -1,81 +0,0 @@ -program lazarustest; - -uses - SQLiteTable3 in 'SQLiteTable3.pas', - SQLite3 in 'SQLite3.pas', - sysutils; - - -procedure DoTest(); -var - slDBpath : string; - sldb : TSQLiteDatabase; - sltb : TSQLIteTable; - sSQL : String; - Notes : String; - -begin - // needed for linux build. - - slDBPath := ExtractFilepath( paramstr(0) ) + 'test.db'; - sldb := TSQLiteDatabase.Create(slDBPath); - - try - - if sldb.TableExists('testTable') then - begin - sSQL := 'DROP TABLE testtable'; - sldb.execsql(sSQL); - end; - - sSQL := 'CREATE TABLE testtable ([ID] INTEGER PRIMARY KEY,[OtherID] INTEGER NULL,'; - sSQL := sSQL + '[Name] VARCHAR (255),[Number] FLOAT, [notes] BLOB, [picture] BLOB COLLATE NOCASE);'; - sldb.execsql(sSQL); - - sldb.execsql('CREATE INDEX TestTableName ON [testtable]([Name]);'); - - //begin a transaction - sldb.BeginTransaction; - - sSQL := 'INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Some Name",4,587.6594,"Here are some notes");'; - //do the insert - sldb.ExecSQL(sSQL); - - sSQL := 'INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Another Name",12,4758.3265,"More notes");'; - //do the insert - sldb.ExecSQL(sSQL); - - //end the transaction - sldb.Commit; - - //query the data - sltb := slDb.GetTable('SELECT * FROM testtable'); - try - - if sltb.Count > 0 then - begin - //display first row - writeln( sltb.FieldAsString(sltb.FieldIndex['Name']) ); - writeln( inttostr(sltb.FieldAsInteger(sltb.FieldIndex['ID'])) ); - writeln( floattostr( sltb.FieldAsDouble(sltb.FieldIndex['Number'])) ); - end; - - finally - sltb.Free; - end; - - finally - sldb.Free; - end; - -end; - -begin - try - DoTest(); - writeln( 'SqlLite3 unit IS lazarus compatible' ); - except - writeln( 'ERROR : SqlLite3 unit is NOT lazarus compatible' ); - end; -end. - |