Нужно создать программу отображающую Юникод при изминении языка програмы на русский язык загружается данный Юникод из файла ini
вот код программы:
| Код |
unit Unit1;
interface
uses
Windows, Controls, StdCtrls, Classes, SysUtils, Forms,
Dialogs;
type
TForm1 = class(TForm)
CNew: TButton;
AComboBox1: TComboBox;
CSample: TLabel;
TSample: TEdit;
CButton1: TButton;
CButton2: TButton;
CButton3: TButton;
CheckBox1: TCheckBox;
procedure CNewClick(Sender: TObject);
procedure AComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
f:TStringList;
implementation
{$R *.dfm}
function lang(k:string):string;
begin
lang:=copy(k,pos('=',k)+1,length(k)-pos(k,'='));
end;
procedure TForm1.CNewClick(Sender: TObject);
var
b:byte;
begin
f:=TStringList.Create;
for b:=0 to Form1.ComponentCount-1 do
begin
f.Add(Form1.Components[b].Name+'=')
end;
f.SaveToFile('NewLang.ini');
end;
procedure TForm1.AComboBox1Change(Sender: TObject);
var
b:byte;
CompType:char;
begin
f:=TStringList.Create;
f.LoadFromFile(AComboBox1.Text+'.ini');
for b:=0 to f.Count-1 do
begin
CompType:=copy(f.Strings[b],1,1)[1];
if CompType='C' then
TCheckBox(Form1.Components[b]).Caption:=lang(f.Strings[b])
else
if CompType='T' then
TEdit(Form1.Components[b]).Text:=lang(f.Strings[b])
end;
end;
end.
|
|
)