Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Нужно создать программу на Delphi отображающую Юникод
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
mauar
Guest
 
Сообщений: n/a
По умолчанию 18.05.2008, 06:29

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно создать интерактивную программу dakila Любые вопросы от новичков 0 26.12.2011 17:45
DatabaseDesktop нужно создать программу для тестирования знаний wacrug Delphi 1 09.03.2011 11:11
Нужно создать mfc custom control DoPinG83 Visual C++ 0 11.12.2010 01:11
Нужно создать программу с массивом на паскале! Olllov Pascal 1 28.10.2010 10:53
Нужно создать пермутацию chery Prolog 0 09.04.2010 06:37
Как поставить нужный юникод amorphius Perl 3 09.05.2009 16:59
Ручная вставка символов юникод Diver2 Вопросы начинающих программистов 9 13.09.2008 14:35
Вывести юникод-символ Madgeniy Delphi 1 08.10.2007 23:14
Delphi для Photoshop что нужно для этого Sir G Delphi 5 25.11.2005 13:14
Что нужно для программирования в среде Delphi Monah IRH Delphi 11 26.02.2005 22:08
Нужно програмно создать TImage Алексеев Николай Delphi 12 03.02.2005 06:31
юникод Вован PHP 1 17.11.2004 18:57



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов