Тема: SQLite в Delphi7
Показать сообщение отдельно
  #1  
Старый 05.04.2017, 23:13
amam amam вне форума
Прохожий
 
Регистрация: 05.04.2017
Сообщения: 17
Версия Delphi: 7
Репутация: 10
По умолчанию SQLite в Delphi7

Код:
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. Как обойтись без этой длл-ки?