Таблицы строк

Delphi , Синтаксис , Текст и Строки

if s = 'ENU'

then GetLanguage := LANG_ENGLISH

else

if s = 'ESN'

then GetLanguage := LANG_SPANISH

else

if s = 'SVE'

then GetLanguage := LANG_SWEDISH

else GetLanguage := LANG_ENGLISH;

{$ENDIF}
end;

procedure TForm1.FormCreate(Sender: TObject);
var a: array[0..255] of char;
StrTblOfs: integer;
begin {Получаем текущий язык системы и начало соответствующих строк в таблице}
case GetLanguage of

LANG_ENGLISH: StrTblOfs := 0;

LANG_SPANISH: StrTblOfs := 16;

LANG_SWEDISH: StrTblOfs := 32;

else StrTblOfs := 0; end;

{Загружаем и устанавливаем заголовок кнопки "Yes" в соответствии с языком}
if LoadString(hInstance,
StrTblOfs + 1,
@a,
sizeof(a)) <> 0 then Button1.Caption := StrPas(a);

{Загружаем и устанавливаем заголовок кнопки "No" в соответствии с языком}
if LoadString(hInstance,
StrTblOfs + 2,
@a,
sizeof(a)) <> 0 then Button2.Caption := StrPas(a); end;

Ресурсы в виде таблиц строк (Stringtable) являются полезным инструментом для хранения и редактирования большого количества строк в приложении Delphi, позволяя легко локализовать приложение и изменять язык с помощью одного щелчка.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Текст и Строки ::