IResourceExporter.Strings

Синтаксис

Strings: Array;

Описание

Свойство Strings определяет строки ресурсов для экспорта.

Комментарии

Если данное свойство не определено, то экспортируются все строки ресурсов.

Пример

Для выполнения примера предполагается наличие в репозитории ресурсов с идентификатором «RESOURCES». В данных ресурсах должны присутствовать русский и английский языки.

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

ExpObj: ResourceExporter;

Cons: DtTextConsumer;

ResObj: IResourceObject;

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

ResStrings: IResourceStrings;

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

i: Integer;

Key: Integer;

Begin

Cons := New DtTextConsumer.Create;

ExpObj := New ResourceExporter.Create;

MB := MetabaseClass.Active;

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

ResObj := MObj As IResourceObject;

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

Cons.WriteHeader := True;

ExpObj.Consumer := Cons;

CountrysArr[0] := "ru";

CountrysArr[1] := "en";

ExpObj.Locales := CountrysArr;

ResStrings := ResObj.Strings;

For i := 0 To 1 Do

Key := ResStrings.Key(i);

Strings[i] := ResStrings.Id(Key);

End For;

ExpObj.Strings := Strings;

ExpObj.Resource := ResObj;

ExpObj.Export;

End Sub Main;

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

См. также:

IResourceExporter