Сдам Сам

ПОЛЕЗНОЕ


КАТЕГОРИИ







Использование компонента Memo





В некоторых случаях для ввода массива можно использовать компонент Memo. Компонент Memo позволяет вводить текст, состоящий из достаточно большого количества строк, поэтому его удобно использовать для ввода символьного массива. Компонент Memo добавляется в форму обычным образом. Значок компонента находится на вкладке Standard (рис .8).

 

Рисунок 8 - Компонент Memo

 

В табл. 26 перечислены некоторые свойства компонента Memo.

Таблица 26 - Свойства компонента Memo

Свойство Определяет
Name Имя компонента. Используется в программе для доступа к свойствам компонента
Text Текст, находящийся в поле Memo. Рассматривается как единое целое
Lines Текст, находящийся в поле Memo. Рассматривается как совокупность строк. Доступ к строке осуществляется по номеру
Lines.Count Количество строк текста в поле Memo
Left Расстояние от левой границы поля до левой границы формы
Top Расстояние от верхней границы поля до верхней границы формы
Height Высоту поля
Width Ширину поля
Font Шрифт, используемый для отображения вводимого текста
ParentFont Признак наследования характеристик шрифта формы

 

При использовании компонента Memo для ввода массива значение каждого элемента массива следует вводить в отдельной строке и после ввода каждого элемента массива нажимать клавишу <Enter>.

Получить доступ к находящейся в поле Memo строке текста можно при помощи свойства Lines, указав в квадратных скобках номер нужной строки (строки нумеруются с нуля).

Следующая программа, текст которой приведен в листинге 5, демонстрирует использование компонента Memo для ввода символьного массива.

Основной цикл процедуры ввода символьного массива из компонента Memo может выглядеть так:



 

for i:=l to SIZE do

a [ i ]:= Memol.Lines[i];

где:

· SIZE — именованная константа, определяющая размер массива;

· а — массив;

· Memol — имя Memo-компонента;

· Lines — свойство компонента Memo, представляющее собой массив, каждый элемент которого содержит одну строку находящегося в поле Memo текста.

Форма программы приведена на рис. 9. Помимо поля Memo она содержит командную кнопку (Buttonl), при щелчке на которой выполняется ввод значений элементов массива из поля Memo.

Рисунок 9 - Диалоговое окно приложения Ввод массива

 

Листинг 5. Ввод массива строк из компонента Memo

unit fr_memo_;

Interface

Uses

Windows, Messages, SysUtils, Classes,

Graphics, Controls, Forms, Dialogs, Menus, StdCtrls;

 

Type

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

Label1: TLabel;

 

procedure ButtonlClick(Sender: TObject);

 

Private

{ Private declarations }

 

Public

{ Public declarations }

end;

 

Var

Forml: TForm1;

 

Implementation

($R *.DFM}

procedure TForml .ButtonlClick(Sender: TObject);

Const

SIZE=5; // размер массива

 

Var

a:array[l..SIZE]of string[30]; //массив

n: integer; // количество строк, введенных в поле Memo

i:integer; // индекс элемента массива

st:string;

 

Begin

n:=Memo1.Lines.Count;

if n = 0 then begin

ShowMessage('Исходные данные не введены!');

Exit; // выход из процедуры обработки события

end;

 

// в поле Memo есть текст

if n > SIZE then begin

ShowMessage('Количество строк превышает размер массива.');

n:=SIZE; // будем вводить только первые SIZE строк

end;

 

for i:=1 to n do

a[i]:=Form1.Memol.Lines[i-1]; // строки Memo пронумерованы с нуля

 

// вывод массива в окно сообщения

if n > 0 then begin

st:='Введенный массив:'+#13;

 

for i: =1 to n do

st:=st+IntToStr(i)+' '+ a[i]+f13;

ShowMessage(st);

end;

end;

 

End.

Основную работу выполняет процедура TForm1.Button1Click, которая сначала проверяет, есть ли в поле Memo1 текст. Если текст есть (в этом случае значение свойства Lines.Count больше нуля), то процедура сравнивает количество введенных строк и размер массива. Если это количество превышает размер массива, то программа изменяет значение п, тем самым подготавливает ввод только первых SIZE строк.

На рис. 10 приведен вид диалогового окна приложения Ввод массива. После щелчка на командной кнопке Ввод появляется окно, которое содержит значения элементов массива, полученные из Memo-поля.

 

Рисунок 10 - Окно приложения Ввод массива

 

Рисунок 11 - Массив, введенный из Memo-поля

 









ЧТО ТАКОЕ УВЕРЕННОЕ ПОВЕДЕНИЕ В МЕЖЛИЧНОСТНЫХ ОТНОШЕНИЯХ? Исторически существует три основных модели различий, существующих между...

ЧТО ПРОИСХОДИТ ВО ВЗРОСЛОЙ ЖИЗНИ? Если вы все еще «неправильно» связаны с матерью, вы избегаете отделения и независимого взрослого существования...

Живите по правилу: МАЛО ЛИ ЧТО НА СВЕТЕ СУЩЕСТВУЕТ? Я неслучайно подчеркиваю, что место в голове ограничено, а информации вокруг много, и что ваше право...

Что делать, если нет взаимности? А теперь спустимся с небес на землю. Приземлились? Продолжаем разговор...





Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:


©2015- 2021 zdamsam.ru Размещенные материалы защищены законодательством РФ.