Программирование на Delphi 7

Автор

Сергей Николаевич Талипов

Жанр

Программирование

Год написания книги

2012

<< 1 ... 14 15 16 17 18 19 20 >>

На страницу:

Перейти

18 из 20

Настройки чтения

Размер шрифта

Высота строк

Поля

begin

k:=strtoint(edit1.Text);

for k := 0 to k-1 do begin

Windows.Beep(10000,500);// verhnee podcherkuivanie

for I := 0 to 50 do Windows.Beep((184*i)+800,10); // /

for j := 50 downto 0 do Windows.Beep((184*j)+800,10); // \

sleep(500); // Niznee podcherkivanie

for I := 0 to 50 do Windows.Beep((184*i)+800,10) ;

Windows.Beep(10000,500);

Windows.Beep(10000,500);

Windows.Beep(10000,500);

end;

ЛЕКЦИЯ № 9

1. РАБОТА С ФАЙЛАМИ И ТИПИЗИРОВАННЫМИ ДАННЫМИ

1. Запись текстовых данных в файл

procedure TForm6.Button1Click(Sender: TObject);

// Запись текстовых данных в файл

var f: textfile; // Переменная для работы с текстовым файлом

begin

AssignFile(f,'d:\1.txt'); // Связь файловой переменной с файлом на диске

rewrite(f); // Открываем файл на запись с очисткой

// append(f); // Открываем файл на добавление в конец

writeln(f,'Привет!'); // Вывод данных в файл

writeln(f,'Создаем новый файл на диске.');

CloseFile(f); // Закрываем файл

end;

2. Чтение текстовых данных из файла

procedure TForm6.Button2Click(Sender: TObject);

// Чтение данных из файла

var f: textfile; // Переменная для работы с текстовым файлом

s: string;

begin

memo1.Clear; // Очистка мемо-поля

AssignFile(f,'d:\1.txt'); // Связь файловой переменной с файлом на диске

reset(f); // Открываем файл на чтение

while not eof(f) do begin // Пока не конец файла – цикл

readln(f,s); // Читаем текстовую строку из файла

memo1.Lines.add(s); // Заносим считанную строку в мемо-поле

end;

CloseFile(f); // Закрываем файл

end;

3. Запись типизированных данных в файл

type // Описание типа-записи

tPers = record

fam: string[50];

name: string [50];

year: integer;

height: real;

end;

var f: file of tPers; // Переменная для работы с типизированным файлом