процедура БД

[Nimf7]

На глаза попалась БД и оч заинтересовал ее код. Не могу назвать себя супер delphi программистом, но основные моменты понимаю, а здесь "что-то с чем-то". Пжс кто-нибудь проосвятите ремарками по поводу кода программы. Как она стрингрид с файлом связывает особенно интересно


var
Form1: TForm1;
save, fileSave: boolean;

fileName: String;
stDay : array[1..7] of string[11] = ('воскресенье','понедельник','вторн ик',
'среда','четверг','пятница','суббот а');
stMonth : array[1..12] of string[8] = ('января','февраля','марта',
'апреля','мая','июня','июля',
'августа','сентября','октября',
'ноября','декабря');

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day : Word;
begin
with Session do
begin
ConfigMode := cmSession;
try
AddStandardAlias( 'kollej',
ExtractFilePath(ParamStr(0))+'DATA\ ',
'PARADOX');

Table2.Active:=True;
finally
ConfigMode := cmAll;
end;
end;
end;

procedure TForm1.ToolButton8Click(Sender: TObject);
begin
DataSource1.DataSet:=Table2;
end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

По вопросу - не путайте StringGrid c DBGrid.
Кстати, среди компонентов приведенной формы нет ни того, ни другого...