• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

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

  • Автор темы Автор темы mauar
  • Дата начала Дата начала

mauar

Ученик
Регистрация
18 Май 2008
Сообщения
1
Реакции
0
Баллы
0
Нужно создать программу отображающую Юникод при изминении языка програмы на русский язык загружается данный Юникод из файла 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.
 
AutoCad 2009

Кто нибудь знает как рамку со штампом начертить на формате А4, А3.
Заранее спасибо.
 
specnaz, что значит как начертить ? Именно в автокаде или просто нужны размеры основной надписи ?
 
Размеры то я знаю в строительном колледже всетаки учусь мне на именно как в AutoCad пошаговую инструкцию а еще лучше видео.
 
видео уроки есть здесь: http://opensharing.org/torrent/25234/.
http://opensharing.org/torrent/31323/
правда не уверен, что там есть объяснение:
как рамку со штампом начертить на формате А4, А3.
но посмотреть стоит.
еще здесь полистать можно: http://www.torrentino.ru/search?kind=0&search=+AutoCad+2009
там как сами программы, так и уроки.
P. S. верхние ссылки на торренты.

---------- Добавлено в 23:49 ---------- Предыдущее сообщение было написано в 23:47 ----------

вот здесь еще написано кое-что об этом http://subscribe.ru/archive/comp.soft.graph.autocadeasy/200608/11170609.html
почитай.
 
Назад
Сверху