VPF::конец абзаца - Форум программистов

Алкоголик

Дата 6.8.2009, 18:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 26.1.2004

Репутация: нет
Всего: нет

Здраствуйте.
Наверное сегодня у меня совсем мозг не работает, но не могу решить такую тривиальную задачу.
Есть текстовый файл нужно отсчитать 4000 символов и найти конец абзаца. Делаю так:

Код


var
  str:string;
  i,kolvo:integer;
  f: TextFile;
begin
  kolvo:=0;
  AssignFile(f, edit1.text);
  Reset(f);
  while not EOF (f) do begin
    readln (f, str);
    kolvo:=kolvo+length(str);
    if kolvo>4000 then begin
      for I := 1 to Length(str) do begin
         if str[i]=#13 then
            Showmessage(str);

      end;
    end;
  end;

Выдает ошибку код..
Помогите...

Keeper89

Дата 6.8.2009, 19:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Что-то я не понял... Надо скачать определенно 4000 символов или как попадется, а в том что попадется найти конец абзаца?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Алкоголик

Дата 6.8.2009, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 26.1.2004

Репутация: нет
Всего: нет

Отсчитываем от начала 4000 символов и начинаем искать конец абзаца.

Добавлено через 1 минуту и 40 секунд
Вообщем впринципе кол-во символов не важно, нужно найти конец абзаца

Snowy

Дата 7.8.2009, 12:21 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Код

function GetNStr(FileName: string; kolsim: integer): string;
{* FileName - имя файла
   kolsim - количество символов *}
var
  fs: TFileStream;
  i:  Integer;
begin
  Result := '';
  try
    fs := TFileStream.Create(FileName, fmOpenRead and fmShareDenyWrite);
    if fs.Size < kolsim then kolsim := fs.Size;
    SetLength(Result, kolsim);
    fs.Read(Result[1], kolsim);
    i := LastDelimiter(#13, Result);
    if i > 0 then Result := Copy(Result, 1, i-1);
  finally
    fs.Free;
  end;
end;

Алкоголик

Дата 7.8.2009, 19:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 26.1.2004

Репутация: нет
Всего: нет

Snowy, спасибо.

Но меня зантересовал такой вопрос: если считывать файл паскалевским методом, то символ конец абзаца(#13) не считывается?

Snowy

Дата 10.8.2009, 14:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Для ReadLn #13-й символ является разделителем.
По нему он нарезает строки.
Сам символ не читает, т.к. для него он служебный.
Да и смысла нет - эти функции давно устарели и имеются в наличии только для совместимости со старым кодом.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »