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

 

Синтаксис

function mDBStorageSetData(sKey, sData: string): integer;

 

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

Параметр

Тип

Значення

sKey

string

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

sData

string

вміст ключа, текстовий рядок. Може бути порожнім.

 

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

0

функція виконана успішно;

-1

значення ключа не може складатися із пробілів або бути порожнім.

 

Приклад
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

mDBStorageGetData

mLogScript