[friz]

Как узнать количество символов в файле?
Я дел так файл пихаешь в memo и потом

Код:

length(memo.lines.text)

Но при работе с файлов в 300кб, прога довольно долго думает (секунд 3-6)
Что в общем то меня и не устраивает, может есть быстрее способ? Ну или хотя бы как убрать эффект подвисания? Application.processmessages ничего не дал

[AIMor]

Попробуй так:

Код:

Var
   F : File Of Byte;
   L : Integer;

begin
   AssignFile(F,'d:\text.txt');
   Reset(F);
   L:=SizeOf(F);
   CloseFile(F);
end;

В итоге в переменной L у тебя будет размер файла в байтах. Если помним, то один символ занимает один байт. Следовательно, получаешь количество символов.

[AIMor]

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

Я дел так файл пихаешь в memo

также можно попробовать пихать файл не в memo, а в переменную типа TStrings

Код:

Var
   S : TStrings;
   L : Integer;
   I : Integer;

begin
   S:=TStringList.Create;
   S.LoadFromFile('d:\text.txt');

   L:=0;
   For I:=0 To (S.Count-1) Do L:=L+Length(S.Strings[i]);

   S.Free;
end;

Это должно быть быстрее чем работа с memo

[friz]

Если делать через AssignFile... то у меня такой вопрос:
Как мой исходный файл f разбить на файлы длиной скажем в 2500 символом?
При работе с memo это легко делается функцией copy. Есть ли что-нить похожее у TStrings?

[lmikle]

TStrings и TMemo - одна фигня, т.к. TMemo.Lines - это и есть YTStrings.
Так что тебе надо? Посомтреть размер файла или именно разбить его на части? В зависимости от этого будет разный код.

[friz]

Да. Мне надо узнать количество символов(байт) в текстовом файле и разбить его на файлы определенного размера (например по 2000 символов)
Как это сделать в принципе знаю, но как это сделать что бы прога максимально быстро обрабатывала файлы?

[Страдалецъ]

У вас 2 варианта чтения.
Можно читать сразу блоками по 2000 байт, это будет быстро, но туда попадут и символы конца строки, а это по 2 байта на строку.
Можно читать строками, но это несколько медленее, но зато там не надо обрабатывать эти символы.

[friz]

Можно пример чтения по блокам?

[friz]

to AIMor, проверил метод с TStrings, реально работает намного быстрее, так что остановился на этот способе.
что касается SizeOf, то он у меня работает коряво и выводит фиг знает что :/
Спасибо всем за ответы! тему можно закрывать