Функції для роботи з стрічками в Delphi

korpy@ukr.net
Лекція № 6-7
Функції для роботи з стрічками в Delphi
- Length;
-

Copy;
- Pos;
- Insert;
- Delete;
- Val;
- Concat;
- IntToStr;
- StrToInt;
- FloatToStr;
- StrToFloat;
- DateToStr;
- StrToDate;
- TimeToStr;
- StrToTime;
- Uppercase;
- Lowercase;
- Trim;
- TrimLeft;
- TrimRight

TFrmLength.BtnLengthClick(Sender: TObject);
var
i,n: Integer;
s0,s1,s2: string;
Begin
Memo1.Clear;
s0 := Edit1.Text;
n:=

Length(s0);
//Label1.Caption := IntToStr(n);
Memo1.Lines.Add(IntToStr(n));
end;

ProjLength.exe

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

'';
for i := 1 to Length(Edit1.Text) do
begin

try
Label1.Caption := Label1.Caption + Edit1.Text[i]+ ' ';
except
Beep;
end;
end;
end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

S підстрічки довжиною count символів. Підстрічка виділяє, починаючи з символа

в позиції index;

procedure TFrmCopy.BtnCopyClick(Sender: TObject);
Var
i,n: Integer;
s0,s1: string;
Begin
Memo1.Clear;
s0 := Edit1.Text;
s1 := Copy(s0,9,6);
//Label1.Caption := IntToStr(n);
Memo1.Lines.Add(s1);
end;

ProjCopy.exe

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

символа, починаючи з якого підстрічка substr входить в стрічку s,

при цьому шукає перше входження. Якщо підстрічка не знайдена, то повертає значення нуль.

procedure TFrmPos.BitBtnPosClick(Sender: TObject);
var
i,n: Integer;
s0,s1: string;
Begin
Memo1.Clear;
s0 := Edit1.Text;
s1 := Edit2.Text;
n:= Pos(s1,s0);
//Label1.Caption := IntToStr(n);
Memo1.Lines.Add(IntToStr(n));
end;

ProjPos.exe

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

вставити стрічку source в стрічку S, починаючи з позиції Index;
procedure

TFrmInsert.BBtnInsertClick (Sender: TObject);
var
s0,s1,s2: string;

Begin

s0 := Edit1.Text;
s1 := Edit2.Text;

Insert(s0,s1,9);

Memo1.Lines.Add(s1);


end;

ProjInsert.exe

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

з стрічки S підстрічки символів довжиною Count, починаючи з позиції

Index;

procedure TForm3.BBtnDeleteClick(Sender: TObject);
var
s0,s1,s2: string;

begin
s0 := Edit1.Text;

Delete(s0,9,6);

Memo1.Lines.Add(s0);

end;

ProjDelete.exe

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

стрічки S в стрічку ЧИСЛО V. Тип числа залежить від

представлення числа в стрічці. Параметр code повертає код результата операції, якщо операція виконана успішно, то повертається значення нуль;

procedure TForm3.BBtnValClick(Sender: TObject);
var
i,n: Integer;
s0,s1,s2: string;
// k:Real;
begin
s0 := Edit1.Text;
val(s0,n,i);
// val(s0,k,i);
Memo1.Lines.Add(IntToStr(n));
//Memo1.Lines.Add(FloatToStr(k));

end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

записуються одна за одною. Якщо результат перевищує 255 символів, стрічка

закінчуеться.

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
n1: Real;
s0,s1,s2,s3: String;
begin
s0 := Edit1.Text;
s1 := Edit2.Text;
s2 := Edit3.Text;
s3 := Concat(s0,s1,s2);
Memo1.Lines.Add(s3);
end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

работи з стрічками міститься в модулі SysUtils. Це наступні функції:
IntToStr
FloatToStr
StrToInt
StrToFloat
DateToStr
TimeTostr
StrToDate
StrToTime
“Застосування

засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

Date в стрічку;
procedure TForm3.BBtnDateToStrClick(Sender: TObject);
var
i,n: Integer;
s0,s1,s2: string;

begin

Memo1.Clear;
s0 := DateToStr(Date);
Memo1.Lines.Add(s0);

end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

виразі Time в строку;
procedure TForm3.BBtnDateToStrClick(Sender: TObject);
var
i,n: Integer;
s0,s1,s2: string;

begin

Memo1.Clear;
s0 := DateToStr(Date);
Memo1.Lines.Add(s0);

end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

початку і кінця стрічки s пробiлів та управляючих символів;
procedure TForm1.Button1Click(Sender:

TObject);
var
i,n: Integer;
s0,s1,s2: string;
begin
 
s1 := Edit1.Text + #13#10;
s0:= Trim(s1);
Memo1.Lines.Add(s0);
end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

управляючих символів з початку стрічки s;
procedure TForm1.Button1Click(Sender: TObject);
var
i,n: Integer;

s0,s1,s2: string;
begin
 
s1 := #13#10+Edit1.Text + #13#10;
s0:= TrimLef(s1);
Memo1.Lines.Add(s0);
end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

управляючих символів в кінце стрічки s.
procedure TForm1.Button1Click(Sender: TObject);

var
i,n:

Integer;
s0,s1,s2: string;
begin
s1 := Edit1.Text + #13#10;
s0:= TrimRight (s1);
Memo1.Lines.Add(s0);
end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

2014, mail: korpy@ukr.net

s0: String;

Begin

i:= Pos(Edit1.Text, Memo1.Text);

if i > 0 then
begin

Memo1.Text := Copy(Memo1.Text,1, i-1) + Edit2.Text +
Copy(Memo1.Text, i + Length(edit1.Text), 1000);
end;
 
end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

середні букви при парній довжині стрічки
procedure TForm1.Button1Click(Sender: TObject);
var
st:string;
k:

byte;
 
begin
st:=Edit1.Text;
k:=length(st);
if k mod 2 = 1 then delete(st, k div 2+1, 1) else
delete(st, k div 2, 2);
Memo1.Lines.Add(st);
end;

Результатом операції div є ціла частина від ділення двох чисел, а mod – остача, наприклад: (9 – 2) div 2 = 3; 7 mod 2 = 1

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

підстроку V
procedure TForm1.Button1Click(Sender: TObject);
var
k:byte;
w,v,st:String;
begin
w :=Edit1.Text;

st:=Edit2.Text;
v :=Edit3.Text;
while Pos(w,st) <> 0 do
begin
k:= pos(w,st);
delete(st,k,length(w));
insert(v,st,k);
end;
Memo1.Lines.Add(st);
end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

a : string;

l,nw,i,j,k,n : byte;
begin
l := 0; nw := 0;
a := RichEdit1.Lines[0]; // Нульова стрічка
k := RichEdit1.Lines.Count; // Кількість стрічок в компоненті RichEdit1
for j := 0 to k-1 do begin // Зовнішній цикл по кількості стрічок RichEdit1
n := Length(RichEdit1.Lines[j]);
for i := 1 to n do // Внутрішній цикл по підрахунку кількості слів в //стрічці
if a[i] = ' ' then
begin if l > 0 then
begin inc(nw); l := 0 end end
else inc(l);
if l > 0 then inc(nw);
StatusBar1.Panels[0].Text := 'Кількість слів ' + IntToStr(nw); // Вивід кількості слів в компоненту StatusBar1
end;
end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

integer;
st:String;
begin
st := Edit1.Text;
s := 0;
for i:=1 to length(st) do
begin

val(st[i],d,k);
if k = 0 then s:=s + d;
end;
ShowMessage(FloatToStr(s));
 
end;
 

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

:= 0;
k := RichEdit1.Lines.Count;
for j:=0 to k-1 do

begin
a := RichEdit1.Lines[j];
n := Length(RichEdit1.Lines[j]);
for i:=1 to n do
if a[i] in ['a', 'A', 'e', 'E', 'y', 'Y', 'u','U','i','I','j','J','o','O'] then
nw := nw+1;
end;
StatusBar1.Panels[0].Text := 'Кількість голосних ' + IntToStr(nw);
end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

: byte;
S : string;
begin
N:=0;

{обнулити число букв "а"}
Edit3.Text:='';
Edit2.Text:='';
S:=Edit1.Text; {присвоїти S значення текстового рядка}
if CheckBox2.Checked then
while Pos('а', S) > 0 do {якщо в рядку знайдена буква "а"}
begin
N:=N+1; {збільшити лічильник замін на 1}
S[Pos('а', S)] := 'б'; {замінити букву "а" буквою "б"}
end;
if CheckBox3.Checked then
while Pos(' ', S) > 0 do {якщо в рядку знайдений пробіл}
begin
N:=N+1; {збільшити лічильник замін на 1}
S[Pos(' ', S)] := '-'; {замінити пробіл символом "-"}
end;
if CheckBox1.Checked then Edit3.Text:=IntToStr(N);
Edit2.Text:=S; {вивід зміненого тексту}
end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

Д.В., 2014, mail: korpy@ukr.net

:= StrToInt(Edit3.Text);
Delete(s,k,t);
Edit4.Text := s;
end;
//Insert
procedure TForm2.Button2Click(Sender: TObject);
begin
s := Edit1.Text;
q := StrToInt(Edit5.Text);
w

:= Edit7.Text;
Insert(w,s,q);
Edit10.Text := s;
end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

:= StrToInt(Edit8.Text);
s1 := Copy(s,p,l);
Edit11.Text := s1;
end;
//Pos
procedure TForm2.Button4Click(Sender: TObject);
begin
s := Edit1.Text;
r

:= Edit9.Text;
a := Pos(r,s);
Edit12.Text := IntToStr(a);
end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

:= IntToStr(b);
end;
procedure TForm2.Button6Click(Sender: TObject);
begin
Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear; Edit6.Clear;
Edit7.Clear; Edit8.Clear;

Edit9.Clear;Edit10.Clear; Edit11.Clear;
Edit12.Clear; Edit13.Clear;
end;

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net

типів об’єктів.

Лекція №6-7
Питання:
“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В.,

2014, mail: korpy@ukr.net

проектирование с примерами приложений на С++. 2002 г. - 250

с.
Миронченко А.С. Императивное и обьектно-ориентированое программирование на Turbo Pascal и Delphi.
Т.А. Павловская Паскаль. Программирование на языке высокого уровня.: Учебник для вузов. – СПб.: Питер, 2007. -393 с. Ил.
Архангельский А.Я. Программирование в Delphi для Windows. Версии 2006, 2007, Turbo Delphi, 2007 г. - 1248 с.
Гофман В. Э., Хомоненко А. Д. Delphi. Быстрый старт. — СПб.: БХВ-Петербург, 2003. — 288 с: ил.
Шупрута В.В. Delphi 2005. Учимся программировать.

Лекція №4

“Застосування засобів ООП в лінгвістичних задачах” Корпильов Д.В., 2014, mail: korpy@ukr.net