Последний отзыв
Книга довольно хорошо написана в виде рассказов старого человека молодому парню, основанных на событиях его реальной жизни, охватывающей период с нача...
Далее
По всем вопросам обращайтесь на: info@litportal.ru
(©) 2003-2024.
✖
Программирование на Delphi 7
Настройки чтения
Размер шрифта
Высота строк
Поля
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; // Переменная для работы с типизированным файлом
Другие электронные книги автора Сергей Николаевич Талипов
Последний отзыв
Книга довольно хорошо написана в виде рассказов старого человека молодому парню, основанных на событиях его реальной жизни, охватывающей период с нача...
Далее