Воронеж 2021 Практическая работа №1 Тема практической работы: Файл проекта. Структура и Назначение
Вывод : сегодня я научился использовать многострочные редакторы. Практическая работа №19
жүктеу/скачать 0.7 Mb.
|
- Бұл бет үшін навигация:
- Цель практической работы
| Вывод : сегодня я научился использовать многострочные редакторы.
Практическая работа №19 Тема практической работы: Использование многострочного редактора TMemo. Цель практической работы: Научится использовать многострочный редактор TMemo. Ход работы : Задание №1
Рис 63 Рис 64 Листинг unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) MainMemo: TMemo; ClearButton: TButton; procedure ClearButtonClick(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ClearButtonClick(Sender: TObject); begin
MainMemo.Lines.Clear; end;
end. Задание №2 Рис 65 Рис 66 Листинг
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type
TForm1 = class(TForm) MainMemo: TMemo; ClearButton: TButton; procedure ClearButtonClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ClearButtonClick(Sender: TObject); begin MainMemo.Lines.Clear; end; procedure TForm1.FormShow(Sender: TObject); begin if FileExists('memo.txt') then MainMemo.Lines.LoadFromFile('memo.txt'); end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin
MainMemo.Lines.SaveToFile('memo.txt'); end;
end. Задание №3 Рис 67 Рис 68 Рис 69 Рис 70 Рис 80
Листинг : unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) MainMemo: TMemo; ClearButton: TButton; AddButton: TButton; DelButton: TButton; ChangeButton: TButton; procedure ClearButtonClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure AddButtonClick(Sender: TObject); procedure DelButtonClick(Sender: TObject); procedure ChangeButtonClick(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ClearButtonClick(Sender: TObject); begin
MainMemo.Lines.Clear; end;
procedure TForm1.FormShow(Sender: TObject); begin
if FileExists('memo.txt') then MainMemo.Lines.LoadFromFile('memo.txt'); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin MainMemo.Lines.SaveToFile('memo.txt'); end; procedure TForm1.AddButtonClick(Sender: TObject); begin MainMemo.Lines.Add(' Новая строка '); end; procedure TForm1.DelButtonClick(Sender: TObject); begin if MainMemo.Lines.Count<>0 then MainMemo.Lines.Delete(MainMemo.CaretPos.Y); end;
procedure TForm1.ChangeButtonClick(Sender: TObject); begin
MainMemo.Lines.Strings[MainMemo.CaretPos.Y]:='Ужасно'; MainMemo.Lines.Strings[0]:='Текст изменён'; end; end.
Задание №4 Рис 81 Рис 82 Листинг : unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type
TForm1 = class(TForm) Label1: TLabel; Memo1: TMemo; procedure Memo1KeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); var f, g: TextFile; x: Char; s: String; begin if Key=#13 then begin s:='';
AssignFile(f,'E:\Группа 196\Иванов А\Практическая работа №19\Задание №4\SYM.txt'); Rewrite(f); write(f,Memo1.Text); CloseFile(f); Label1.caption:='Содержимое файла DYM:'; Memo1.Clear; AssignFile(g,'E:\Группа 196\Иванов А\Практическая работа №19\Задание №4\DYM.txt'); rewrite(g); reset(f); while not eof(f) do begin read(f,x); if x<>#32 then write(g,x); end;
CloseFile(g); CloseFile(f); reset(g); while not eof(g) do begin read(g,x); s:=s+x; end;
Memo1.Lines.Add(s); CloseFile(g); end; end; end.
жүктеу/скачать 0.7 Mb. Достарыңызбен бөлісу:
|