Результаты исследования студентов в проекте Работа со строками в Delphi

Авторы и участники проекта

• Конёва Людмила
• Светлана Малышева

Тема исследования группы

Решение задач

Проблемный вопрос (вопрос для исследования)

Как можно использовать строковый тип для исследования литературных текстов?

Цели исследования

1. Подобрать примеры задач с литературными текстами
2. Составить алгоритмы решения задач
3. Составить программу на языке Delphi
4. Выполнить анализ результата

Результаты проведённого исследования

Нами была придумана задача в которой меняется цвет и размер букв

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, составили проект и программу.

Используя полученные нами данные, можно сделать вывод, что программа помогает нам изменять цвет даных букв, и уменьшать и увеличивать размер букв.

Полезные ресурсы

• Учебник по вики
• Сайт программы Intel "Обучение для будущего"
• Полезные книги

Другие документы

• Исходники различных программ в делфи

• Методы строки в делфи