замени текст на такой:
| Код |
unit trans;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,IniFiles, Menus;
procedure ChangeLang(LangSection: string;aForm:TForm);
implementation
procedure ChangeLang(LangSection: string;aForm:TForm);
var
// временная числовая переменная для выборки всех компонентов
i: Integer;
LangIniFile: TIniFile;
// строковая переменная для получения каталога, где находится запущенный EXE файл
ProgramPath: string;
begin
// если в окне больше одного компонента
with aForm do
if ComponentCount <> 0 then
begin
// получаем каталог, где лежит запущенный EXE файл
ProgramPath := ExtractFileDir(Application.ExeName);
// гарантированно устанавливаем последний символ '\' в конце строки
if ProgramPath[Length(ProgramPath)] <> '\' then
ProgramPath := ProgramPath + '\';
// подготавливаем INI файл. Он должен иметь название lang.ini
// и должен находиться в каталоге программы
LangIniFile:=TIniFile.Create(ProgramPath+'lang.ini');
// читаем заголовок окна
Caption:=LangIniFile.ReadString(LangSection,name,Caption);
// перебираем все компоненты в этом окне
for i:=1 to ComponentCount do
begin
// если выбран из массива компонент Button, то изменяем текст на кнопке
if Components[i-1].ClassType = TButton then
(Components[i-1] as TButton).Caption := LangIniFile.ReadString(LangSection,
name+Components[i-1].name, (Components[i-1] as TButton).Caption);
if Components[i-1].ClassType = TButton then
(Components[i-1] as TButton).hint := LangIniFile.ReadString(LangSection,
name+Components[i-1].name, (Components[i-1] as TButton).Hint);
// аналогично для других типов:
if Components[i-1].ClassType = TMenuItem then
(Components[i-1] as TMenuItem).Caption := LangIniFile.ReadString(LangSection,
name+Components[i-1].name, (Components[i-1] as TMenuItem).Caption);
end;
LangIniFile.Free; // освобождаем ресурс
end;
end;
end.
|
При вызове передавай в процедуру ещё и экземпляр формы. Например
| Код |
ChangeLang('Section1',Form1);
|
|
)
О и ещё, заметил вот что. Название темы
