Многоязычный интерфейс приложений

[KWN, lnc]

Доброго времени суток, уважаемые эксперты!
Я хотел бы создать именно так как здесь в примере.

[Language]
ErrorRegOpenKey=Ошибка открытия
ErrorRegCreateKey=Ошибка создания
ErrorRegWriteKey=Ошибка записи

[Language]
ErrorRegOpenKey=Error opening
ErrorRegCreateKey=Error creating
ErrorRegWriteKey=Error writing

т.е. есть 2-ва iniFil(а) English.ini и Russian.ini

ЗАРАНЕЕ БОЛЬШОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО!!!

[Stilet]

Хы... Во-первых:

[Russian]
ErrorRegOpenKey=Ошибка открытия
ErrorRegCreateKey=Ошибка создания
ErrorRegWriteKey=Ошибка записи

[English]
ErrorRegOpenKey=Error opening
ErrorRegCreateKey=Error creating
ErrorRegWriteKey=Error writing

Ну а дальше через TIniFiles открывай нужную ветку (можно даже выяснить какой язык винды и его ветку считывать) и считывай ключи.

[KWN, lnc]

А исходник кода можно ПОЖАЛУЙСТА

[Stilet]

Пожалуйста:
http://www.delphiworld.narod.ru/base...any_langs.html
http://www.delphiworld.narod.ru/base/multilang_app.html

[mihali4]

А у нас ?
http://www.programmersforum.ru/showt...ht=Russian.ini
Все разжевано и в рот положено...

[KWN, lnc]

в тех примерах нету такого как я здесь вписал (((
я же написал то что хотелось бы именно так как здесь

ErrorRegOpenKey=Ошибка открытия

[psycho-coder]

Сообщение от KWN, lnc

в тех примерах нету такого как я здесь вписал (((
я же написал то что хотелось бы именно так как здесь

ErrorRegOpenKey=Ошибка открытия

Вот накидал на скорую руку. Можно еще прикрутить что бы PopupMenu и MainMenu тоже сохранял, но это нужно с вложенными циклами делать и с кучей проверок.
Под себя надеюсь изменишь?

procedure TForm1.Button5Click(Sender: TObject);
var
  lang: TStringList;
  i: Integer;
  Comp: TComponent;
begin
  lang := TStringList.Create;
  for i := 0 to Self.ComponentCount - 1 do
  begin
    Comp := Self.Components[i];
    if (Comp.ClassType = TLabel) or (Comp.ClassType = TButton) then
    begin
      lang.Values[Comp.Name] := TLabel(Comp).Caption;
    end;
  end;
  lang.SaveToFile('language.txt');
  lang.Free;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  lang: TStringList;
  i: Integer;
  Comp: TControl;
begin
  lang := TStringList.Create;
  lang.LoadFromFile('language.txt');
  for i := 0 to Self.ControlCount - 1 do
  begin
    Comp := Self.Controls[i];
    if (Comp.ClassType = TLabel) or (Comp.ClassType = TButton) then
    begin
      TLabel(Comp).Caption := lang.Values[Comp.Name];
    end;
  end;
  lang.Free;
end;

[KWN, lnc]

psycho-coder, ну тут опять же - идет обработка через компонент.

Label(i).Caption

((( а мне надо чтобы так как здесь в примере + в *.ini формате!!! вот о чем речь.

ErrorRegOpenKey=Ошибка открытия

а через компонент я уже давным давно сообразил.

[mihali4]

ТС...KWN, lnc
Я так понял (если понял вашу замаскированную донельзя замысловатость) - вам нужно, чтобы сообщения при исключениях были на разных язЫках ?

[KWN, lnc]

mihali4, Да!