Мысал. Memo компонентінен массив жолдарын енгізу

Unit fr_memo_;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls;

Type

TForm1 = class (TForm)

Label1: Tlabel;

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Var

Form1: TForm1;

Implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

const

SIZE=5; // массив өлшемі

Var

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

n: integer; // Memo өрісіне енгізілген жолдар саны

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

i: integer;

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.Memo1.Lines[i-1]; // Memo жолдары 0-дан бастап нөмірленген

// массивті хабарлама терезесіне шығару

If n>0 then

Begin

st:=’Енгізілген массив: ’+#13;

for i:=1 to n do

st:=st+IntToStr(i)+’ ‘+a[i]+#13;

ShowMessage(st);

end;

end;

End.

Негізгі жұмысты, алдымен Memo1 өрісінде мәтін бар жоғын анықтайтын, TForm1.Button1Click процедурасы орындайды. Егер мәтін болатын болса (бұл жағдайда Lines.Count қасиетінің мәні 0-ден үлкен), онда процедура енгізілген жолдар мен массив өлшемін салыстырады. Егер енгізілген солдар саны массив өлшемінен үлкен болатын болса, онда программа n-нің мәнін өзгертеді, сонымен тек бірінші SIZE жолдарды ғана енгізеді.

6 суретте Массивті енгізу қосымшасының диалогтық терезесі көрсетілген. Енгізу командалық батырмасын шерткеннен кейін, Memo өрісінен алынған массив элементтері мәндерінен тұратын терезе пайда болады (7 сурет).

Memo -компоненттінің мазмұнын файлдан жүктеуге болады және Memo өрісіндегі мазмұнды файлға сақтауға болады.Ол үшін:

Жүктеу-LoadFromFile(const filename:string)

Cақтау- SaveToFile(const filename:string)

Бұл екі әдісіміз Tstring-класынан шығады.Filename параметрі текстік файлдың аты.

Memo1.LoadFromFile(‘C:\Мои дакументі\adves.txt’)

Memo1.SavetoFile (‘c:\odv5.txt’)

Memo-компонентінің өрісіндегі мәтінді әртүрлі тәсілмен түзеуге болады.

Taligament-типті aligament қасиеті келесі мәндердін бірін қабылдайды.

1)taleftjujtify-сол жақ

2)taCenter-центр бойынша

3)taRidhtjujtifu-оң жақ

Memo-компанентіндегі ақпаратты қарауға ыңғайлы болу үшін, оған жылжыту жолағы орналастырады. Оның қабылдайтын мәндері: