IdToName.Load(TableName, IdFieldName, NameFieldName : String)
Загрузить наименования из таблицы БД в память.

Метод IdToName.Load загружает наименования из таблицы БД в память.

Аргумент TableName содержит имя таблицы БД из которой загружаются данные. Аргумент IdFieldName содержит имя поля типа Integer содержащего число, по которому выполняется поиск. Для ускорения загрузки данных поле ID должно быть первичным ключом или для этого поля должен быть создан индекс. Аргумент NameFieldName содержит имя поля типа String содержащее строку, которую возвращает функция поиска..

Пример:

Procedure OnCreate;
Var
  Names : IdToName;
  S : String;
Begin
  Names.Load('Clients', 'Id', 'Name');
  S := Names.Get('Clients', 103);
  Warning(S);
End;

Пример:

Procedure OnCreate;
Var
  D : Dataset Of Record Name : String; End;
  i : Integer;
  w : Work;
  Names : IdToName;
Begin
  D := (Select TableName from MetalistFields);
  W.Description := 'Загрузка справочников';
  For i:=0 To D.Count-1 Do
  Begin
    W.Progress := FloatToInt(i/D.Count*100);
    Names.Load(D[i].Name, 'Id', 'Name');
  End;
End;

© RTIT