Код:
function TForm1.us(dir: string): string;
var
SQLiteDatabase : TSQLiteDatabase;
SQLiteTable : TSQLiteTable;
begin
SQLiteDatabase := TSQLiteDatabase.Create(dir);
SQLiteTable := SQLiteDatabase.GetTable('SELECT * FROM 9');
While not SQLiteTable.EOF do
begin
Result := Result +'1 '+ SQLiteTable.FieldAsString(SQLiteTable.FieldIndex['1']) + #13#10;
Result := Result +'2 '+ SQLiteTable.FieldAsString(SQLiteTable.FieldIndex['2']) + #13#10;
SQLiteTable.Next;
end;
end;
Есть вот такой код, который получает некие данные с таблицы sqlite3. Вопрос в следующем - для работы данного кода нужно таскать за приложением длл-ку sqlite3.dll. Как обойтись без этой длл-ки?