我写改进的delphi多语言翻译单元

【文件属性】：

文件名称：我写改进的delphi多语言翻译单元

文件大小：18KB

文件格式：PAS

更新时间：2013-05-24 07:34:22

多语言

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