Delphi и sqlite как перебрать все записи?

@useruser · Регистрация: 29.06.2015

Студворк — интернет-сервис помощи студентам

Использую Unidac.
Базу создал.
поля
id integer not null auto increment
field1 text
field2 text

Написал простейший код

Delphi
1
2
UniConnection1.Database:=program_dir+'base.db';
UniConnection1.ExecSQL('INSERT INTO `my_table` (`field1`,`field2`) VALUES ("1","2")');

Всё работает.

Теперь мне нужно читать из этой базы. А именно перебирать все строки.

Раньше писал на php для mysql
Пример

PHP
1
2
3
4
5
6
7
8
9
10
$stmt = $mysqli->prepare("SELECT * FROM `users`");
$stmt->execute();
$mysqli_result = $stmt->get_result();
$num_rows = $mysqli_result->num_rows;
for ($i=1;$i<=$num_rows; $i++)
{
$row = $mysqli_result->fetch_assoc();
$id=$row['id'];
$login=$row['login'];
}

Насчет запроса понятно (SELECT * FROM `my_table`), но как тут будет выглядеть цикл?
Что и как собственно писать?
PS
Подготавливаемый запрос не нужен, если что...

@Алекcей · 08.10.2019, 12:55

Delphi
1
2
3
4
5
6
7
8
9
10
with Query1 do try
  SQL.Text:='SELECT * FROM `my_table`';
  Open;
  while not eof do begin
 
    next; //переход на следующую запись
  end;
finally
  Close;
end;

@useruser · 08.10.2019, 15:32 **[ТС]**

Спасибо
А как внутри обращаться к параметрам (записям)? Выводить их содержимое?

Сообщение от Алекcей

while not eof do begin
//Тут что?
next; //переход на следующую запись
* end;

Пытался так, но выдает разные ошибки

Delphi
1
2
memo1.Lines.Add(UniQuery1.ParamByName('field1').Text);
//memo1.Lines.Add(UniQuery1.Params.Items[1].ToString);

говорит параметр field1 не найден.

@Алекcей · 08.10.2019, 16:20

попробуйте так:

Delphi
1
memo1.lines.add(uniquery1.fieldbyname('field1').asString);

@useruser · 08.10.2019, 17:57 **[ТС]**

Сообщение от Алекcей

memo1.lines.add(uniquery1.fieldbyname('f ield1').asString);

Спасибо заработало.

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

Delphi и sqlite как перебрать все записи?

Решение