Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

Чтение блока из файла

Страницы: 1
Чтение блока из файла
#1
19.01.2010 15:22:58
Здравствуйте. Помогите. У меня есть текстовый файл, состоящий из блоков. Блоки разделены пустыми строками. Так вот задача в том, чтобы написать функцию, которая будет возвращать текст блока.
 
 
#2
19.01.2010 15:30:05
Можно загрузить в stringlist весь файл построчно и уже в нем работать.
 
 
#3
19.01.2010 15:38:43
Попробуйте эту функцию
Код
BlockRead(FromF, Buf, SizeOf(A), NumRead1);

Buf: array[1..512] of Char;
FromF: file;
NumRead1: Integer;
 
 
#4
19.01.2010 15:44:44
Можно еще вот так
Код
program Project35;
{$APPTYPE CONSOLE}

Var
   MyFile: Text;

function ReadTexBlock: String;
Var S: String;
begin
 Result := '';
 repeat
  ReadLn(MyFile, S);
 until not Eof(MyFile) and (S <> '');
 repeat
  Result := Result + S;
  ReadLn(MyFile, S);
 until not Eof(MyFile) and (S = '');
end;

begin
 AssignFile(MyFile, 'c:\Test.txt');
 Reset(MyFile);
 WriteLn(ReadTexBlock);
 WriteLn(ReadTexBlock);
 CloseFile(MyFile);
end.
 
 
#5
19.01.2010 16:01:19
Это будет работать только для текстовых файлов
 
 
#6
19.01.2010 16:06:15
В вопросе изначально было написано «есть текстовый файл»
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)