Файл, это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности




НазваниеФайл, это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности
страница4/5
Дата конвертации15.02.2016
Размер0.68 Mb.
ТипДокументы
источникhttp://maispace.ru/docs/mailit/Файлы в Delphi.doc
1   2   3   4   5

Пример фрагментов программы чтения и записи данных в файл

//Ввод матрицы из файла и сохранение данных в файл

procedure TForm1.RadioGroup1Click(Sender: TObject);

const m=3;

n=4;

var f1,f2:Textfile;

f1name,f2name:string;

i,j:integer;

a:array[1..m,1..n] of integer;

begin

case radiogroup1.ItemIndex of

{Ввод из файла матрицы (активизируется при нажатии на кнопку "Ввод из файла

text.txt (матрица 3х4)")}

0:begin // чтение данных из файла

f1name:='text.txt';

Assignfile(f1,f1name);

{$I-}

Reset(f1);

{$I+}

for i:=1 to m do

for j:=1 to n do

begin

read(f1,a[i,j]);

StringGrid1.Cells[j,i]:=inttostr(a[i,j]);

end;

Edit3.SetFocus;

closefile(f1);

end;


1:begin // запись данных в файл

{Сохранение днных в файл (активизируется при нажатии на кнопку "Вывод файл с

заданным именем")}

f2name:=Edit5.Text+'.txt';

AssignFile(f2,f2name);

Rewrite(f2);

writeln(f2,'Исходная матрица');

for i:=1 to m do

begin

for j:=1 to n do

write(f2,StringGrid1.Cells[j,i],' ');

writeln(f2);

end;

writeln(f2,'Новая матрица');

for i:=1 to m do

begin

for j:=1 to n do

write(f2,StringGrid2.Cells[j,i],' ');

writeln(f2);

end;

writeln(f2,'Число положительных элементов',' ',Edit1.text);

writeln(f2,'Число отрицательных элементов',' ',Edit2.text);

writeln(f2,'Сумма положительных элементов',' ',inttostr(S1));

writeln(f2,'Сумма отрицательных элементов',' ',inttostr(S2));

CloseFile(f2);

Showmessage('Вывод в файл выполнен');

end;


end;

end;


Рассмотренные способы работы с файлами, которые имеются в самых первых версиях Pascal, можно весьма эффективно использовать при создании программ.



При создании программ для Windows более корректно применять стандартные функции этой системы. Для работы с ними не требуется создавать специальные переменные файлового типа: в системе Windows каждый файл имеет уникальный цифровой идентификатор(тип Integer). По-английски он называется Handle, под, таким названием присутствует в описании многих функций.


Ни в коем случае нельзя смешивать работу с файлами, открытыми с помощью выше описанных подпрограмм Reset и Rewrite (для их обработки применяются процедуры Read,Write,BlockRead,BlockWrite), и работу с файлами, открытыми с помощью функций Windows.


3.Работа с файловой системой Windows

Файл создается с помощью функции

function FileCreate(const FileName: string): Integer;

В Windows режимы создания и открытия файла различаются.

Функция возвращает идентификатор файла (целое положительное число) или значение -1, если создать файл не удалось. Значение -1 обозначает ошибку для большинства функций Windows. Параметр FileName содержит имя файла, возможно, вместе с полным путем поиска.

Открытие файла выполняется функцией

function FileOpen(const FileName: string; Mode : LongWord) : Integer;

Режим открытия определяется параметром Mode. Чаще всего применяется одно из трех следующих значений:

  • fmOpenRead — открытие только на запись;

  • fmOpenWrite — открытие только на чтение;

  • fmOpenReadWrite — открытие и на запись, и на чтение (режим изменения файла).

Функции ввода и вывода данных напоминают функции BlockRead/BlockWrite. Чтение данных:

function FileRead(Handle: Integer;

var Buffer;

Count: Integer): Integer;

Параметр Count указывает число считываемых байтов, параметр Buffer — это пере­менная, в которую эти байты записываются. Как правило, в качестве такой пере­менной выступает массив из элементов типа Char или Byte. Аналогично выглядит и функция записи данных:

function FileWrite(Handle: Integer;

const Buffer; Count: Integer): Integer;

Данные для записи содержатся в параметре Buffer. Параметр Соunt задает число записываемых байтов. Закрытие файла происходит с помощью процедуры

procedure FileClose (Handle : Integer);

Следующий пример создает новый файл и записывает в него содержимое тексто­вой строки.

var FileHandle: Integer;

S: String;

begin

S := 'текстовая строка';

FileHandle : = FileCreate('С:\TMP\S.TXT') ;

FileWrite(FileHandle, S, SizeOf(S));

FileClose(FileHandle);

end;


При использовании средств Windows применяется функция Seek(для произвольной установки текущей позиции)


Function FileSeek(Handle, Ofset, Origin: Integer): Integer;

3.1.Компоненты cтраницы Dialogs


В состав Windows входит ряд типовых диалоговых окон, таких как окно выбора загружаемого файла, выбора шрифта, настройки принтера и т. д. В Delphi реализованы классы, объекты которых дают программисту удобные способы создания и использования таких окон.

Работа со стандартными диалоговыми окнами осуществляется в три этапа.

Вначале на форму помещается соответствующий компонент и осуществля­ется настройка его свойств (следует заметить, что собственно компонент не виден в момент работы программы, видно лишь создаваемое им стандартное окно). Настройка свойств может проходить как на этапе конструирования, так и в ходе прогона программы.

На втором этапе осуществляется вызов стандартного для классов диалоговых окон метода Execute, который создает и показывает на экране диалоговое окно. Вызов этого метода обычно располагается внутри обработчика какого-либо события. Например, обработчик выбора в меню команды Открыть файл может вызвать метод Execute компонента TOpenDiaiog, обработчик щелчка на кнопке Сохранить панели инструментов может вызвать такой же метод компонента TSaveDiaiog и т. д. Только после обращения к методу Execute на экране появляется соответствующее диалоговое окно. Это окно является модальным, поэтому сразу после обращения к методу Execute дальнейшее выполнение программы приостанавливается до тех пор, пока пользователь не закроет окно. Поскольку Execute — логическая функция, она возвращает в программу значение True, если результат диалога с поль­зователем был успешным.

Проанализировав результат вызова метода Execute, программа может вы­полнить третий этап — использовать введенные с помощью диалогового ок­на данные — имя файла, параметры принтера, выбранный шрифт и т. д.

На странице Dialogs расположен ряд невизуальных компонентов, позволяющих использовать в программе стандартные диалоговые окна Windows, например окна выбора и сохранения файлов или изображений, окна выбора цвета и шрифта, окно настройки принтера и другие.


  • OpenDiaLog — окно открытия файла. Реализует стандартное диалоговое окно
1   2   3   4   5

Похожие:

Файл, это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности iconТема: Массивы. Виды массивов. Ввод, вывод массивов
В математике, экономике, информатике часто используются упорядоченные наборы данных, например, последовательности чисел, таблицы,...
Файл, это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности iconРеферат Разработана кластерная восемнадцатигрупповая система химических элементов до
Периодической системе элементов, но и дополнительно по кластерам химических элементов, определять прогнозные свойства новых элементов...
Файл, это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности icon1. Понятие системы управления базами данных
Основная особенность субд – это наличие процедур для ввода и хранения не только самих данных, но и описаний их структуры. Файлы,...
Файл, это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности iconВопросы к экзамену по «Общей и неорганической химии»
Периодический закон и периодическая система химических элементов Д. И. Менделеева, закономерности изменения свойств элементов и их...
Файл, это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности iconУрок в 9 классе по теме
Изучить естественное семейство сходных химических элементов главной подгруппы II группы периодической системы химических элементов,...
Файл, это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности iconОснова Информационных систем, объект ее обработки база данных компьютеров
В широком смысле слова можно сказать, что бд – это совокупность сведений о конкретных объектах реального мира в какой-либо предметной...
Файл, это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности iconРеферат по химии на тему: «Неметаллы»
Положение неметаллических элементов в периодической системе химических элементов. Нахождение в природе. Общие химический и физические...
Файл, это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности iconПрограмма это последовательность команд, которую выполняет компьютер в процессе обработки данных
Ни компьютер в целом, ни его составные части не способны сами по себе обрабатывать информацию. Управляют работой компьютера программы,...
Файл, это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности iconПрограмма работы с базой данных Blackfish sql "Книги" (books). Подкаталог delploy\database содержит базу данных, подкаталоги deploy\client и deploy\server соответственно клиентскую и серверную части приложения
Программы работы с базами данных требуют, чтобы файлы баз данных находились в каталоге D:\Database
Файл, это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности iconСистема хранения данных о студенческих научных достижениях
База данных о студенческих научных достижениях предназначена для хранения и обработки данных о научно-исследовательских работах студентов...
Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©kzdocs.docdat.com 2012
обратиться к администрации
Документы
Главная страница