VPF::Нужно создать программу отображающую Юникод

mauar

Дата 18.5.2008, 03:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 5.9.2007

Репутация: нет
Всего: нет

Нужно создать программу отображающую Юникод при изминении языка програмы на русский язык загружается данный Юникод из файла 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.

aktuba

Дата 18.5.2008, 09:34 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Цитата(mauar @ 18.5.2008, 04:34

)

Нужно создать программу отображающую Юникод при изминении языка програмы на русский язык загружается данный Юникод из файла ini

TIniFile тебе, скорее всего, не подойдет. Используй xml.

--------------------

mauar

Дата 18.5.2008, 10:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 5.9.2007

Репутация: нет
Всего: нет

Цитата(aktuba @ 18.5.2008, 09:34)

Цитата(mauar @ 18.5.2008, 04:34

)

TIniFile тебе, скорее всего, не подойдет. Используй xml.

Хм, это почему? С *.ini все работает, единственное сделать надо, это чтобы в кнопках отображался Юникод .
Тем более в Юникоде русские буквы все прописанны в виде кодов а не просто так сохраненный текстовый файл в Юникоде.

Это сообщение отредактировал(а) mauar - 18.5.2008, 10:34

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »