关又简体和翻体如何知动转换？ 我们开发的系统是在简体WIN2K，可有的用户是繁体WIN2K，请问如何让在繁体版的WIN2K已能正常使用？ 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 //摘自猛料用INI实现多语言界面的切换 对于INI文件的操作，我不多说了，仅仅就如何实现语言界面的切换做一个简单的说明：首先，必须把所有的INI语言文件的结构统一，这样，我们只要传入INI的文件名，就可以通用了，例如我们可以做一个过程SetLanguage(const FileName:string);，这样只要用SetLanguage('CN.INI')就可以了，第二个需要注意的地方，你应该可以让用户选择语言界面的文件，因此程序启动的时候，应该搜索程序目录下面的所有INI文件，当然，你可以在INI文件里面添加一些附加的东西，例如，判断是否是语言INI文件还是其他的配置文件，显示的文字等等~~~~~，如果你的程序中还使用了类似ShowMessage('File Saved!')之类的语句，那么也应该用变量代替！！！例如：ShowMessage(MSG_FILE_SAVED);然后读取INI的时候，一起读入MSG_FILE_SAVED，这样才能保证所有的信息全部变成相应的语言！如果对于这些嵌入程序的信息你怕一个个很麻烦的话， 可以用数组来做~~~~~~~~~：）。接下来就是翻译文字了，这个就~~~~~~~~免了吧？最重要的一步到了：切换语言！我以前的方法是自己写一个过程，用Lable1.Caption:=Ini.ReadString(....)之类的，$^*$#@&^@*(^@(^$@^，现在想起来，怎么这么弱？：（，真的很笨，嗯咳~~~~~~不许笑，：），这个方法有一个缺点就是如果你添加一个控件就^$#@&*^%@&*了~~~~~~~~~，所以必须找一个更好的方法！看看下面的函数就知道了：procedure SetLanguage(const FileName:string);使用这个方法对于大多数的情况已经够了，但是有一个不方便的地方是如果动态创建窗体或者控件的话，就不行了~~~~~：（，不过你可以根据你的需要，可以修改上面的过程，然后在每一个窗体的OnCreate中添加代码就可以了，例如你把上面的过程改成对单个窗体的，就可以了：）。如果还有考虑不到的控件，你自己添加好了~~：），对于一些小程序来说，下面的已经够了：{***************************************** 模块说明：利用切换INI切换语言函数** 作者：[email protected] *****************************************}{****************************************下面的编译指定表示是否导出成一个INI文件一般的情况下面，没有必要修改，但需要母本INI的时候，可以把注释去掉****************************************}{$IFNDEF INI_EXPORT}///{$DEFINE INI_EXPORT}{$ENDIF}{****************************************函数参数说明：FileName:Ini语言文件名msg:用于程序中的信息的保存数组IgnoreTagValue:需要忽略的组件的Tag值使用举例：varMsg:array of string;.....SetLanguage(ExtractFilePath(ParamStr(0))+'English.Ini',msg,$FF);那么函数会忽略所有Tag值为$FF的控件****************************************}procedure SetLanguage(const FileName: string; var msg: array of string; const IgnoreTagValue: byte = $FF);const///下面是一些常量TRANS_SECTION = 'Translations';MESSAGES = 'Messages';COMMON = 'Common';HINT = 'Hint';CAPTION = 'Caption';MSG_PRE = 'SS_Msg_';vari, j, k : integer;Component : TComponent;Control : TControl;Strings : TStrings;Id : string;OldCaption : pchar;L : integer;beginwith TIniFile.Create(FileName) dotry{$IFDEF INI_EXPORT}if Application.Title<>'' then WriteString(COMMON, 'Application.Title', Application.Title);WriteBool(COMMON, 'CheckValid', True);{$ELSE}if not ReadBool(COMMON, 'CheckValid', False) then exit; ///不是合法的语言文件Application.Title := ReadString(COMMON, 'Application.Title', Application.Title);{$ENDIF}for i := Low(msg) to High(msg) do ///读取非控件的一些语言元素{$IFDEF INI_EXPORT}if Msg[i]<>'' thenWriteString(MESSAGES, MSG_PRE + IntToStr(i), msg[i]);{$ELSE}msg[i] := ReadString(MESSAGES, MSG_PRE + IntToStr(i), msg[i]);{$ENDIF}for i := 0 to Screen.FormCount - 1 do ///遍历程序所有窗体begin{$IFDEF INI_EXPORT}if Screen.Forms[i].Caption<>'' thenWriteString(TRANS_SECTION, Screen.Forms[i].Name + '.' + CAPTION, Screen.Forms[i].Caption);if Screen.Forms[i].Hint<>'' thenWriteString(TRANS_SECTION, Screen.Forms[i].Name + '.' + HINT, Screen.Forms[i].Hint);{$ELSE}Screen.Forms[i].Caption := ReadString(TRANS_SECTION, Screen.Forms[i].Name + '.' + CAPTION, Screen.Forms[i].Caption);Screen.Forms[i].Hint := ReadString(TRANS_SECTION, Screen.Forms[i].Name + '.' + HINT, Screen.Forms[i].Hint);{$ENDIF}for j := 0 to Screen.Forms[i].ComponentCount - 1 do ///遍历窗体所有组件beginComponent := Screen.Forms[i].Components[j] as TComponent;if Component.Tag = IgnoreTagValue then Continue; ///需要忽略的控件Id := Screen.Forms[i].Name + '.' + Component.Name + '.';if Component is TControl then ///普通的控件如：TButton,TSpeedButton,TBitBtn,TCheckBox....beginControl := Component as TControl;/// 下面的代码是用来生成第一个INI文件使用的{$IFDEF INI_EXPORT}if Control.Hint<>'' thenWriteString(TRANS_SECTION, Id + HINT, Control.Hint);{$ELSE}Control.Hint := ReadString(TRANS_SECTION, Id + HINT, Control.Hint);{$ENDIF}if Control is TCustomEdit then Continue; ///忽略TMemo,TEdit之类的if (Component is TCustomListBox) or (Component is TCustomRadioGroup)or (Component is TCustomComboBox) then /// Listbox,RadioGroup,Combobox必须单独处理beginStrings := nil; ///本行用于忽略编译信息if Component is TCustomListBox then Strings := TCustomListBox(Component).Items;if Component is TCustomRadioGroup then Strings := TRadioGroup(Component).Items;if Component is TCustomComboBox then Strings := TCustomComboBox(Component).Items;for k := 0 to Strings.Count - 1 do ///遍历Items的每一项{$IFDEF INI_EXPORT}WriteString(TRANS_SECTION, ID + 'Items.' + IntToStr(k), Strings.Strings[k]);{$ELSE}Strings.Strings[k] := ReadString(TRANS_SECTION, ID + 'Items.' + IntToStr(k), Strings.Strings[k]);{$ENDIF}end;if Component is TCustomComboBox then Continue; ///Combobox还有一点儿问题，:-(L := Control.GetTextLen + 1;GetMem(OldCaption, L);Control.GetTextBuf(OldCaption, L);{$IFDEF INI_EXPORT}if StrPas(OldCaption)<>'' thenWriteString(TRANS_SECTION, Id + CAPTION, OldCaption);{$ELSE}Control.SetTextBuf(pchar(ReadString(TRANS_SECTION, Id + CAPTION, OldCaption)));{$ENDIF}FreeMem(OldCaption, L);continue;end;if Component is TMenuItem then /// 处理TMenuItembegin{$IFDEF INI_EXPORT}if (TMenuItem(Component).Caption<>'') and (TMenuItem(Component).Caption <>'-') thenWriteString(TRANS_SECTION, Id + CAPTION, TMenuItem(Component).Caption);if TMenuItem(Component).Hint<>'' thenWriteString(TRANS_SECTION, Id + HINT, TMenuItem(Component).Hint);{$ELSE}TMenuItem(Component).Caption := ReadString(TRANS_SECTION, ID + CAPTION, TMenuItem(Component).Caption);TMenuItem(Component).Hint := ReadString(TRANS_SECTION, ID + HINT, TMenuItem(Component).Hint);{$ENDIF}Continue;end;if Component is TCustomAction then /// 处理TActionbegin{$IFDEF INI_EXPORT}if TCustomAction(Component).Caption<>'' thenWriteString(TRANS_SECTION, Id + CAPTION, TCustomAction(Component).Caption);if TCustomAction(Component).Hint<>'' thenWriteString(TRANS_SECTION, Id + HINT, TCustomAction(Component).Hint);{$ELSE}TCustomAction(Component).Caption := ReadString(TRANS_SECTION, CAPTION, TCustomAction(Component).Caption);TCustomAction(Component).Hint := ReadString(TRANS_SECTION, ID + HINT, TCustomAction(Component).Hint);{$ENDIF}Continue;end;if Component is TOpenDialog then ///处理TOpenDialog,TSaveDialog,....begin{$IFDEF INI_EXPORT}if TOpenDialog(Component).Filter<>'' thenWriteString(TRANS_SECTION, Id + 'Filter', TOpenDialog(Component).Filter);if TOpenDialog(Component).Title<>'' thenWriteString(TRANS_SECTION, Id + 'Title', TOpenDialog(Component).Title);{$ELSE}TOpenDialog(Component).Filter := ReadString(TRANS_SECTION, ID + HINT, TOpenDialog(Component).Filter);TOpenDialog(Component).Title := ReadString(TRANS_SECTION, CAPTION, TOpenDialog(Component).Title);{$ENDIF}end;end;end;finallyFree;end;end; 用DELPHI自带的Language Manager,注意，你要显示的字符串要声明成resourcestring而不是const StretchFilter怎么会报错？ 服务中怎么调用动态库 如何向oracle中date类型的字段中插入数据 DELPHI开发COM组件问题,求高手 请教关于packetrecords,fetchOnDemand的问题 判断edit1，请大家看看，有分 在Memo中输入的过程可以使用吗？ 请问，怎么把JPG图转成BMP的，怎么把BMP转成JPG的呢，要代码 出提示错误如下: 能否在程序中改变显示的外观？就像在“显示属性”－“外观”中设置那样？ 看过一些程序利用网页开发界面,如何做? DBGridEh点击标题标题如何实现?
用INI实现多语言界面的切换
对于INI文件的操作，我不多说了，仅仅就如何实现语言界面的切换做一个简单的说明：首先，必须把所有的INI语言文件的结构统一，这样，我们只要传入INI的文件名，就可以通用了，例如我们可以做一个过程SetLanguage(const FileName:string);，这样只要用SetLanguage('CN.INI')就可以了，第二个需要注意的地方，你应该可以让用户选择语言界面的文件，因此程序启动的时候，应该搜索程序目录下面的所有INI文件，当然，你可以在INI文件里面添加一些附加的东西，例如，判断是否是语言INI文件还是其他的配置文件，显示的文字等等~~~~~，如果你的程序中还使用了类似ShowMessage('File Saved!')之类的语句，那么也应该用变量代替！！！例如：ShowMessage(MSG_FILE_SAVED);然后读取INI的时候，一起读入MSG_FILE_SAVED，这样才能保证所有的信息全部变成相应的语言！如果对于这些嵌入程序的信息你怕一个个很麻烦的话， 可以用数组来做~~~~~~~~~：）。接下来就是翻译文字了，这个就~~~~~~~~免了吧？最重要的一步到了：切换语言！我以前的方法是自己写一个过程，用Lable1.Caption:=Ini.ReadString(....)之类的，$^*$#@&^@*(^@(^$@^，现在想起来，怎么这么弱？：（，真的很笨，嗯咳~~~~~~不许笑，：），这个方法有一个缺点就是如果你添加一个控件就^$#@&*^%@&*了~~~~~~~~~，所以必须找一个更好的方法！看看下面的函数就知道了：procedure SetLanguage(const FileName:string);使用这个方法对于大多数的情况已经够了，但是有一个不方便的地方是如果动态创建窗体或者控件的话，就不行了~~~~~：（，不过你可以根据你的需要，可以修改上面的过程，然后在每一个窗体的OnCreate中添加代码就可以了，例如你把上面的过程改成对单个窗体的，就可以了：）。如果还有考虑不到的控件，你自己添加好了~~：），对于一些小程序来说，下面的已经够了：{***************************************** 模块说明：利用切换INI切换语言函数** 作者：[email protected] *****************************************}{****************************************下面的编译指定表示是否导出成一个INI文件一般的情况下面，没有必要修改，但需要母本INI的时候，可以把注释去掉****************************************}{$IFNDEF INI_EXPORT}///{$DEFINE INI_EXPORT}{$ENDIF}{****************************************函数参数说明：FileName:Ini语言文件名msg:用于程序中的信息的保存数组IgnoreTagValue:需要忽略的组件的Tag值使用举例：varMsg:array of string;.....SetLanguage(ExtractFilePath(ParamStr(0))+'English.Ini',msg,$FF);那么函数会忽略所有Tag值为$FF的控件****************************************}procedure SetLanguage(const FileName: string; var msg: array of string; const IgnoreTagValue: byte = $FF);const///下面是一些常量TRANS_SECTION = 'Translations';MESSAGES = 'Messages';COMMON = 'Common';HINT = 'Hint';CAPTION = 'Caption';MSG_PRE = 'SS_Msg_';vari, j, k : integer;Component : TComponent;Control : TControl;Strings : TStrings;Id : string;OldCaption : pchar;L : integer;beginwith TIniFile.Create(FileName) dotry{$IFDEF INI_EXPORT}if Application.Title<>'' then WriteString(COMMON, 'Application.Title', Application.Title);WriteBool(COMMON, 'CheckValid', True);{$ELSE}if not ReadBool(COMMON, 'CheckValid', False) then exit; ///不是合法的语言文件Application.Title := ReadString(COMMON, 'Application.Title', Application.Title);{$ENDIF}for i := Low(msg) to High(msg) do ///读取非控件的一些语言元素{$IFDEF INI_EXPORT}if Msg[i]<>'' thenWriteString(MESSAGES, MSG_PRE + IntToStr(i), msg[i]);{$ELSE}msg[i] := ReadString(MESSAGES, MSG_PRE + IntToStr(i), msg[i]);{$ENDIF}for i := 0 to Screen.FormCount - 1 do ///遍历程序所有窗体begin{$IFDEF INI_EXPORT}if Screen.Forms[i].Caption<>'' thenWriteString(TRANS_SECTION, Screen.Forms[i].Name + '.' + CAPTION, Screen.Forms[i].Caption);if Screen.Forms[i].Hint<>'' thenWriteString(TRANS_SECTION, Screen.Forms[i].Name + '.' + HINT, Screen.Forms[i].Hint);{$ELSE}Screen.Forms[i].Caption := ReadString(TRANS_SECTION, Screen.Forms[i].Name + '.' + CAPTION, Screen.Forms[i].Caption);Screen.Forms[i].Hint := ReadString(TRANS_SECTION, Screen.Forms[i].Name + '.' + HINT, Screen.Forms[i].Hint);{$ENDIF}for j := 0 to Screen.Forms[i].ComponentCount - 1 do ///遍历窗体所有组件beginComponent := Screen.Forms[i].Components[j] as TComponent;if Component.Tag = IgnoreTagValue then Continue; ///需要忽略的控件Id := Screen.Forms[i].Name + '.' + Component.Name + '.';if Component is TControl then ///普通的控件如：TButton,TSpeedButton,TBitBtn,TCheckBox....beginControl := Component as TControl;/// 下面的代码是用来生成第一个INI文件使用的{$IFDEF INI_EXPORT}if Control.Hint<>'' thenWriteString(TRANS_SECTION, Id + HINT, Control.Hint);{$ELSE}Control.Hint := ReadString(TRANS_SECTION, Id + HINT, Control.Hint);{$ENDIF}if Control is TCustomEdit then Continue; ///忽略TMemo,TEdit之类的if (Component is TCustomListBox) or (Component is TCustomRadioGroup)or (Component is TCustomComboBox) then /// Listbox,RadioGroup,Combobox必须单独处理beginStrings := nil; ///本行用于忽略编译信息if Component is TCustomListBox then Strings := TCustomListBox(Component).Items;if Component is TCustomRadioGroup then Strings := TRadioGroup(Component).Items;if Component is TCustomComboBox then Strings := TCustomComboBox(Component).Items;for k := 0 to Strings.Count - 1 do ///遍历Items的每一项{$IFDEF INI_EXPORT}WriteString(TRANS_SECTION, ID + 'Items.' + IntToStr(k), Strings.Strings[k]);{$ELSE}Strings.Strings[k] := ReadString(TRANS_SECTION, ID + 'Items.' + IntToStr(k), Strings.Strings[k]);{$ENDIF}end;if Component is TCustomComboBox then Continue; ///Combobox还有一点儿问题，:-(L := Control.GetTextLen + 1;GetMem(OldCaption, L);Control.GetTextBuf(OldCaption, L);{$IFDEF INI_EXPORT}if StrPas(OldCaption)<>'' thenWriteString(TRANS_SECTION, Id + CAPTION, OldCaption);{$ELSE}Control.SetTextBuf(pchar(ReadString(TRANS_SECTION, Id + CAPTION, OldCaption)));{$ENDIF}FreeMem(OldCaption, L);continue;end;if Component is TMenuItem then /// 处理TMenuItembegin{$IFDEF INI_EXPORT}if (TMenuItem(Component).Caption<>'') and (TMenuItem(Component).Caption <>'-') thenWriteString(TRANS_SECTION, Id + CAPTION, TMenuItem(Component).Caption);if TMenuItem(Component).Hint<>'' thenWriteString(TRANS_SECTION, Id + HINT, TMenuItem(Component).Hint);{$ELSE}TMenuItem(Component).Caption := ReadString(TRANS_SECTION, ID + CAPTION, TMenuItem(Component).Caption);TMenuItem(Component).Hint := ReadString(TRANS_SECTION, ID + HINT, TMenuItem(Component).Hint);{$ENDIF}Continue;end;if Component is TCustomAction then /// 处理TActionbegin{$IFDEF INI_EXPORT}if TCustomAction(Component).Caption<>'' thenWriteString(TRANS_SECTION, Id + CAPTION, TCustomAction(Component).Caption);if TCustomAction(Component).Hint<>'' thenWriteString(TRANS_SECTION, Id + HINT, TCustomAction(Component).Hint);{$ELSE}TCustomAction(Component).Caption := ReadString(TRANS_SECTION, CAPTION, TCustomAction(Component).Caption);TCustomAction(Component).Hint := ReadString(TRANS_SECTION, ID + HINT, TCustomAction(Component).Hint);{$ENDIF}Continue;end;if Component is TOpenDialog then ///处理TOpenDialog,TSaveDialog,....begin{$IFDEF INI_EXPORT}if TOpenDialog(Component).Filter<>'' thenWriteString(TRANS_SECTION, Id + 'Filter', TOpenDialog(Component).Filter);if TOpenDialog(Component).Title<>'' thenWriteString(TRANS_SECTION, Id + 'Title', TOpenDialog(Component).Title);{$ELSE}TOpenDialog(Component).Filter := ReadString(TRANS_SECTION, ID + HINT, TOpenDialog(Component).Filter);TOpenDialog(Component).Title := ReadString(TRANS_SECTION, CAPTION, TOpenDialog(Component).Title);{$ENDIF}end;end;end;finallyFree;end;end;
注意，你要显示的字符串要声明成resourcestring而不是const