Справка MyChat

"Для разработчиков", "Серверные скрипты", "Описание функций", "База данных", "mDBStorageGetData".

Получить строку по указанному ключу из встроенной базы данных.

Синтаксис

function mDBStorageGetData(sKey: string): 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