Page 26 - 6263

//записати рядки у вибраний файл
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

// вибір меню About
procedure TForm1.About1Click(Sender: TObject);
const s='TestVCL v0.1'+#13#10+'author: Kopey
V.'+#13#10+'vkopey@gmail.com';
begin
Application.MessageBox(s,'Про програму');
end;

// вибір меню InsertDate
procedure TForm1.InsertDate1Click(Sender: TObject);
var pos:integer; s: string;
begin
s:=Memo1.Lines.Text; // весь текст у Memo1
pos:=Memo1.SelStart; // позиція курсору
insert(DateToStr(Date),s,pos+1); // вставити дату в
позицію курсору
Memo1.Lines.Text:=s; // установити текст у Memo1
end;

// вибір меню Exit
procedure TForm1.Exit1Click(Sender: TObject);
begin
Form1.Close; // закрити вікно
end;

// натиск кнопки Button1
procedure TForm1.Button1Click(Sender: TObject);
var x:real;
begin
try // блок перехоплення можливих помилок

26