18.05.2008, 06:29 | #1 (permalink) |
Новичок
Регистрация: 18.05.2008
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
вот код программы: Код:
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. |
18.05.2008, 06:29 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вам хорошо было бы ознакомиться со схожими обсуждениями на нашем форуме Поправьте программу, пожалуйста Нужно написать программу расчета вознаграждения |
10.12.2009, 00:49 | #5 (permalink) |
Member
Регистрация: 10.05.2008
Сообщений: 1,817
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
видео уроки есть здесь: http://opensharing.org/torrent/25234/.
http://opensharing.org/torrent/31323/ правда не уверен, что там есть объяснение: но посмотреть стоит. еще здесь полистать можно: http://www.torrentino.ru/search?kind...=+AutoCad+2009 там как сами программы, так и уроки. P. S. верхние ссылки на торренты. ---------- Добавлено в 23:49 ---------- Предыдущее сообщение было написано в 23:47 ---------- вот здесь еще написано кое-что об этом http://subscribe.ru/archive/comp.sof.../11170609.html почитай. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|