IResourceImporterLog.Count

Синтаксис

Count: Integer;

Описание

Свойство Count возвращает количество строк ресурсов, которые были импортированы.

Пример

Для выполнения примера предполагается наличие в репозитории ресурсов с идентификатором «RESOURCES». Также предполагается наличие файла, в который были экспортированы ресурсы «C:\Res.txt».

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

ImpObj: ResourceImporter;

Prov: DtTextProvider;

ResObj: IResourceObject;

CountrysArr: Array[0..1] Of String;

Log: IResourceImporterLog;

i: Integer;

s: String;

Begin

Prov := New DtTextProvider.Create;

ImpObj := New ResourceImporter.Create;

MB := MetabaseClass.Active;

MObj := MB.ItemById("RESOURCES").Edit;

ResObj := MObj As IResourceObject;

Prov.File := "C:\Res.txt";

Prov.RangeHasHeader := True;

ImpObj.Provider := Prov;

CountrysArr[0] := "ru";

CountrysArr[1] := "en";

ImpObj.Locales := CountrysArr;

ImpObj.Resource := ResObj;

ImpObj.Method := ResourceImportType.UpdateAndAdd;

ImpObj.Import;

Log := ImpObj.Log;

Debug.WriteLine("Всего " + Log.Count.ToString + " записей");

For i := 0 To Log.Count - 1 Do

Select Case log.State(i).ToString

Case "0": s := " - запись добавлена";

Case "1": s := " - запись обновлена";

Case "2": s := " - запись пропущена";

End Select;

Debug.WriteLine(Log.Item(i) + s);

End For;

End Sub Main;

После выполнения примера будет произведен импорт ресурсов из файла «C:\Res.txt». Импортироваться будут элементы, отсутствующие в текущих ресурсах, значения существующих элементов будут обновлены. Информация о ходе импорта будет выведена в окно консоли.

См. также:

IResourceImporterLog