«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

 

 омпонент Memo

¬ некоторых случа€х дл€ ввода (вывода)  элементов массива можно использовать компонент Memo.  омпонент Memo позвол€ет вводить текст, состо€щий из достаточно большого количества строк, поэтому его удобно использовать дл€ ввода символьного массива. «начок компонента находитс€ на вкладке Standard.

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

—войство

ќпредел€ет

Name

»м€ компонента. »спользуетс€ в программе дл€ доступа к свойствам компонента

Text

“екст, наход€щийс€ в поле Memo. –ассматриваетс€ как единое целое

Lines

“екст, наход€щийс€ в поле Memo. –ассматриваетс€ как совокупность строк. ƒоступ к строке осуществл€етс€ по номеру

Lines .Count

 оличество строк текста в поле Memo

Left

–ассто€ние от левой границы пол€ до левой границы формы

Top

–ассто€ние от верхней границы пол€ до верхней границы формы

Height

¬ысоту пол€

Width

Ўирину пол€

Font

Ўрифт, используемый дл€ отображени€ вводимого текста

ParentFont

ѕризнак наследовани€ свойств шрифта родительской формы

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

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

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

for i:=l to SIZE do

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

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

а Ц массив;

Memo1 Ц им€ Memo-компонента;

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

ѕример:
procedure TForml .ButtonlClick(Sender: TObject);
const
SIZE=5;
var
a:array[l..SIZE]of string[30];
n: integer;
i:integer;
st:string;
begin
n:=Memo1.Lines.Count;
if n = 0 then begin
ShowMessage('»сходные данные не введены!');
Exit;
end;
if n > SIZE then begin
ShowMessage(' оличество строк превышает размер массива.');
n:=SIZE;
end;
for i:=1 to n do
a[i]:=Form1.Memol.Lines[i-1];
if n > 0 then begin
st:='¬веденный массив:'+#13;
for i: =1 to n do
st:=st+IntToStr(i)+' '+ a[i]+f13; ShowMessage(st);
end;
end;

”знать как сэкономить в кризис моно на сайте ekonom-it.ru

Ётапы проектировани€ базы данных ћеханизмы доступа к ƒЅ в Delphi ѕол€ набора данных в Delphi –абота с массивами в Delphi  омпонент StringGrid ѕередача массивов в процедуры и функции ќбзор палитры компонентов  омпоненты страницы Standard  омпоненты страницы Additional  омпоненты страницы Win32 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом