Работа с файлами

@Михаил944 · Регистрация: 23.01.2013

Author24 — интернет-сервис помощи студентам

Создать файл состоящий из целых чисел , прочитать файл и определить есть ли в нём введённое с клавиатуры число........На форме

@MrOnlineCoder · 20.06.2013, 19:42

Создать файл (что это за абра-кадабра здесь: -->тут):

Delphi

var
 
  FileHandle:THandle;
 
begin
 
   FileHandle:=CreateFile(PChar('filename.txt'),GENERIC_READ or
 
      GENERIC_WRITE, FILE_SHARE_WRITE or FILE_SHARE_READ, nil, CREATE_NEW,
 
      FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED, 0);
 
   CloseHandle(FileHandle);
 
end;

Считывание:

Delphi

1	Memo1.Lines.LoadFromFile('filename.txt');

Заполение файла:

Delphi

var
f:file of integer;
i:integer;
...
AssingFile(f,'filename.txt');
rewrite(f);
for i:=1 to 10 do
begin
randomize;
writeln(f,random(MAX_INT));
end;
closefile(f);

Проверка:

Delphi

var
res:integer;
...
AssingFile(f,'filename.txt');
reset(f); //Открываем файл для чтения
while not eof(f) do // Пока не найден конец файла...
begin
readln(f, res);//Заносим значение в переменную
if res=spinedit1.value then MessageDlg('Число найдено!',mtInformation,[mbOk],0); //Выводим результат
end;

@volvo · 20.06.2013, 20:32

Сообщение от MrOnlineCoder

Создать файл

Можно гораздо проще, не опускаясь на уровень API... Достаточно посмотреть на описания File of Integer, и на функции AssignFile, Rewrite и CloseFile. Тем более, что у тебя несколькими строками ниже это и описано. При чем тогда CreateFile?

@Михаил944 1 / 1 / 0 Регистрация: 23.01.2013 Сообщений: 106
		1
	Работа с файлами 20.06.2013, 17:23. Показов 1293. Ответов 2 Метки нет (Все метки) Создать файл состоящий из целых чисел , прочитать файл и определить есть ли в нём введённое с клавиатуры число........На форме 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	20.06.2013, 20:32	3
	Сообщение от MrOnlineCoder Создать файл Можно гораздо проще, не опускаясь на уровень API... Достаточно посмотреть на описания File of Integer, и на функции AssignFile, Rewrite и CloseFile. Тем более, что у тебя несколькими строками ниже это и описано. При чем тогда CreateFile? 1

Работа с файлами

Решение