delphi实现多语言界面的最简单方法delphi 实现多语言界面的最简单方法//viewthread.php?tid=636delphi 实现多语言界面的最简单方法--------------------------------------------------------------------------------/php-delphi/delphi/69845.htm基本原理：Delphi 的VCL是通过TReader 类来对控件进行读写的,再加上VCL的源码开放性,通过修改可以它,使界面的资源从ini文件中读取:1、在classes.pas中添加：{!$IFDEF _MULTILANG}function CL(const s: WideString): String;begin{$IFDEF _MULTILANG}Result := ConvertLanguage(s);{$ELSE}Result := s;{$ENDIF}end;{!$ENDIF}2、TReader.ReadString:function TReader.ReadString: string;varL: Integer;beginif NextValue in [vaWString, vaUTF8String] then Result := ReadWideStringelsebeginL := 0;case ReadValue ofvaString:Read(L, SizeOf(Byte));vaLString:Read(L, SizeOf(Integer));elsePropValueError;end;SetLength(Result, L);Read(Pointer(Result)^, L);{$IFDEF _MULTILANG}Result := ConvertLanguage(Result); {$ENDIF}end;end;3、TReader.ReadString:function TReader.ReadWideString: WideString; varL: Integer;Temp: UTF8String;beginif NextValue in [vaString, vaLString] then Result := ReadStringelsebeginL := 0;case ReadValue ofvaWString:beginRead(L, SizeOf(Integer));SetLength(Result, L);Read(Pointer(Result)^, L * 2);end;vaUTF8String:beginRead(L, SizeOf(Integer));SetLength(Temp, L);Read(Pointer(Temp)^, L);Result := Utf8Decode(Temp);end;elsePropValueError;end;{$IFDEF _MULTILANG}Result := ConvertLanguage(Result);{$ENDIF}end;end;4.MultiLanguage.pas代码：{$DEFINE _WRITE_LANGFILE}unit MultiLang;interfaceconstcLangFileName = 'language.ini';function ConvertLanguage(const s: WideString): WideString; implementationuseswindows, SysUtils, classes, IniFiles;constUTF8TextFileTag: string = #$EF#$BB#$BF;varClSrLst: TStringList=nil;ClDtLst: TStringList=nil;ClWrLst: TStringList=nil;FIsModify:Boolean=False;function WideStrPos(const Patt, SearchStr: WideString): integer;varPP, PS, PsBk: PWideChar;isHas: Boolean;beginResult := 0;PP := PWideChar(Patt);PS := PWideChar(SearchStr);PsBk := PS;isHas := False;if (PP<>nil) and (PP^<>#0) and(PS <> nil) and (PS^ <> #0) thenbeginwhile (PS^ <> #0) dobeginif(PS^ = PP^) thenbeginif not isHas thenbeginisHas := True;PsBk := PS;end;inc(PP);if PP^ = #0 thenbeginResult := (PsBk - PWideChar(SearChStr)) + 1;Break;end;endelse if isHas thenbeginisHas := False;PP := PWideChar(Patt);PS := PsBk + 1;end;inc(PS);end;end;end;function WideStrCopy(const s: WideString; Offset, Len: Integer): WideString;varP: PWideChar;aLen: Integer;i: integer;beginResult := '';if s <> '' thenbeginaLen := Length(s) - Offset + 1;if Len < aLen thenaLen := Len;if aLen > 0 thenbeginSetLength(Result, aLen);p := PWideChar(s) + Offset - 1;for i := 1 to aLen dobeginResult[i] := p^;inc(p);end;end;end;end;function WideStrReplace(const S, OldPattern, NewPattern: WideString;Flags: TReplaceFlags): WideString;varSearchStr, Patt, NewStr: WideString;Offset: Integer;beginif rfIgnoreCase in Flags thenbeginSearchStr := WideUpperCase(S);Patt := WideUpperCase(OldPattern);end elsebeginSearchStr := S;Patt := OldPattern;end;NewStr := S;Result := '';while SearchStr <> '' dobeginOffset := WideStrPos(Patt, SearchStr);if Offset = 0 thenbeginResult := Result + NewStr;Break;end;Result := Result + WideStrCopy(NewStr, 1, Offset - 1) + NewPattern;NewStr := WideStrCopy(NewStr, Offset + Length(OldPattern), MaxInt);if not (rfReplaceAll in Flags) thenbeginResult := Result + NewStr;Break;end;SearchStr := WideStrCopy(SearchStr, Offset + Length(Patt), MaxInt);end;end;function ECode(s: WideString): WideString;vartmps: widestring;begintmps := #13#10;s := WideStrReplace(s, tmps, '{#13#10}', [rfReplaceAll]);tmps := #10;s := WideStrReplace(s, tmps, '{#13#10}', [rfReplaceAll]);s := WideStrReplace(s, '=', '{#61}' , [rfReplaceAll]);s := WideStrReplace(s, '"', '{#34}' , [rfReplaceAll]);s := WideStrReplace(s, '''', '{#39}' , [rfReplaceAll]);Result := s;end;function DCode(s: WideString): WideString;vartmps: widestring;begintmps := #13#10;s := WideStrReplace(s, '{#13#10}', tmps, [rfReplaceAll]);s := WideStrReplace(s, '{#61}' , '=', [rfReplaceAll]);s := WideStrReplace(s, '{#34}' , '"', [rfReplaceAll]);s := WideStrReplace(s, '{#39}' , '''', [rfReplaceAll]);Result := s;end;function InternalCl(const Sr: WideString; var Dt: WideString): Boolean;varIndex: Integer;beginResult := False;if ClSrLst.Find(Utf8Encode(ECode(Sr)), Index) thenbeginIndex := Integer(ClSrLst.Objects[Index]);if Index > 0 thenbeginDt := DCode(Utf8Decode(ClDtLst[Index]));Result := True;end;end;end;procedure Addc(s: WideString);varUtf8s: UTF8String;beginUtf8s := Utf8Encode(ECode(s)) + '=';if clWrLst.IndexOf(s) = -1 thenbeginFIsModify := True;ClWrLst.Add(Utf8s);end;end;function ConvertLanguage(const s: WideString): WideString; varDt: WideString;beginif InternalCl(s, Dt) thenbeginif Dt <> '' thenResult := DtelseResult := s;endelsebegin{$IFDEF _WRITE_LANGFILE}Addc(s);{$ENDIF}result := s;end;end;procedure init;vari, ci, Index: integer;beginClDtLst.Add('no use');for i := 0 to ClSrLst.Count - 1 dobeginci := Pos('=', ClSrLst[i]);if ci = 0 thenIndex := ClDtLst.Add('')elseIndex := ClDtLst.Add(Copy(ClSrLst[i], ci + 1, High(Integer)));ClSrLst.Objects[i] := TObject(Index);ClSrLst[i] := Copy(ClSrLst[i], 1, ci - 1);end;end;initializationClSrLst := TStringList.Create;if FileExists(ExtractFilePath(ParamStr(0)) + cLangFileName) thenClSrLst.LoadFromFile(ExtractFilePath(ParamStr(0)) + cLangFileName);if Copy(ClSrLst.T ext, 1, Length(UTF8TextFileTag)) = UTF8TextFileTag thenClSrLst.Text := Copy(ClSrLst.Text, Length(UTF8TextFileT ag) + 1, high(Integer));ClDtLst := TStringList.Create;ClWrLst := TStringList.Create;ClWrLst.Sorted := True;init;ClSrLst.Sorted := True;finalization{$IFDEF _WRITE_LANGFILE}if FIsModify thenbegintryif FileExists(ExtractFilePath(ParamStr(0)) + cLangFileName) thenClSrLst.LoadFromFile(ExtractFilePath(ParamStr(0)) + cLangFileName);exceptOn EFOpenError do;end;ClWrLst.AddStrings(ClSrLst);tryClWrLst.SaveToFile(ExtractFilePath(ParamStr(0)) + cLangFileName);exceptend;end;{$ENDIF}FreeAndNil(ClWrLst);FreeAndNil(ClSrLst);FreeAndNil(ClDtLst);end.。
![Delphi实用教程(第2版)[郑阿奇主编][电子教案]](https://img.taocdn.com/s1/m/c9ffc80cf12d2af90242e601.png)
