Пішін ќасиеттері

procedure TForm1.N2Click(Sender: TObject);

begin

if SD1.Execute then

begin

memo1.Lines.SaveToFile(SD1.FileName);

end;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

if OD1.Execute then

Memo1.Lines.LoadFromFile(OD1.FileName);

end;
procedure TForm1.Button1Click(Sender: TObject);

var k: integer;

begin

k:=pos(edit1.Text,Memo1.text);

Memo1.SelStart:=k-1;

Memo1.SelLength :=Length(Edit1.Text);

end;
procedure TForm1.Button2Click(Sender: TObject);

begin

Memo1.Lines.Add(edit1.Text);

end;
procedure TForm1.Button4Click(Sender: TObject);

begin

memo1.ClearSelection;

end;
procedure TForm1.Button3Click(Sender: TObject);

begin

memo1.Clear;

end;
procedure TForm1.FormActivate(Sender: TObject);

begin

k1:=0;

end;
procedure TForm1.Button5Click(Sender: TObject);

var i,s: integer;

begin

for i:=1 to length(memo1.Text) do

if copy(memo1.Text,i,length(edit2.Text))=edit2.Text then s:=s+1;

label2.Caption:=inttostr(s)+' рет';

end;
procedure TForm1.Button6Click(Sender: TObject);

var i,s: integer;

x: string;

begin

x:=memo1.Text;

i:=1;

while i<= length(x) do

begin

if copy(x,i,length(edit3.Text))=edit3.Text then

begin

delete(x,i,length(edit3.Text));

i:=i-length(edit3.Text);

insert(edit4.Text,x,i);

end;

i:=i+1;

end;

memo1.Clear;

memo1.Text:=x;

end;
procedure TForm1.Button7Click(Sender: TObject);

var i,s: integer;

y,x: string;

begin

x:=memo1.Text;

y:='';

for i:=1 to length(x) do

y:=y+x[i]+x[i];

memo1.clear;

memo1.Text:=y;

end;
procedure TForm1.Button8Click(Sender: TObject);

var i,s: integer;

y,x: string;

begin

x:=memo1.Text;

y:='';

for i:=1 to length(x) do

y:=x[i]+y;

memo1.clear;

memo1.Text:=y;

end;
procedure TForm1.Button9Click(Sender: TObject);

var i,s: integer;

y,x: string;

begin

x:=memo1.Text;

y:='';

for i:=1 to length(x) do

begin

s:=ord(x[i])+2;

y:=y+chr(s);

end;

memo1.clear;

memo1.Text:=y;

end;
procedure TForm1.Button10Click(Sender: TObject);

var i,s: integer;

y,x: string;

begin

x:=memo1.Text;

y:='';

for i:=1 to length(x) do

begin

s:=ord(x[i])-2;

y:=y+chr(s);

end;

memo1.clear;

memo1.Text:=y;

end;
procedure TForm1.N7Click(Sender: TObject);

begin

FD1.Execute;

Memo1.Font:=FD1.Font;

end;
procedure TForm1.N8Click(Sender: TObject);

begin

CD1.Execute;

Memo1.color:=CD1.color;

end;
end.

Delphi тілінде тексті өңдеуге айнымалының келесі типтері қолданылады:

Қысқа жолдар ShortString немесе string[N], мұндағы N<=255;

Ұзын жолдар string;

Жалпақ жолдар WideString;

Нөл-терминалды жолдар Pchar;

Жолдар бір өлшемді символдық жиым сыяқты сақталғандықтан әр символдың нөмірі болады. Жолдарды циклдік алгоритм комнадалары арқылы өңдеуге ыңғайлы.

Жолдарды өңдеуге арналған процедуралар мен функциялар

Function AnsiLowerCase(const S: String): String;	Барлық бас әріптер кіші әріптермен алмастырылған S жолын қайтарады.
Function AnsiUpperCase(const S: String ): String;	Барлық кіші әріптер бас әріптермен алмастырылған S жолын қайтарады.
Function Concat(Sl [, S2, ..., SN]: String ): String;	S1, S2, ... , SN жоларын біріктіру
Function Copy(St: String; Index, Count: Integer): String;	St жолынан count символдар тізбегін Index символ нөмірнен бастап көшіру
Procedure Delete(St: String; Index, Count:: Integer);	St жолынан count символдар тізбегін Index символ нөмірнен бастап өшіру
Procedure Insert(SubSt: String; St, Index: Integer);	St жолына SubSt жолын Index нөмірінен бастап кірістіру.
Function Length(St: String): Integer;	St жолының ұзындығын қайтарады.

Тапсырмалар

1. Тапсырма батырмасын басып, бағдарламамен жұмыс істеп көр.

Тапсырмалағы бағдарламаны өзің құрастыр.

2. Memo өрісіне енгізілген тексті әр келесі қатарға 1 символдан қысқартып отырып шығар

3. 
   Memo өрісіне енгізілген тексте неше сөз бар екенін анықта.
   
4. 
   Memo өрісіне енгізілген текстегі бірінші немесе соңғы символ жиі кездесе ме екенін анықта.
   
5. 
   Берілген тексте «о» символы жұп нөмірлі орында неше рет кездесетінін анықта.
   
6. 
   Берілген текстегі әр түрлі әріптер санын анықта..
   
7. 
   Берілген текстегі әр 3-ші әріпті өшіретін бағдарлама құр.
   
8. 
   Берілген текстегі 3 сөздің ұзындығын анықта.
   
9. 
   Берілген текстегі екінші сөздің бастапқы және соңғы әріптерінің орнын ауыстыр.
   
10. 
    Берілген текстегі 3 сөзді керсінше алмастыр.
    
11. 
    Берілген текстегі ең қысқа сөзді керсінше алмастыр.
    
12. 
    Берілген текстегі кіші әріптерді үлкен әріптермен алмастыр.
    

жүктеу/скачать 0,65 Mb.

Достарыңызбен бөлісу: