Тажриба иши. Borland Delphi дастурлаш тизимида ишлаш асослари. Ишдан максад: Borland Delphi

17 - расм. Каторни ўчириш схемаси.
19. Ходисалар менюсидаги Ўчириш пунктига, яъни TForm1.N7Cliсk процедурасига куйидаги ўзгартиришларни киритинг:
procedure TForm1.N7Click(Sender: TObject);
var i: integer;
begin
for i:=StringGrid1.Row to StringGrid1.RowCount-1 do
StringGrid1.Rows[i]:=StringGrid1.Rows[i+1];
if StringGrid1.RowCount>1
then StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
20. Проектни сакланг ва уни ишга туширинг.
21. Кейинги этап – бу маълумотларни ва кундаликни тахрирлашдир. Бунинг учун Ходисалар менюсидаги, яъни TFrom1.N8Click процедураси очилади ва куйидаги ўзгартиришлар киритилади:
procedure TForm1.N8Click(Sender: TObject);
begin
if StringGrid1.Row<>0 then
{агар жадвалда биттадан ортик катор бўлса}
begin
Form2.TMemo1.Text:=
StringGrid1.cells[2,StringGrid1.Row];
Form2.MonthCalendar1.Date:=
StrToDate(StringGrid1.cells[0,StringGrid1.Row]);
Form2.DateTimePicker1.Time:=
StrToTime(StringGrid1.cells[1,StringGrid1.Row]);
if Form2.ShowModal=mrOK then
{агар Form2 формаси OK тугмачаси ёрдамида беркитилган бўлса}
begin
StringGrid1.cells[0,StringGrid1.Row]:=
DateToStr(Form2.MonthCalendar1.Date);
StringGrid1.cells[1,StringGrid1.Row]:=
TimeToStr(Form2.DateTimePicker1.Time);
StringGrid1.cells[2,StringGrid1.Row]:=
Form2.TMemo1.Text;
end;
end;
end;
22. Проектни сакланг ва уни ишга туширинг. Натижани кузатинг.
23. Тажриба ишининг охирги этапи-бу матни саклаш ва сакланган матнни очишдир.
24. Матнларни саклаш куйидаги структурага эга:
DateS - string [8] сана;
TimeS - string [5] вакт; 1 – ходиса
EvenS - string [200] ходиса;
DateS - string [8] сана;
TimeS - string [5] вакт; 2 – ходиса ва х.к.
EvenS - string [200] ходиса;