Цитата:
|
Сообщение от 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