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