Отримати рядок за вказаним ключем із вбудованої бази даних.

 

Синтаксис

function mDBStorageGetData(sKey: string): string;

 

Параметри та значення, що повертаються

Параметр

Тип

Значення

sKey

string

текстовий ключ, за яким буде відбуватися пошук. Регістр літер має значення, обмежень на назви немає.

Результат функції

Текстовий рядок із вмістом ключа. Якщо даних із зазначеним ключем немає або ключ не існує, функція поверне порожній рядок.

 

Приклад
const
  TOTAL = 12;
var
  i: integer;
  sKey, sData: string;
  dt: double;
begin
  mLogScript('Start saving month names to database...', '');
    for i := 1 to TOTAL do begin
      dt := EncodeDate(2018, i, 1); 
      sData := FormatDateTime('mmmm', dt); // name of month
      mDBStorageSetData('month_name_' + IntToStr(i), sData);
    end;
    
  mLogScript('Ready. Start reading:', '');  
    for i := 1 to TOTAL do begin
      sKey := 'month_name_' + IntToStr(i);
      mLogScript('Key: ' + sKey + ', value: "' + mDBStorageGetData(sKey) + '"', '');  
    end;  
end.


Результат роботи скрипту

[19:36:15] (Log "DBStorage"): Start saving month names to database...

[19:36:15] (Log "DBStorage"): Ready. Start reading:

[19:36:15] (Log "DBStorage"): Key: month_name_1, value: "Январь"

[19:36:15] (Log "DBStorage"): Key: month_name_2, value: "Февраль"

[19:36:15] (Log "DBStorage"): Key: month_name_3, value: "Март"

[19:36:15] (Log "DBStorage"): Key: month_name_4, value: "Апрель"

[19:36:15] (Log "DBStorage"): Key: month_name_5, value: "Май"

[19:36:15] (Log "DBStorage"): Key: month_name_6, value: "Июнь"

[19:36:15] (Log "DBStorage"): Key: month_name_7, value: "Июль"

[19:36:15] (Log "DBStorage"): Key: month_name_8, value: "Август"

[19:36:15] (Log "DBStorage"): Key: month_name_9, value: "Сентябрь"

[19:36:15] (Log "DBStorage"): Key: month_name_10, value: "Октябрь"

[19:36:15] (Log "DBStorage"): Key: month_name_11, value: "Ноябрь"

[19:36:15] (Log "DBStorage"): Key: month_name_12, value: "Декабрь"

[19:36:15] (Run "DBStorage"): Час виконання скрипту: 199 мс

[19:36:15] (Run "DBStorage"): Скрипт виконано успішно.

 

Дивитися ще

EncodeDate

IntToStr

FormatDateTime

mDBStorageSetData

mLogScript