Использования языков через ini

[ZvEr_HaCkEr]

Всем добрых суток.В начале хотел использовать LNG, но потом передумал.Потому что нашел более приемлемый способ создания разноязычного интерфейса программы.А в часности ini файл с языком.Помогите осуществить это.Вот пример

[MENU]
Start=СТАРТ
Stop=СТОП
Mode=Режим
Lesson=Урок
Phrases=Фразы
Other=Другие режимы
Letters=Буквы (из фраз)
AllKeys=ВСЕ символы
ExtFile=Внешний файл
Choose=Выбрать внешний файл
PrevLes=Предыдущий урок
NextLes=Следующий урок
Editor=Редактор уроков
Add=Добавить фраз
Progress=Прогресс
Options=Опции
Layout=Раскладка
Switch=Переключить
Keyb=Клавиатура
Playlist=Список песенок
Next=Следующий музон
Volume=Громкость музыки
OnOff=Вкл/выкл музыку
VolUp=Всем на зло +10%
VolDn=Потише, пжлста
Settings=На стройку
Users=Ученики
List=мУченики
Help=Помощь
SOS=Айболит - без обеда и выходных
Game=Игруха Fastmind
About=О Stamina...  О, Stamina!

[MISC]
Welcome=Пробел - СТАРТ, Esc - СТОП/Выход
Record=Рекорд
Close=Закрыть
Cancel=Отмена
Browse=Обзор
AllFiles=Всё такое
TextFiles=Текстовые файлы

[RESULT]
Result=Результат
Tend=Тенденция, однако
Time=Время
Typed=Натыкано
Of=из
Speed=Скорость
Errors=Ошибок
Finish=Завершить
Resume=Продолжить

Как понял слова в таких скобках[] тип,а 1:название=2:название где название1 имя объекта(или caption?).Короче разъясните че к чему и как мона использовать сие ini для создания разноязычного интерфейса.Зарание всем спасибо!

[GunSmoker]

Есть предложение начать с чтения книжек.

[Stilet]

Например у тебя есть на форме компоненты. которые имеют имена, описанные в INI в параметрах перед равно (Start, Stop...). Предположим это пункты меню. Тогда их (или вообще любых компонентов) заголовки можно прочитать из ИНИ файла таким способом

uses          inifiles,
...
procedure TForm1.FormCreate(Sender: TObject);
var i:TIniFile;k:Integer;
begin
 i:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'File1.ini');
 for k:=0 to ComponentCount-1 do begin
  if Components[k] is TMenuItem then
   TMenuItem(Components[k]).Caption:=i.ReadString('MENU',TMenuItem(Components[k]).Name,TMenuItem(Components[k]).Caption);
 end;
 i:=nil;
end;

[ZvEr_HaCkEr]

Stilet спасибо ограмное выручил!!!
А как такое с метками сделать можно?

[Stilet]

А как такое с метками сделать можно?

Для кого я писал:

или вообще любых компонентов

 if Components[k] is TLabel then
   TLabel (Components[k]).Caption:=...

if Components[k] is TButton then
   TButton (Components[k]).Caption:=...

и т.д. главное тип правильно привести.

[GunSmoker]

Сообщение от Stilet

заголовки можно прочитать из ИНИ файла таким способом

Говно-код зачем же давать? Где try, где Free? Явно же виден уровень автора темы, что он сам не догонит.

[Stilet]

GunSmoker

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

[Человек_Борща]

Сообщение от GunSmoker

Говно-код зачем же давать? Где try, где Free? Явно же виден уровень автора темы, что он сам не догонит.

Для примера этого вполне достаточно.
Человек сам в состоянии догодаться что try..except нужны.... иначе догодается отладчик.. =)
А со временем найдет ругой способ реализации...

[Ins]

i:=nil;

Дааа, интересная строчка....

[Человек_Борща]

Если на то пошло, то:

FreeandNil(i);