УМКД Делфи. УМК_прог_DELPHI. азастан Республикасыны Білім жне ылым Министрлігі Атбе мемлекеттік педагогикалы институты

Название	азастан Республикасыны Білім жне ылым Министрлігі Атбе мемлекеттік педагогикалы институты
Анкор	УМКД Делфи
Дата	18.09.2021
Размер	1.95 Mb.
Формат файла
Имя файла	УМК_прог_DELPHI.doc
Тип	Программа #233746
страница	4 из 4

1 2 3 4

Memo1 редакторына A(3,3) бүтін сандар массивінің элементтері жүктеледі. Memo1 компонентінің мазмұнын редакциялаймыз, яғни массив элементтерін А(4,4) толтырамыз.

Memo1 редакторының мазмұнын Zad2.txt тексттік файлына сақтаймыз. Button1 компонентінің Onclick оқиғасын құрамыз. Коды:
procedure TForm1.Button2Click(Sender: TObject);

var I:integer;

begin

assignfile(f,'zad2.txt');

rewrite(f);

for I:=0 to Memo1.Lines.Count do

writeln(f,Memo1.Lines[i]);

Closefile(f);

end;

Қосымшаны орындауға жіберіңіз және қосымша модулін, проектін Lab14 бумасына сақтаңыз. Zad2.txt тексттік файлын ашып, мазмұнын қараңыз.
№6-7 Практикалық жұмыс

Қарапайым мәтіндік редактор құру

Мақсаты: Визуальды бағдарламалау әдістерін үйрену. Диалогтық объектілерді қолдануға үйрету. Дайын қосымша алу.

Жұмыс барысы:

1. Additional парағындағы Bevel компонентін жаңа формаға қойып, Align қасиетіне alTop мәнін меншіктеңіз.

2. Bevel компонентіне төрт батырма орналастырыңыз. Оларды &Ореn..., &Save, Save &As... және E&xit деп атаңыз. Атау соңындағы көп нүкте Windows-тың құпия коды болып табылады. Яғни, бұл батырмаға шертсек, әрекет бірден орындалмай, диалогтық терезе шақырады.

3. Формаға Memo компонентін орналастырып, оның қасиеттерін келесі түрде тағайындаңыз:

Қасиет Мәні

Align alClient

ScrollBars ssBoth

Lines (бос)

4. Форма тақырыбын My Editor деп өзгертіңіз. Содан соң формаға OpenDialog компонентін қойып, оның қасиеттеріне келесі мәндерді меншіктеңіз:

ҚасиетМәні

Default Ext ТХТ

Options.ofHideReadOnly True

Options.ofFileMustExist True

Options.ofNoReadOnlyReturn True

Title Open Text File

5. Filter Editor (фильтр редакторы) терезесін ашу үшін, Filter қасиетіне екі рет шертіңіз.

6. Filter Name (Имя фильтра) бағанындағы алғашқы екі жолды Text files және All фильтр аттарымен толтырыңыз. Ал Filter бағанында *.ТХТ және *.* сәйкес фильтрлерін енгізіңіз

7. Формаға SaveDialog компонентін орналастырып, қасиеттеріне келесі мәндерді енізіңіз:

Қасиет Мән

Default Ext ТХТ

Options.ofHideReadOnly True

Options.ofOverwritePrompt True

Options.ofNoReadOnlyReturn True

Title Save Text File

8. Файлды ашу диалогы үшін қолданылған фильтр жиынын енгізіңіз.

9. Exit батырмасы үшін Close командасынан тұратын OnClick оқиғасын тағайындаңыз.

10. Open батырмасының OnClick оқиғасының коды ретінде келесі жолдарды қолданыңыз:

WITH OpenDialog1 DO

IF Execute THEN

BEGIN

Memo1.Lines.LoadFromFile(Filename);

HistoryList.Add(Filename);

Caption:='My Editor-'+

ExtractFilename(Filename);

SaveDialog1.Filename:=Filename;

Filename:=’’;

End;

11. Save батырмасына екі рет шертіп, OnClick оқиғасының мәні ретінде келесі жолды енгізіңіз:

Memo1.Lines.SaveToFile( SaveDialog1.Filename);

12. Save As батырмасы үшін келесі жолдарды көрсетесіз:

WITH SaveDialog1 DO

IF Execute THEN

BEGIN

Memo1.Lines.SaveToFile(Filename);

Caption:='My Editor - ' +

ExtractFilename(Filename);

End;
Біз құрған қарапайым мәтіндік редактор үлкен емес файлдарды белсенді етуге және сақтауға мүмкіндік береді. Бұл редактордың мүмкіндігі Windows операциялық жүйесіндегі Notepad қосымшасына ұқсайды. Windows-тың стандартты пернелер комбинациясын қолдана отырып, мәтінді қиып алуға, көшіруге және қоюға болады.

Модульді MYEDITU.PAS, ал негізгі жобаны — MYEDIT.PRJ деп сақтаймыз.

Қаріпті таңдау диалогы

MyEdit жобасын жүктеп, формаға FontDialog компонентін орналастырыңыз. Exit батырмасын оңғы жылжытып, &Font батырмасын Save As және Exit батырмаларының арасына орналастырыңыз. Жаңа батырманың OnClick оқиғасына келесі кодты енгізіңіз:

WITH FontDialog1 DO

IF Execute THEN

BEGIN

Memo1.Font:= Font;

Келесі жолды FontDialog компонентінің OnApply оқиғасына енгізіңіз:

Memo1.Font:= FontDialog1.Font;

Программаны орындауға жіберіп, файлды жүктеңіз. Font батырмасы көмегімен қандай да бір қаріп түрін таңдаңыз. Файл мазмұны сіз таңдаған қаріп параметрлері бойынша көрсетіледі. Жаңартылған, қаріп таңдау мүмкіндігіне ие болған MyEdit жобасын сақтаңыз.

Түс таңдау диалогы

1. Формаға ColorDialog түс таңдау диалогын орналастырып, Color қасиетіне clWhite мәнін меншіктеңіз.

2. Форманың Ctl3D қасиетіне False мәнін, ал форма түсінің тұрақты мәні ретінде clWhite таңдаңыз.

3. формаға жаңа батырма орналастырып, оны Color деп атаңыз.

OnClick оқиғасының өңдеушісіне келесі жолдарды енгізіңіз:

IF ColorDialog1.Execute THEN

Form1.Color := ColorDialog1.Color;

4. Программаны орындаңыз.

Принтерді таңдау диалогы.

MyEdit жобасын жүктеп, оған PrinterSetupDialog1 принтерді баптау жиалогын орналастырыңыз. Bevel компонентін батырмалардың екінші қатарына орын қалатындай етіп орналастырып, оған &Print... және P&rint Setup..... деп аталатын батырмалар орналастырыңыз. Print Setup батырмасының OnClick оқиғасының өңдеушісіне келесі жолды енгізіңіз:

PrinterSetupDialog1.Execute;

Прогармманы орындауға жіберіп, Print Setup батырмасына шертіңіз. Диалогтық терезе ашылады.

Баспаға шығаруға дайындау

Print Setup (принтерді баптау) диалогы принтерді таңдап, баптау үшін арналған. Баспаға шығаратын кезде Print (Печать) диалогы іске қосылады.

MyEdit жобасына барлық қасиеттерінің мәндерін үнсіз келісім бойынша қалдырып, PrintDialog компонентін қосыңыз. Print батырмасына екі рет шертіп, келесі кодты енгізіңіз:

VAR

POutput: TextFile;

N : LongInt;

BEGIN

IF PrintDialog1.Execute THEN

BEGIN

AssignPrn (POutput);

Rewrite (POutput);

Printer.Canvas.Font: = Memo1.Font;

FOR N: = 0 to Memo1.Lines.Count – 1 DO

Writeln(POutput, Memo1.Lines [N]);

CloseFile (POutput);

END;

END;

Модульдің жоғарғы бөлігіне көшіп, uses операторына Printers қосыңыз. Формадан FontDialog компонентін таңдап, оның Device қасиетіне fdBoth мәнін меншіктеңіз.

Мәтінді іздеу және ауыстыру диалогы

MyEdit жобасын жүктеп, Memo компонентінің HideSelection қасиетіне False мәнін меншіктеңіз. Формаға FindDialog және ReplaceDialog компоненттерін орналастырып, екеуін де таңдаңыз. Options қасиетіне екі рет шертіп, frHideMatchCase, frHideWholeWord және frHideUpDown қасиеттеріне True меншіктеңіз. Батырмалардың екінші қатарына Fi&nd... және &Replace... атпен батырмалар орналастырыңыз. Find батырмасының OnClick оқиғасы үшін келесі жолды пайдаланыңыз:

FindDialogl.Execute;

Ал Replace батырмасы үшін келесі жол:

ReplaceDialogl.Execute;

FindDialog компонентін таңдап, Events парағына көшіп, OnFind оқиғасына екі рет шертіңіз. Келесі кодты енгізіңіз:

VAR

Buff, P, FT: Pchar;

BuffLen : Word;

begin

WITH Sender AS TFindDialog DO

BEGIN

GetMem (FT, Length (FindText) + 1);

StrPCopy (FT, FindText);

BuffLen := Memo1.GetTextLen + 1;

GetMem (Buff, BuffLen);

Memo1.GetTextBuff (Buff, BuffLen);

P: = Buff + Memo1.SelStart + Memo1.SelLength;

P: = StrPos (P, FT);

IF P = NIL THEN MessageBeep (0)

ELSE

BEGIN

Memo1.SelStart: = P-Buff;

Memo1.SelLength: = Length (FindText);

END;

FreeMem (FT, Length (FindText) + 1;

FreeMem (Buff, BuffLen);

END;

end;

ReplaceDialog компонентіне шертіп, Object Inspector терезесінде Events парағына көшіп, OnFind оқиғасын өңдеуші тізімінің батырмасына шертіңіз. Ашылған тізімнен FindDialog үшін жаңа құрылған оқиғаны таңдаңз. Енді келесі жолдардан тұратын OnReplace оқиғасының өңдеушісін құрыңыз:

WITH Sender AS TReplaceDialog DO

WHILE True DO

BEGIN

IF Memo1.SelText <> FindText THEN

FindDialog1Find (Sender);

IF Memo1.SelLength = 0 THEN Break;

Memo1.SelText: = ReplaceText;

IF NOT (frReplaceAll IN Options) THEN Break;

END;

Программаны сақтап, орындауға жіберіп, мәтіндік файлды жүктеңіз. Мәтіндегі барлық нүктелерді леп белгісіне алмастырып, сақтаңыз.

Тапсырма.

1. Шрифт, Іздеу, Алмастыру пункттерінен тұратын контекстік мәзір құрыңыз.

2. Форма объектілері үшін қалқымалы мәтіндер құрыңыз.
Delphi-де_анимациялар_жасау._Мультимедия_(ауызша)'>Студенттің оқытушымен өз бетінше жұмыс сабағының тапсырмалары

Delphi-де анимациялар жасау. Мультимедия (ауызша)