Код для события Click Компонента button8

procedure TForm2.Button8Click(Sender: TObject);

begin

if DeleteFile('f.dat') then

ShowMessage('Файл успешно удален!')

else

ShowMessage('Ошибка удаления файла!');

end;

- Очищает таблицу.

Код для кнопки «Очистить таблицу»

procedure TForm2.Button6Click(Sender: TObject);

var

i,d:integer;

begin

for i:=1 to tab1.rowcount-1 do

for d:=0 to tab1.colcount-1 do

tab1.cells[d,i]:='';

tab1.rowcount:=1;

r:=0;

end;

- Добавляет в таблицу данные из Form1 и Form2.

Дата добавления: 2014-07-23; просмотров: 301; Нарушение авторских прав

Мы поможем в написании ваших работ!