Как грамотно загружать языковые файлы в приложение?

[Air]

могу предложить наработку.

Uses IniFiles;
...

function ReadSettingsINI(WayIni,NameIni,Section,Ident,DefaultVol:string):String;
var
sl:string;
ini:TIniFile;
begin
if Nameini = '' then Nameini:='IniFile.ini';
if WayIni <> '' then
 begin
  if not directoryExists(WayIni) then CreateDir(WayIni);
  if WayIni[strlen(pchar(WayIni))] <> '\' then sl:='\';
  ini:=TIniFile.Create(WayIni+sl+NameIni);
 end
else
 ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+NameIni);
Result:=ini.ReadString(Section, Ident, DefaultVol);
ini.Destroy;
end;

function SaveSettingsINI(WayIni,NameIni,Section,Ident,Volume:string):boolean;
var
sl:string;
ini:TIniFile;
begin
Result:=false;
if Nameini = '' then Nameini:='IniFile.ini';
if WayIni <> '' then
 begin
  if not directoryExists(WayIni) then CreateDir(WayIni);
  if WayIni[strlen(pchar(WayIni))] <> '\' then sl:='\';
  ini:=TIniFile.Create(WayIni+sl+NameIni);
 end
else
 ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+NameIni);

ini.WriteString(Section, Ident, Volume);
if ini.ReadString(Section, Ident, '') <> '' then
 result:=true;
ini.Destroy;
end;

Это вырезка из моего модуля...

Соответственно для кажлой label и всего остального используй "ReadSettingsINI"

[apromix]

Огромное спасибо!