我写改进的delphi多语言翻译单元 LanguageFile := tLanguageFile.create; languagefile.CurrOwner := self; if CLanguage then begin languagefile.ExportPropertytoInifile(self, 'caption', extractfilePath(application.ExeName)+TheLanguageFile); //languagefile.ExportPropertytoInifile(self, 'items', extractf