Page 25 - 6263

procedure TForm1.FormCreate(Sender: TObject);
const A: array[0..4] of string=('Нд','Пн','Вт','Ср','Чт');
// константа-масив
var i: integer;
begin
// ініціалізація полів об'єкта класу TForm1
self.a:=2; // тут self необхідне, оскільки є локальна A
k:=1; // тут self не обов'язкове
n:=1;
Caption:='TestVCL';
// ініціалізація властивостей інших об'єктів
RadioButton1.Checked:=True;
Memo1.PopupMenu:=PopupMenu1;
InsertDate2.OnClick:=InsertDate1Click;
for i:=0 to high(A) do // заповнити ListBox1
ListBox1.Items.Add(A[i]);
end;

// вибір меню Open
procedure TForm1.Open1Click(Sender: TObject);
begin
OpenDialog1.FileName := '*.txt';//показувати в діалозі
тільки такі файли
if OpenDialog1.Execute() then//показати діалог і, якщо
вибір файлу зроблений
//прочитати рядки з вибраного файлу
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

// вибір меню Save
procedure TForm1.Save1Click(Sender: TObject);
begin
if SaveDialog1.Execute() then//показати діалог і, якщо
вибір файлу зроблений

25