TDatabase.Setup¶

procedure TDatabase.Setup(name: String; columns: TStringArray; path, version: String);

Sets up a new TDatabase, loading one <column>.txt file per column from path.

If rows were saved with Database.Insert, the column files in the cache directory for this version are loaded instead. Cache directories of other versions are deleted.

Every column must have the same number of rows.

TDatabase._ColumnIndex¶

function TDatabase._ColumnIndex(column: String): Integer;

Returns the position of column in TDatabase.Columns, raising if the database has no such column.

TDatabase._BuildIndex¶

procedure TDatabase._BuildIndex(columnIndex: Integer);

Builds the index of the column at columnIndex if it was not built yet.

Rows are walked from last to first so that every value ends up pointing at its lowest row and each “next row” chain is in ascending order.

TDatabase._FirstRow¶

function TDatabase._FirstRow(value, column: String): Integer;

Returns the lowest row where column holds value, or -1 if no row does.

Querying Data¶

A database is only useful if you can query data from it. Below in this page you will see several examples of how to use TDatabase and these examples will be accompanied with a SQL equivalent.

One thing to note is that TDatabase is a “single table” database. This is also not a thing in real databases so in the following SQL examples we will be using TDatabaseTable as our imaginary table.

Database.Contains¶

function TDatabase.Contains(value, column: String): Boolean;

Returns true/false if the specified value exists on the specified column.

Example:

database.Contains('abyssal whip', 'item');

The SQL equivalent would be something like this:

SELECT EXISTS (
  SELECT 1
  FROM "TDatabaseTable"
  WHERE item = 'abyssal whip'
);

Database.Get¶

function TDatabase.Get(value, column_name, result_column: String): String;

Returns the data at result_column where the column_name column has the specified value. If several rows match, the lowest one is used. If none does, an empty string is returned.

Example:

WriteLn database.Get('abyssal whip', 'item', 'id');

The SQL equivalent would be something like this:

SELECT id
FROM "TDatabaseTable"
WHERE item = 'abyssal whip'
LIMIT 1;

Database.GetAll¶

function TDatabase.GetAll(value, column_name, result_column: String): TStringArray;

Same as Database.Get but will return all existing values instead of just one, in row order.

Example:

WriteLn database.GetAll('abyssal whip', 'item', 'id');

The SQL equivalent would be something like this:

SELECT id
FROM "TDatabaseTable"
WHERE item = 'abyssal whip';

Basically the same as Database.Get SQL example without the LIMIT.

Database.Insert¶

procedure TDatabase.Insert(values: TStringArray; saveCache: Boolean = False);

Inserts a row of data. values must have a value for each of TDatabase.Columns, in the same order.

By default, this data insertion only stays in memory, if you want to save it to disk, you need to set saveCache to True. Saved rows are loaded by TDatabase.Setup until the database version changes.

Example:

database.Insert(['Custom Item', '99999', 'abcdef']);

The SQL equivalent would be something like this:

INSERT INTO "TDatabaseTable" (item, id, hash)
VALUES ('Custom Item', '99999', 'abcdef');