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

[KWN, lnc]

Stilet, ну раз ты СуперМодератор с репутацией 1770 не доделал то что ты сейчас мне описал. то мне уж точно Не По Плечу такое. (((( может быть есть что то другое, а?

[Alex Cones]

Слушайте, а Вам обязательно использовать INI? Они занимают так много места...
Не лучше ли будет использовать типизированный файл типа:

TWordsPack = Record
 String1 : ShortString;
 String2 : ShortString;
 String3 : ShortString;
 String4 : ShortString;
 ...
End;
Var
 EngWords : TWordsPack;
 RusWords : TWordsPack;

Procedure LoadWords(File:ShortString; Var WP : TWordsPack);
 Var
  F:File; 
 Begin
  AssignFile(F,File);
  Reset(F,SizeOf(TWordsPack);
  BlockWrite(F, WP, 1);
  CloseFile(F);
 End;

LoadWords('Rus.int',RusWords);
LoadWords('Eng.int',EngWords);

[KWN, lnc]

Alex Cones, желательно IniFiles чтобы пользователю давалась возможность редактировать. (( + ЖЕЛАТЕЛЬНО чтобы было так

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

Rus.ini и Eng.ini

[artemavd]

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

Stilet, ну раз ты СуперМодератор с репутацией 1770 не доделал то что ты сейчас мне описал. то мне уж точно Не По Плечу такое. (((( может быть есть что то другое, а?

Зачем Вы грубите уважаемому СуперМодератору? Stilet - принципиальный человек, он, как и большинство здешних старожил форума, не будет за Вас полностью делать. Он только подскажет идею, натолкнет на мысль и подправит если что не так. Вы поставили вопрос - Вам здесь помогают советами и идеями. Сделать Вы должны сами. Прислушивайтесь к тому, что старожилы Вам советуют и у Вас все получится. Удачи, коллега.
З.Ы. Сорри за оффтоп, просто не хочется, чтобы на этом форуме кто-то кого-то оскорблял или еще что-то.

[KWN, lnc]

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

[MalCer]

Посмотрите статьи во вложении, я думаю вам поможет

[KWN, lnc]

MalCer, опять же - тут не то что мне нужно.
там через прямые пути. А мне нужно чтобы было по сокращению.

Скажем

name=Имя
infoName=Информация

[Stilet]

не доделал то что ты сейчас мне описал

Я не доделал, потому что мне не интересно стало, и всего-то.

Ох и настойчивый же ты перец. Вместо того чтоб молитвами биться давно бы уже почитал правильную литературу про INI и компоненты.
Вот смотри:
INI

[rus]
Button1=кнопка 1
Button=кнопка 2
Label1=Метка2
[us]
Button1=Butt1
Button=Butt2
Label1=Text1

Здесь разделы с ключами, именами контролов и их заголовками
А вот программа:

unit Unit1;

interface

uses     inifiles,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var t:TIniFile;i:integer;st:TStringList;
 b:TComponent;
begin
 t:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'lang.ini');
  st:=TStringList.Create;
   t.ReadSectionValues('us',st);
   for i:=0 to st.Count-1 do begin
    b:=FindComponent(st.Names[i]);
    if b is TButton then TButton(b).Caption:=st.Values[st.Names[i]];
    if b is TLabel then TLabel(b).Caption:=st.Values[st.Names[i]];
   end;
  st.Free;
 t.Free;
end;

end.

Смысл в том что с нужной ветки ини считывается имена контролов и их заголовки через знак "=". После в цикле на форме ищутся эти контролы (с такими именами), если нашлись, выясняется какой их класс, и в зависимости от этого приводится тип, и задается считанный заголовок контрола.