Студопедия

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


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

Порталы:

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



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




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

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

procedure TForm2.Button4Click(Sender: TObject);

var

i:integer;

f:file of str;

rec:str;

begin

AssignFile(f, 'f.dat');

if fileExists('f.dat') then

begin

reset(f);

seek(f,filesize(f))

end

else

rewrite(f);

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

begin

rec.fio:=tab1.cells[0,i];

rec.rab:=tab1.cells[1,i];

rec.otd:=tab1.cells[2,i];

rec.city:=tab1.cells[3,i];

rec.phone:=tab1.cells[4,i];

rec.money:=tab1.cells[5,i];

write(f,rec);

end;

closefile(f);

showmessage('Данные записаны!');

end;

 

- Читает информацию с файла в таблицу.

 


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

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




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