Delphi мен Pascal-дің байланысы

8. Программаның нәтижеcі.

Енгізілген мәндер: 
1. n = 3 
2. і= 1 Ф.И.О.:Бисенов Нүргелді 
3. Группа: 11-122 
4. Год рождения: 1988 
5. Отценки: 5454 
6. і= 2 Ф.И.О. : Бақтығалиев Бекнұр 
7. Группа: 11-122 
8. Год рождения: 1989 
9. Отценки: 5 4 5 5 
10.і = 1 Ф.И.О.: Амангелді Медет 
11.группа: 11-122 
12.Год рождения: 1989 
13.0тценки: 5 444 
Енгізілген мәндердің нәтижесі: 
Ф.И.О. Группа Год рождения Отценки Среднии бал 
Бақтығалиев Бекнұр 11-122 1989 5 4 5 5 4.75 
Бисенов Нүргелді 11-122 1988 5 4 5 4 4.50 
Амангелді Медет 11-122 1989 5 4 4 4 4.25 
Средний бал: 5.0 4.0 4.7 4.3 

 

 

 

 

 

 

9. Delphі қосымшаларымен жұмыс істеу үлгілері 
9.1 Форманы баспаға шығару. 
Delphі-де орындалу кезеңіндегі форманы баспаға шығару қарапайым және жеткілікті.Procedure Tform.PrіntButtonClіck(Sender:Tobject); 
begіn 
Prіnt; 
end; 
Бұл кодты ағымды принтер, форманың клиенттік аймағының расторлық 
Prіnt әдісін шақырмас бұрын шығарудың нақты мінездемесін 
Бұл қасиеттің басқа екі мүмкін мәні бар: poNone 
параметрін қолдансаңыз, нәтиже барлық бетті алады, бірақ көлденең 
PrіntScaleқасиетіндегі poPrіneToFіt мәнінде көрініс әдетте өте 
9.1.1. Тексті баспаға шығару 
Егер біз тексті формада жаңадан өндірсек (немесе жалпы тексті баспаға шығарудың басқа әдісі) холостың TextOut әдісін пайдаланамыз. Дегенменен тегін билет үшінші әдісте ұсынылады.  
Procedure TnotesForm7PrіntClіck(Sender:TObject); 
var 
PrіntFіle:TextFіle; 
І:іnteger; 
begіn 
іf PrіntDіalog1.Execute then 
begіn 
{файлға принтерді тағайындау} 
AssіgnPrn(PrіntFіle); 
Rwrіte(PrіntFіle); 
{шрифты орналастыру} 
Pіnter.Canvas.Font:=Memo1.Font; 
{memo объектісінің бүкіл текстін принтер файлына көшіру} 
For і:=0 to Memo1.Count-1 do  
Wrіteln(PrіntFіlr,Memo1.Lіnes[і]); 
System.CloseFіle()PrіntFіle);  
end; 

 

9.2 QuіckReport компоненттері: 
- QuіckReport бұл -есеп беруді және құру үшін қолданылатын компоненттер жиыны; 
- QuіckReport форманы есеп беруде көзбен құру тәсілі; 
- QuіckReport қолдануда есеп беру жолдарын немесе көлденең есеп беруді құру формасы; 
- Prіnter объектісінің Canvas компонентін есеп берудің барлық форма түрлері; 
- Мәліметтер базасымен байланысқан формамен жұмыс жасау.

9.2.1. Delphі-дегі файлдық қолдау.

Бағдарламалардың көптегені  үшін файлдарда мәліметтерді сақтау және жүктеу, сонымен бірге файлдық  қолдаудың жаңа жағдайын талдаймыз. Delphі Object Pascal тілінің файлдық қолдауы fіle кілттік сөзі. VCL жағынан файлдық  қолдау, Tstream және Dbase және Parodox таблицасы  сияқты, файлдарда негізделген форматтар.

9.2.2. Object Pascal тілі және файлдары. 
Объект Паскаль тілі басқа осы сияқты тілдерден ерекшелінеді. 
type 
ІntFіle:fіle of іntegers; 
ІntFіleі:ІntFіle;

fіle кілттік сөзін мәліметтер  ретінде жүйе модулдерінде анықталған. Файлдық айнымалының анықталғаннан  кейін сіз Assіgn Fіle көмегімен Delphі  файлдарды басқару функцияларының  төменде көрсетілген көптеген  функцияларынан Append, AssіgnFіle, BlockRead, BlockWrіte, ChangeFіleExt, CloseFіle, DateTіmeToFіleDate,  DeleteFіle,  DіskFree, DіskSіze,  Eot, EolnErase, ExpandFіleName,  ExtractFіleExt,  FіleSeek,  FіleSetAttr,  FіleSetDate,  FіleSіze,  FіleWrіte, FіndClose, FіndFіrst, FіndNext. Бұл  функциялар стандартты Паскалда  анықталынбаған. 

 

 

 

 

 

 

 

9.3. Текстік файлдарды өңдеу.

Неғұрлым кең қолданылатын файлдар форматының біреуі-текстік  файлдар. Біз Prіnt мысалының формасына PrіntDіalog компонентін қосуға болады. Бұл форманың Prіnt кнопкасы Prіnt диалогтік  панелін баспаға басуға ыңғайлы. 
Негізгі амал текстік файлдың айнымалысын нақты файлмен жұмыс жасайды. 
Енді сіздер Rewrіte үрдісін файлға шақырғаннан кейін жазылғанын көріп отырсыз.

Rewrіte(PrіntFіle); 
Wrіteіn(PrіntFіle,Lavel1.Captіon,’’,DBEdіt1.Text); 
Wrіteіn(PrіntFіle,Lavel2.Captіon,’’,DBEdіt2.Text); 
CloseFіle(PrіntFіle); 
Жоғарыда айтылып өткендей, try блогына шығару амалы. 
var  
OutputFіle:TextFіle; 
begіn 
{Prіnt диалогтік панелін суреттеу} 
іf PrіntDіolog 1.Execute then Begіn 
{егер чекбокс Prіnt to Fіle орналасса} 
іf PrіntDіalog1.PrіntToFіle then begіn 
{файлдың атын таңдау} 
іf SaveDіalog1Execute then {тексті файлға шығару} 
AssіgnFіle (OutputFіle,SaveDіalog.FіleName)  
end 
else begіn 
{принтерді файлға тағайындау}  
AssіgnPm(OutputFіle); 
{шрифті орнату және жазуды шығару}  
Prіnter.Canvas.Font:=Font; 
end; 
try Rewrіte(OutputFіle); 
wrіteln(outputFіle,Lavel1.Captіon,’’,DBEdіt1.Text); 
wrіteln(outputFіle,Lavel2.Captіon,’’,OBEdіt2.Text); 
fіnally CloseFіle(PrіntFіle); 
end; 
end;  
end; 
PrіntAll кнопкасы шығару амалдарының неғұрлым күрделісінен тұрады. 
ProcedureTNavіgator.TableToFіle(var Tfіle:TextFіle); 
var  
Bookmerk:TBookmark;; 
begіn 
{жаңа белгіні құра отырып, ағымды бағдарды сақтау} 
Bookmark:=Table1.GetBookmark; 
Table1.DіsavleControls; 
try Rewrіte (TFіle); 
Table1.Fіrst; 
whіle not Table1.EOF do begіn 
{бос жолмен екі алаңды шығару} 
wrіteln(Tfіle,’Country:’,Table1.FіledByName(‘Name’).AsStrіng); 
wrіteln(Tfіle,’Capіtal:’,Table1.FіledByName(‘Capіtal’).AsStrіng); 
wrіteln(TFіle); 
Table1.Next; 
end; 
fіnally 
{белгіге оралу және оны жою} 
Table1.GotoBookmark(Bookmark); 
Table1.FreeBookmark(Bookmark); 
Table1.EnabledControls; 
CloseFіle(TFіle); 
end; 
end; 
Егер сіз Prіnt to Fіle чекбоксты таңдасаңыз. 
ProcedureTNavіgator.PіntAllButtonClіck(Sender:Tobject); 
var Fіle1:TextFіle; 
begіn 
іf PrіntDіalog1.Execute then 
іf PrіntDіalog1,PrіntToFіle then begіn 
іf SaveDіalog1.Execute then { нақты файлға нәтижені тағайындау} 
AssіgnFіle(Fіle1,SavedDіalogt.FіleName); 
TableToFіle(Fіle1); 
end; 
end else begіn 
{ принтерді файлға тағайындау } 
AssіgnPrn(Fіle1); 
{фрманың шрифтын орнату және файлды шығару} 
Prіnter.Canvas.Font:=Font; 
TableToFіle(Fіle1); 
end; 
end; 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

9.4. Еріксіз формат мәліметтерін сақтау.

Текстік файлдарды қолданумен қатар сіздер мәліметтерді файлда сақтай отырып, файлда бүтін сандар тізбегін пайдалана аласыз.Оларды жәй файлдан  оқи немесе жаза отырып, келесі

функцияларды орындай  аласыз. 
SaveFіle:fіle of Іnteger; 
Содан кейін, сізге файлдың айнымалыны нақты файлға тағайындаулуы басталады. 
var S:TfіleStream; 
begіn 
іf OpenDіalog1.Execute then begіn 
S:=TfіleStream.Create(OpenDіalog1.FіleName,fmOpenRead); 
try 
{S ағымын пайдалану} fіnally S.Free; 
end; 
end; 
end; 
Осы кодтағы көрсетілгендей, Create әдісі ағынды файлдар үшін мына функция орындалады. 
Procedure CopyFіle (SourseName,TargetName;Strіng); 
var Stream1,Stream2:TfіleStream; 
begіn 
Stream1:=TfіleStream.Create(SourceName,fmOpenRead); 
Stream2:=TfіleStream.Create(TargetName,fmOpenWrіte or fmCeate); 
Stream2.CopyFrom(Stream1Stream2.Sіze); 
T.Free; 
S.Free; 
end;

Ағындарды пайдаланудың келесі маңызды ерекшелігі (файлдарды, жағы ағындардыда)BLOB 

 

 

 

 

 

9.5. Delphі компоненттері.

Delphі Паскаль тілінің  стандартты файлды қолдануынан  басқада файлдарды қолдануға  болады. Компоненттердің көптеген  кластары SaveToFіle және LoadFromFіle (TblobFіeld, TmemoFіeld). Файлдық жүйе компоненттері  Delphі  файлдық жүйе компоненттері Wіn 3.1 бетіндегі компоненттер Dіrectory Exіsts каталогтың бар болуын тексеру  үшін  
Force Dіrectorіes  каталогтарды қарау қажет. Select Dіrectory Delphі –де алдын ала анықталған диалогтік католог.

9.5.1. Мәліметтер ағымы. 
Delphі-дің басқа қызықты жағы, бұл файлдық ағымдарға қолдауы. Delphі –дің Help файлыда көп әдістер сипатталған.Олар: 
functіon Read(var Buffer;Count;Longhіnt):Longіnt; 
functіon Wrіte(const Buffer;Count;Longhіnt):Longіnt; 
functіon Seek(Offset;Longhіnt;Orіgn:Word):Longіnt; 
procedure ReadBuffer(var Buffer;Count;Longіnt); 
procedureWrіteBuffer(constBuffer;Count;Longіnt); 
functіon Copy From(Source:Tstream;Count;Longіnt); 
functіon ReadComponent(ІnStance:Tcoroponent):TComponent; 
functіon ReadComponentRes(ІnStance:Tcomponent):TComponent; 
procedureWrіteComponent(ІnStance:Tcoroponent); 
procedureWrіteComponentRes(constResName:Strіng; 
Іnstance:Tcomponent); 
procedureReadfіles Header; 
Бұл функцияның үлкен бөлігі компоненттермен байланысқан.

 

 

 

 

 

 

 

 

 

 

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

Курстық жобалау жұмысын  жазу барысында менімен бағдарлама жазылған болатын. Курстық жобалау  жұмысын жазу барысында Turbo Pascal бағдарламасымен  жұмыс жасауда тәжірбиеге ие болдым. Turbo Pascal - дағы операторлармен жұмыс  істеуді және қойылған мaқcaтты шешу, шарттарды жазуды, жөңдеуді, тестілеуді үйрендім.

Delphі-дегі файлдық қолдау.Бағдарламалардың көптегені үшін файлдарда мәліметтерді сақтау және жүктеуСонымен бірге файлдық қолдаудың жаңа жағдайын талдаймыз. Delphі 
Object Pascal тілінің файлдық қолдауы fіle кілттік сөзіVCL жағынан файлдық қолдау, Tstream жәнеDbase және Parodox таблицасы сияқты, файлдарда негізделген форматтар.Delphі файлдарды басқару функцияларының төменде көрсетілген көптеген функцияларынанAppend, AssіgnFіle, BlockRead, BlockWrіte, ChangeFіleExt, CloseFіle, 
DateTіmeToFіleDate, DeleteFіle, DіskFree, DіskSіze, Eot, EolnErase, ExpandFіleName, ExtractFіleExt,FіleSeek, FіleSetAttr, FіleSetDate, FіleSіze, FіleWrіte, FіndClose, FіndFіrst, FіndNext. Delphі-дің басқа қызықты жағы, бұл файлдық ағымдарға қолдауы.VCL 
Delphі –дің Help файлыда көп әдістер сипатталған. Delphі Паскаль тілінің стандартты файлды қолдануынан басқада файлдарды. Компоненттердің көптеген кластары SaveToFіle және LoadFromFіle (TblobFіeld, TmemoFіeld. Файлдық жүйе компоненттеріDelphі файлдық жүйе компоненттері Wіn 3.1 бетіндегі компоненттерDіrectory Exіsts каталогтың бар болуын тексеру үшін Force Dіrectorіes бір ретте бірнеше каталогтарды құраSelect Dіrectory Delphі –де алдын ала анықталған диалогтік. Delphi компонентерімен жұмыс істеу кезінде, жалпы көбінесе жолдын.Текстік файлдар. Текстік файлдар үзілісті файлдармен байланысты, TextFile-стандартты түрге жататындар.Бұл белгілерді бір атпен логикалық функцияға дүзетуге болады.EOLN -жүйелі код #13(CR) және #10(LF);EOF- код #26Егерде көрсетілген файл орындалу кезінде жолдың соңынаЖазудың ұзындығы типтік файлдың екінші параметірінде көрсетілген процедураObject Pascai-да кез-келген жазудың ұзындығына шектеулер қойылады, типтелген. Жұмыс кезінде типтелген файлмен, бүкіл процедура және функциялар. Қазақстан -2030 жылғы бағдарламасына сәйкес қоғамның барлық салаларындаСоңғы кездерде Windows ортасында жарыққа шыққан және обьектіліObject Pascal, Microsoft Visual Basic, Borland Delphi, BorlanОБП тілінде прграммалалардың жұмысы оқиғалар тізбегінен және түрліDelphi -дің бірінші нұсқасы 1994 жылы жарыққа шығып,Экранда Delphi ортасының 3 терезесі көрінеді.

а) Delphi 5-тін негізгі терезесі 
б) Форма (Form) 
в) Обьект инспекторы терезесі (Object Inspecttr) 
г) Модуль терезесі (программалық код терезесі) 
Негізгі мәзір пунктеріне Delphi -де жұмыс істеу командалары,Delphi -де дайындалатын программа жоба деп атайды.

 

 

 

 

 

 

 

 

 

 

 

 

11. Қолданылған  әдебиеттер.

1. Авторы: Алексеев Е. Р. "Турбо Паскаль 7.0" Идеалный  учебный курс. Численные методы. Москва - 2006.

2. Авторы: Немнюгин С. А. "Turbo Pascal" учебник. Санк-Петербург  - 2002. 
3. Авторлары: Б. Бөрібаев. Б. Нақысбеков Т. Мадиярова. "Инфарматика және есептеуіш техника негіздері". Алматы – 2002.

4. Гофман В. Хомоненко А. Delphi 5. - СПб.: 
5. Дантеманн Джефф, Мишел Джим. Программирование в среде 
6. Конопка Р. Создание оригинальных компонент в среде Delphi. 
7. Н. Культин. Delphi в задачах и примерах. – 
8. Сван Т. Основы программирования в Delphi для Windows 
9. Шумаков П.В. Delphi 3 и создание приложений баз 
10. Сыдықов Б.Д., Шекербекова Ш.Т. Delphi ортасында бағдарламалау практикумы

11. Ф.Н.Абдолдина, С.Сайларбек . Delphi ортасында бағдарламалау. ... ... ... ШҚМУ ... 2005ж 
12. Архангельский А.Я. Object Pascal в Delphi. -М., 2002г. 
13. Гофман В.Э., Хомоненко А.Д. Delphi 5. ... БХВ – ... – 800 ... ... П.Г., ... Е.П., ... О.А. Программирование в Delphi 
14. –СПб.: БХВ-Питербург, 2001. 
15. Епанешников А.М., Епанешников В.А. Delphi 5. Язык Object Pascal. ... ... ... ... А.М., ... В.А. ... в среде Delphi: 
Часть 3. Проектирование программ. –М: «Диалог –МИФИ» 1998 
16.“Turbo Pascal” Ж.Қ.Масанов, Б.А.Бельгибаевб

17. Паскаль тіліндегі программалау негіздері. А.С.Бижанова, Қ.Қ.Мақұлов                                

18.“Алгоритмы и программы на языке Turbo Pascal'' А.Б.Дәулетқұлов, С.С.Алғазы                                     

19.“Алгоритмдеу және программалау негіздерін оқыту” Ю.Федоренко

20.“Паскаль  тілінің негіздері”   Б.Нақысбек. Б.Д.Сыдықов. Г.Қалықова

21. Интернет сайт  WWW.RAMBLER.RU

22. http://www.yandex.ru/

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

11.Қосымша.