Студопедия

Главная страница Случайная лекция


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

Порталы:

БиологияВойнаГеографияИнформатикаИскусствоИсторияКультураЛингвистикаМатематикаМедицинаОхрана трудаПолитикаПравоПсихологияРелигияТехникаФизикаФилософияЭкономика



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




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

Читайте также:
  1. Вероятность случайного события
  2. Дефекты и уязвимости в программных компонентах
  3. Жизненный путь: события жизни, психологическая биография. Стили жизни. Жизненное пространство личности.
  4. Зависимые и независимые события.
  5. Зависимые и независимые события. Условная вероятность события
  6. Код для события Click Компонента button1.
  7. Код для события Click Компонента button10
  8. Код для события Click Компонента button4
  9. Код для события Click Компонента button5
  10. Код для события Click Компонента button5

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.

 


<== предыдущая страница | следующая страница ==>
Код для события Click Компонента button5. procedure TForm2.Button5Click(Sender: TObject) | Код для события Click Компонента button7

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




Мы поможем в написании ваших работ!
lektsiopedia.org - Лекциопедия - 2013 год. | Страница сгенерирована за: 0.002 сек.