Delphi-дің қолданылуы мен тағайындалуы

Мазмұны

Кіріспе ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...3

1.Delphi.дің қолданылуы мен тағайындалуы
1.1Программаның терезесіні сипатталуы ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 9
1.2 Компоненттердің қасиеттерінің орналастырылуы ... ... ... ... ... ... ... ... ... ..12
1.3 Программаның скриншоты ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 13
1.4 Есепті құру ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...10


2.Деректер қоры (ДҚ)
2.1 Деректер қоры деген не? ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..8
2.2 Компонентердің қасиетіне бөлгіш орнату ... ... ... ... ... ... ... ... ... ... ... ... .14
2.3 Компоненттердің өлшемін өзгерту ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 15


3.Жұмысқа анықтама ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .18

Қорытынды ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..19

Пайдаланылған әдебиеттер тізім ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .20

Программаның листингісі ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
        
        Мазмұны
Кіріспе………………………………………………………………………..3
1.Delphi-дің қолданылуы мен ... ... ... ... ... ... қоры (ДҚ)
2.1 Деректер қоры деген
не?.........................................................................
.........8
2.2 ... ... ... ... өлшемін
өзгерту................................................................15
3.Жұмысқа
анықтама....................................................................
.....18
Қорытынды...................................................................
.......................................19
Пайдаланылған ... ... ... архивтеуге ... ... ... істеуге арналған жасаушы немесе Windows-тың
операциондық ... ... да бір ... ... ... тілінде
жазылган. Қазіргі таңда программа құру үшін кеңінен қолданылатын 400 дей
программалау тілі бар және ... ... ... кезде ұмытылып кеткен
мыңнан астам түрі бар. ... тілі ... ... жіне ... ... ... алгаритімді сипаттауға мүмкіндік береді.
Кілтті сөздерді (олар ... ... ... деп ... ... ... берілген тапсырманы шешу үшін компьютер орындайтын іс-
әрекетттің дәлме-дәл ретін анықтай алады. Міне сондай ... бірі ... Delphi 7. ... тілі ... ... кетсек. Қазіргі уақытта Delphi
7 программалау тілі кең ... ... ... үшін ,жобалау-
өңдеуші бағдарлама ретінде танымал,оның негізгі тілі Object Pascal ... Ол ... құру ... ... ... ... бұрын пайда
болған Object Pascal үлгісі бойынша құрылған. Delphi 7 программисттерге
кадімгі жалпыхалықтық түсінік ... ... ... ... ... Pascal ... ... машиналық кодтау үлгісін еске салатын
болса, Delphi 7 программалау тілін дәл пәндік ... ... ... біз ... мен ... ... ... істемейміз, олардан басқа
бізге оңай түсетін ... ... ... ... ... ... істей
аламыз.Осылай жұмыс істей отырып Delphi 7 программалау тілінің ... ... ... ... ... ... ... жұмыс
істеуіне қол жеткізуге мүмкіндік береді.
Delphi 7 программалау тілінің төртінші және жетінші ... ... ... арналған жылдам құрастырудың өте жетілген визуальдық
ортасы болып табылады.Оның құрамына ... ... ... ... ... ... жасап шығару аз уақыт алады. Алайда Delphi 7
программалау тілі арқылы құрылған программалардың ... MS ... ... ... он есе ... ... жұмыс
істейді.
Бұл жүйенің туған інісі бар ол– C++ Builder ... ... RAD – Borland Delphi ... ... ұқсас.
Тек Delphi-де программалық код С++ тілінде емес, Паскаль тілінде
жазылады. Нақтылап ... оның ... ... ObjectPascal-
да жазылады.Бірақ ең қызықтысы, Borland C++ Builder қалауыңыз бойынша бір
уақытта С++-те де, Паскалда да ... ... ... ... ... біздің тілді түсінбейді.Оларға ... ... үшін ... ...... тілін қолдануға тура келеді.
Компьютерлер адамдармен салыстырғанда жылдамырақ және сенімді, ... ... ... таба ... үшін программалау тілдері кәдімгі
тілдерден әлдеқайда жеңіл екені қызық болып көрінуі мүмкін,бірақ бұл солай.
Соған ... ... ... ... ... ... компьютер өз күшімен оны түсіне алмайды!Оның жұмыс істеуі үшін
оданда жеңіл машиналық тіл керек. Өкінішке орай,бұл тіл ... ... оны ... адам үшін ... іш пыстырарлық, ал машиналық
тілді қолдану көптеген қателіктермен бірге жүреді.
Компилятор деп ... ... ... ... ... тілін машина тіліне аудара алады. Компиляторлар – ... ... ... ... ... ... ... программа.
Программа құру процессі бірнеше бөлімдерді құрайды:
Кейбір программалау тілінде программа жазу,мысалы Borland Delphi -де .
Компилятор көмегімен объекттік файлға (.OBJ ... ... ... ... ... көп табады және сізге хабарлайды.Сол кезде
өзіңнің программаңды жөндеп 2-бөлімді қайта орындау керек.
Сіздің программаңызды ол орындалуы үшін ... ... ... ... ... сіз өз программаңызды орындалатын файл ... файл ... ала ... ... ... бұл ... ... орындайды.
Программаны орындауға жіберу.Алғашқы сәтте көптеген қателіктерге
байланысты сіздің программаңыз ... ... ... ... ... ... ... қарап шығып оларды жөндеңіз.Содан кейін 15
бөлімдерді қайталап ... ... ... ... ... ... барлығы
компьютерге біздің не қалайтынымызды түсіндіреді. Delphi программалау тілі
қиын ... құру үшін оның ... көп ... ... жайылуда.
Ол қиын тапсырмалармен жұмыс істейтін программисттер үшін құрылған және
жаңадан ... үшін ... ... ... ... тілі - бұл Borland ... компаниясы
программа жазу үшін құрастырып шығарған програмалық қамтамасыздандыру.
Сонымен Delphi- ді ... ... C++ - ... компаниясының осы бағытта ... ... ... тілі ... ... алу және бұл ... ... құру,мысалы, екі ... ... ... құру өте жылдам. Алайда тілдің сандарды енгізуді және ... ... ... жоқ. ... ... пайдаланушымен байланыстыратын
ешқандай құралы жоқ.Содан басқа Delphi программалау тілі ... ашу және оның ... құру ... ... ... тілі ... жәй пайдаланушы интерфейсін ... ... ... ... бар ... кітапханаларда жеке
көрсетілген.Бұл кітапханалар көптеген операциялық жүйелер мен аппараттық
платформаларға арналған, ... ... Delphi ... ... ... ... типтерде жұмыс істей алады – бұл үшін ... ... ... ... ... біз ... өзгеріссіз программаны басқа орынға ауыстыра аламыз,
мысалы, Windows операциондық жүйесінен Linux ... ... ... графикалық интерфейс ұйымдастыру үшін қолдану өте қиын. ... ... Delphi ... тілінде Windows үшін «Барлықтарыңа
сәлем!» сөзін экранға шығаратын ең оңай ... ... ... ... ... және ... код жазу керек болады.Ал егер біз
программаның жұмыс терезесіне басқару ... ... ... және
т.б.) немесе көркемдеу элементін (мысалы сурет) қосқымыз келсе бұл жұмыс
нағыз қиналуға әкеліп соғар еді.
Тапсырмасы:
Нұсқа: ... ... ... ... (), ... жиынтығы()
Бөлім 1.Delphi-дің қолданылуы мен тағайындалуы
Бұл жұмыста Delphi компоненттерін ... ... ... Пуск ... ... ->Borland Delphi7 -> Delphi7 ашамыз
(сур. 1.1).
Сур. 1.1. Delphi7-дің ашылуы
Delphi- ашылғаннан кейін, сурет 1.2 дегідей терезе ашылады.
Экранда бес ... ... ... ... ......  Форманың терезесі — Form1;
•  Объектінің терезелік қасиеті — Object Inspector;
•  Объектін көруі тізімінің терезесі — Object TreeView;
•  Редактордың ... ...... .
Cур. 1.2. Delphi7 –нің түрі.
Негізгі терезеде (сур. 1.3) команда менюі орналасқан, панели
инструменттер панелиі , компоненттер палитрасы.
Окно стартовой формы (Form1 ) ... ... ... ... ... ... ... 1.3. Негізгі терезе.
Терезе Object Inspector (сур. 1.4) —редакторлеу терезесінің объектілеу
қасиеті объектінің редактерлеу қасиетін көруге арналған. В ... ... ... — это ... окна и ... ... ввода и вывода, командные кнопки, переключатели и др.).
Объект қасиеті — бұл ... ... ... ... ... ... қарайды.Мысалы, қасиеттер Width и Heightөлшемін береді (ені мен
биіктігі) формалар, қасиеттер тор и Left —формалардың ... ... ... Caption — ... ... ... ... объект аты
көрсетілген Object Inspector.
Рис. 1.4. Properties те объектінің қасиеті ... және ... ... ,ал Events те жағдайлар көрсетіледі. Мысалы, OnCreate жағдайын
жіне әрекетін форма құраған ... ... ... ... 1 ... ... формада келесі компоненттер
орналасқан:
➢ Edit;
➢ Label;
➢ TMonthCalendar;
➢ Button;
Формадағы компоненттердің іс- ... - Standard ... ... ... ... TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8:; ... и ... ... // ...
if ... ... ... begin //десятичная точка
Key:=DecimalSeparator;
if Pos(DecimalSeparator,Edit1.Text) 0
then Key :=Char(0);
end;
'-': if Length ... ... ... Key:=Char(0); // остальные символы запрещены
end;
Label - Standard панелінің компоненті, формада кейбір ... ... ... Label ... жазу ... - Standard ... ... бұл батырма қызметін
атқарып,жұмыс жасайды.
procedure TForm1.Button1Click(Sender: ... ... ... ... ... ... begin
writeln (db,
FormatDateTime('dd/mm/yy',
MonthCalendar1.Date),
' ',Edit1.Text);
Edit1.Text :='';
end;
end;
MonthCalendar- Win32 панелінің компоненті,күнтізбені экранға бұл
шығарады.
procedure TForm1.FormCreate(Sender: TObject);
var
r: integer;// ответ пользователя
begin
AssignFile(db,DBNAME);
try
Append(db);// возможна ... E: ... ... базы ... найден.'+
#13+'Создать файл?',mtWarning, [mbOk,mbCancel],0);
if r= mrOK
then begin
Rewrite(db);// ... ... ... базы данных создан!')
end
else Application.Terminate;//завершть работу
end;
end;
Edit1.Enabled :=True;
Button1.Enabled:=True;
end;
1.Программаның скриншоты:
Бөлім 2.Деректер қоры
1.1. Деректер қоры дегеніміз не?
Деректер қоры деп – ... ... ... ол бір ... компьютерлермен орындалады. Деректер қоры ... ... және оған ... ... ... ... ... жүйесі
(ДҚБЖ) –бұл программаның қасиетін құру, ... ... және ... жою үшін ... ... ... автономды, файл- серверлі, клиент-
серверлі болып бөлінеді. Берілген курстық жұмыста тек ғана ... ... ғана ... ... ... қоры ... ... келеді.
Олар өзінің дерекетерін локальді файлды жүйеде, сол ... ... ... ... және ... қоры ... сол компьютерде
орналасқан. Байланыс ... ... ... ... пайдалы,
сондықтан қолданушылардың көбісінің арасында кең ... Бұл ... үшін емес ... ... ... құрылмның кішігірім өнеркәсібін,
бухгалтерлі құжаттарды орындау. Әрбір қолданушы ... ... ... ... ... компьютерінде манипуляцияны жасайды. Деректер қоры
толығымен жұмыс істеуге қолайлы.
1.2.Деректер қорымен жұмыс жасау
Borland Delphi7– ді қолдана отырып қосымша құруға, бір ... қоры ... ... тұрған және ДҚБЖ сол сияқты Oralce, Sybase,
Informix, MS SQL Server, DB2, с.с ODBC ... ... ... С++ Builder
мүмкіндіктері қосымша байланысқанын құруда пайдаланатын деректер қоры ... ... үшін қате ... ... ... ... ... біз тек
деректер қорының кестедегі қарапайым жұмысын қарастырамыз.
Borland Delphi7де деректерді теру- бұл әрқайсысы өз кезегінде ... ... ... бағытынан тұратын, жазба жиынынан құрылған объект.
Деректерді теру толық сайкесті, нақты кестемен иеленеді немесе ... ... тұру ... ... ... Delphi7- де терілген мәліметтер TDataSet абстракттық класстың
жалғасы болып табылады. ... ... – бұл ... жаңа класс
туғызатын, бірақ берілген класстан ... ... ... ... ... TQuery, TTable және TStoredProc класстары, олар Data Access
компонентінің палитралық бетінің құрамына енеді - өз кезегінде TDataSet ... ... ... ... ... мұрагерлері. TDataSet
кестелерді немесе сұраныстарды бақылау үшін қолданылатын және кестені ашу
немесе ... ... үшін және де ... жол ... араласып кетпеуін
қамтамасыз ететін абстракциялардан құралады.
Деректер қорымен жұмыс ... ... ... – бір шаблон
бойынша ұйымдастырылған (Data Access, Data ... ... және ... ... олар қатты дискіде жазылған мәліметтер ішінен үлкен
массивтерді жеңіл ... жол ... кей ... ... ... ғана шектеледі. Мысалы, ешқандай да код жолын жазбай –
ақ, ... ... ... ... ... ... ... немесе сан
болуы міндетті емес- бұл сурет немесе басқа бірдеме болуы мүмкін), оларды
экранда ... ... ... сұраныстарды қарап шығуға, оларды қосуға,
өзгертуге және ... ... ... деректің берілгендері бойынша
есептерді баспаға шығару және ... да ... іс - ... ... ... сеть ... қосылған қолданушы кампонентерінде немесе басқа
компьютерде сақталған деректермен жұмыс істеуге болады.
Серверде функциональданатын деректер қоры басқару жүйесі ішінде ... ... ... ... ... ... Microsoft SQL Server,
Oralce, IBM DB26 Inprise, InterBase және басқалар бар.
1.3. Компонентердің қасиетіне бөлгіш орнату
Көбінесе ... ... ... ... ... ... Visible,
Width, Left). Бірдей мәнді барлық қасиетінде орнату үшін келесі жұмыстарды
орындау керек:
1. Бірнеше құрылып ... ... ... ... бәрінде бар
таңдалған компоненті осы беттің қасиетінде объект ретінде көрінеді.
2. Барлық белгіленген ... үшін ... ... ... Компонентің өлшемін өзгерту
Компонентің өлшемін өзгерту үшін оны формаға қосуды одан кейін ... ... Оның ... ... ... ... таңдаған жөн.
Одан кейін тышқан курсорын формаға апару керек, сол ... ... ... ... ... формада тіктөотбұрыштық болашақ компонентің
шегерасының көрсетуі пайда ... ... ... ... ... ... ... жіберу керек. Егер тышқанның курсорын компонент
маңындағы пайда болған кішкентай қара квадраттарға ... ... ... ... ... ... ... бірге көшіре
отырып оның өлшемін өзгертуге болады. Бірнеше компонентердің өлшемін өзерту
үшін ... ... бір ... таңдау керек. Содан кейін мәзір
пунктінен Edit/Size пунктін таңдау керек. Size диалогтың терезесінде ... ... ... ... ... ... өлшемін құру үшін Width және
Height жолында сандарды енгізуге болады. Ары қарай ОК ... ... ... компонент көшірмесін бір типке Shift батырмасын басып тұрып
политрадан компонентті көшіруге болады. Бұл ... ... оны ... тік ... пайда болады. Бұдан кейін тышқанды
шерткен ... ... ... жаңа бір ... ... болады. Көптеп
көшіруді аяқтағаннан кейін, курсорды таңдау инструментінде ... ... ... ... ... бар ... ... формирующая панель с данными о погоде *)
procedure ... String; iDay, iNight: Integer; ... Index: ... : TPanel; ... : TLabel; ... с ... ... : TImage; ... ... ... : TEdit; //Поля ввода температуры
btn : TButton; ... ... ... : String;
//Создаем Надпись с названием города
lGorod := TLabel.Create(Form1);
with lGorod do
begin
Parent := ... := 'lGorod' + ... := ... := ... := ... := ... := ... - lGorod.Width) div 2;
Top := 8;
end;
2.Программаның скриншоты:
Run басқаннан кейін ... ... ... ... ... ... да температураны белгілі бір айдағы күнге енгізсек,сол
температураны блокнотта көрсетеді.
2.Кезсету келген ... ... ... ... заманда деректер қорын құру, деректер қорымен жұмыс жасау аса
маңызды болып табылады. Алғашқыда мен Borland Delphi7 ... ... ... ... Borland Delphi7 де ... жұмыс жасайтынын білмедім.
Бірақ кейіннен көптеген кітаптарды оқып, мысалдарды қарау ... ... ... осы тілде программа құрастыра алатын дәрежеге жеттім.
Егерде Borland Delphi7 білетін адам үшін өте жеңіл. Бұл курстық жобаны
жасау барысында ... Borland Delphi7 ... ... ... ... ... ... әр түрлі іс-әрекеттер жасайтын
процедуралармен, функциялармен таныстым.
Программалауды жаңадан үйреніп келе жатқандар үшін бұл бастабында ... ... ... ... ... болу үшін қайсарлық, көп
ізденушілдік, мен соны ... ... ... алам ... қасиеттерді бойына
сіңіру керек. Borland Delphi7тіліне көптеген кітаптар арналған, сондықтан
тілді үйренуге ... үшін ... ... Delphi7 программалау тілі – ... ... ... ... ... ... Web ... жұмыс істеуге
мүмкіндік беретін, логикалық, қызықты, тартымды ... және ... ... ... ... ... ... ерекшеленетін программалау ортасы.
Пайдаланылған әдебеиеттер тізімі.
1. А.Хомоненко, Владимир Гофман «Самоучитель Delphi »
2. Н.Б.Культин «С++ Builder в ... и ... ... ... ... баз ... в ... қосымшасы (листинг)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
MonthCalendar1: TMonthCalendar;
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: ... ... ... ... TObject; var Key: ... ... TObject; var Action: ... Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
const
DBNAME = 'pogoda.txt';
var
db:TextFile;// файл -база данных
// Начало работы.Откроем или создадим
// файл ... ... ... integer;// ответ пользователя
begin
AssignFile(db,DBNAME);
try
Append(db);// возможна ошибка
except
on E: ... ... базы ... ... ... [mbOk,mbCancel],0);
if r= mrOK
then begin
Rewrite(db);// создадим файл
ShowMessage( 'Файл базы данных создан!')
end
else Application.Terminate;//завершть работу
end;
end;
Edit1.Enabled :=True;
Button1.Enabled:=True;
end;
//нажатие клавиши в поле Температура
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: ... Key ... ... и ...
#13: // клавиша
if Length(Edit1.Text) ... ... begin ... ... ... ... Key :=Char(0);
end;
'-': if Length (Edit1.Text) 0
then Key:=Char(0);
else ... // ... ... запрещены
end;
end;
// щелчок на кнопке Добавить
procedure TForm1.Button1Click(Sender: TObject);
begin
if ... ... ... ... ... ... (db,
FormatDateTime('dd/mm/yy',
MonthCalendar1.Date),
' ',Edit1.Text);
Edit1.Text :='';
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseFile(db);//закрыть файл
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
end.
2.Программаның ... ... ... ... ... ... Classes, Graphics, Controls,
Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, xmldom, XMLIntf, msxmldom, XMLDoc,
Buttons;
type
TForm1 = class(TForm)
map: TImage;
imgNight: TImage;
imgDay: TImage;
Label1: ... ... ... ... ... ... TLabel;
procedure FormCreate(Sender: TObject);
procedure EditEnter(Sender: TObject);
procedure EditKeyPress(Sender: TObject; var Key: Char);
procedure EditKeyDown(Sender: TObject; var Key: ... ... ... TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure EditExit(Sender: ... ... TObject; Shift: ... X,
Y: Integer);
private
procedure CreatePanel(sGorod: String; iDay, iNight: Integer;
Color: TColor; Index: Integer);
public
end;
var
Form1 : ... : String; ... к ... ... ... ... с ... о погоде *)
procedure TForm1.CreatePanel(sGorod: String; iDay, iNight: Integer; Color:
TColor; Index: Integer);
var
Panel : TPanel; ... : TLabel; ... с ... ... : TImage; ... (День, Ночь)
edTmp : TEdit; ... ... ... : TButton; ... ... ... : ... Панель
Panel := ... := ... Panel ... := ScrollBox1;
Align := ... := ... := ... := ... := 100;
Tag := ... ... с ... ... := ... lGorod ... := Panel;
Name := 'lGorod' + ... := ... := ... := ... := sGorod;
Left := (Panel.Width - lGorod.Width) div ... := ... ... День и Ночь
img := TImage.Create(Form1);
with img do
begin
Parent := ... := ... := ... := ... := ... := ... img ... := ... := ... := ... := ... := ... 1 поля для ... ... := ... iDay > 0 then
s := '+' + IntToStr(iDay)
else
s := IntToStr(iDay);
s := s + ' °С';
edTmp.Color := Color;
with edTmp do
begin
Parent := ... := 'ed' + ... * ... := Index * ... := ... := ... := ... := 56;
Top := ... := ... := ... := ... := ... := ... := EditKeyPress;
OnMouseDown := EditMouseDown;
end;
//Создание кнопки подтверждения
btn := TButton.Create(Form1);
with btn do
begin
Parent := ... := 'btn' + ... * ... := Index * ... := ... := ... := ... := edTmp.Left + edTmp.Width + 2;
Top := edTmp.Top - 2;
Caption := 'Установить ... := ... 2 поля для ... ... := ... iNight > 0 ... := '+' + IntToStr(iNight)
else
s := IntToStr(iNight);
s := s + ' °С';
edTmp.Color := ... edTmp ... := ... := 'ed' + ... * 2 + ... := Index * 2 + 1;
(*!*)
MaxLength := 4;
BorderStyle := ... := ... := ... := ... := ... := ... := EditEnter;
OnExit := ... := ... := ... := ... ... ... := TButton.Create(Form1);
with btn do
begin
Parent := Panel;
Name := 'btn' + ... * 2 + ... := Index * 2 + ... := ... := 175;
Height := 20;
Left := ... + ... + ... := edTmp.Top - 2;
Caption := 'Усановить значения';
Visible := False;
end;
end;
(*==========================================================================
====
Событие создания формы *)
procedure TForm1.FormCreate(Sender: TObject);
var
i, iDay, iNight : ... : ... : ... : ... ... с ... погоды
Panel1.DoubleBuffered := True;
Rgn := CreateRoundRectRgn(0, 0, Panel1.Width, Panel1.Height, 15, 15);
SetWindowRgn(Panel1.Handle, Rgn, ... путь к ... := ... ... := False;
//Проверка существования файла с данными
if not FileExists(sPathProgram + 'data.xml') then
begin
Application.MessageBox('Файл с данными ... ... ... невозможна!',
'Ошибка', MB_OK or MB_ICONERROR);
exit;
end;
//Загружаем документ и активируем его
XMLDocument1.LoadFromFile(sPathProgram + 'data.xml');
XMLDocument1.Active := ... ... о ... := ... i := 0 to ... - 1 do
begin
sGorod := Node.ChildNodes[i].Attributes['name'];
iDay := Node.ChildNodes[i].Attributes['day'];
iNight := ... i mod 2 = 0 ... iDay, iNight, clWhite, ... iDay, iNight, $E6E6E6, ... ... ... ввода *)
procedure TForm1.EditEnter(Sender: TObject);
var
Edit: TEdit;
btn : TButton;
s: String;
begin
Edit := TEdit(Sender);
s := Edit.Text;
s := copy(s, 1, Pos(' ', s) - ... := ... := ... := ... + ... := ... ... поля ввода *)
procedure TForm1.EditExit(Sender: TObject);
var
Edit : TEdit;
btn : TButton;
Index: Integer;
s : String;
begin
Edit := ... ... = '' then ... Pos(' °С', ... = 0 ... := ... + ' ... := TButton(FindComponent('btn' + IntToStr(Edit.Tag)));
btn.Visible := False;
s := copy(Edit.Text, 1, Pos(' ', ... - ... := ... Index = btn.Tag * 2 ... ... ... ... ненужные символы *)
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
var
s : String; btn : TButton;
begin
if Key = #8 then ... Key = #13 ... ... = '' then ... := ... + ... := ... s = '' then
begin
if not (Key in ['+', '-', '0']) then
Key := #0;
end
else if (s = '0') ... = '0') and ... = 1)) ... (Key in ... ... := #0;
end;
(*==========================================================================
====
Запрещаем перемещать каретку клавишами *)
procedure TForm1.EditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_LEFT) or (Key = ... ... := ... перемещать каретку мышкой *)
procedure TForm1.EditMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TEdit(Sender).SelStart := Length(TEdit(Sender).Text);
end;
(*==========================================================================
====
Вождение мышью по карте ... ... TObject; Shift: ... ... ... : ... L, T, R, B : Integer; s : ... := ... i := 0 to ... - 1 ... := ... := ... '');
R := Node.ChildNodes[i].ChildNodes['coords'].GetAttributeNS('right',
'');
B := Node.ChildNodes[i].ChildNodes['coords'].GetAttributeNS('bottom',
'');
if (L < X) and (X < R) and (T < Y) and (Y < B) ... ... := ... ... + L, map.Top + T, map.Left + R,
map.Top + B));
s := ... ... := ... := ... := 14;
LabelGorod.Caption := s;
if s = 'Астана' then
begin
Panel1.Color := $FFFFCA;
LabelGorod.Font.Color := clRed;
LabelGorod.Font.Size := 20;
end;
L := (Panel1.Width - ... div ... := ... := ... '') +
' ... := ... ... ' °С';
Panel1.Left := map.Left + X - Panel1.Width div 2;
Panel1.Top := map.Top + Y - Panel1.Height - ... := ... := ... объекта

Пән: Информатика
Жұмыс түрі: Реферат
Көлемі: 17 бет
Бұл жұмыстың бағасы: 400 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Деректер қоры «Тенисшілер»17 бет
Delphi бағдарламалау тілі13 бет
Delphi программалау ортасының негізі34 бет
Delphi-де бағдарламалау52 бет
WEBbrowser компонентін қолданып бағдарлама құру16 бет
Жылжымалы үтірлі сандарды бөлу операциясын орындайтын басқарушы автомат жобалау6 бет
Машина картасы мен сұлбасын құрастыру4 бет
Электронды оқулықты пайдалану37 бет
1С бухгалтерия бағдарламасының қолданылуымен еңбек көрсеткіштерінің есебі62 бет
SQL-дің жүйелік құрылым және мәліметтер базасында қолданылуы20 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь