Результаты исследования студентов в проекте Работа со строками в Delphi
Содержание
Авторы и участники проекта
Тема исследования группы
Решение задач
Проблемный вопрос (вопрос для исследования)
Как можно использовать строковый тип для исследования литературных текстов?
Цели исследования
- Подобрать примеры задач с литературными текстами
- Составить алгоритмы решения задач
- Составить программу на языке Delphi
- Выполнить анализ результата
Результаты проведённого исследования
Нами была придумана задача, в которой требовалась изменяеть цвет и размер букв
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst, ExtCtrls;
type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
RadioGroup3: TRadioGroup;
Label1: TLabel;
Label2: TLabel;
CheckListBox1: TCheckListBox;
Edit1: TEdit;
procedure RadioGroup3Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure RadioGroup2Click(Sender: TObject);
procedure CheckListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.RadioGroup1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0:Edit1.Font.Style:=[]; 1:Edit1.Font.Style:=[fsItalic]; 2:Edit1.Font.Style:=[fsBold]; 3:Edit1.Font.Style:=[fsItalic,fsbold]; end; end;
procedure TForm1.RadioGroup2Click(Sender: TObject); begin case RadioGroup2.ItemIndex of 0:Edit1.Font.Size:=8; 1:Edit1.Font.Size:=10; 2:Edit1.Font.Size:=12; 3:Edit1.Font.Size:=14; end; end;
procedure TForm1.RadioGroup3Click(Sender: TObject); begin case RadioGroup3.ItemIndex of 0:Edit1.Font.Color:=clBlack; 1:Edit1.Font.Color:=clGreen; 2:Edit1.Font.Color:=clRed; 3:Edit1.Font.Color:=clblue; end; end;
procedure TForm1.CheckListBox1Click(Sender: TObject); begin if CheckListbox1.Checked[0] then Edit1.Font.Style:=Edit1.Font.Style+[fsStrikeOut] else Edit1.Font.Style:=Edit1.Font.Style-[fsStrikeOut]; if CheckListbox1.Checked[1] then Edit1.Font.Style:=Edit1.Font.Style+[fsUnderLine] else Edit1.Font.Style:=Edit1.Font.Style-[fsUnderLine]; end;
end.
Вывод
Для того, чтобы получить верный результат, мы исследовали существующие строковые данные в Delphi, составили проект и программу.
Используя полученные нами данные, можно сделать вывод, что программа помогает нам изменять цвет даных букв, и уменьшать и увеличивать размер букв.
