Developing.ru

[quote]это дольше да и не нужно в принцыпе т.к данные будут обрабатываться и уходить в нибытие а через базу еще их тягать это лишние операции. Я буфер уже отпарсил )))[/quote]
Я тебе посоветовал делать так, поскольку имею опыт работы разработки такого проекта. Проект ныне мертв из-за путаницы с кучей файлов и перенавороченности. А если бы я подумал и записи вставлял в базу + сделал веб-интерфейс с отчетами, то проект был бы жив.

это дольше да и не нужно в принцыпе т.к данные будут обрабатываться и уходить в нибытие а через базу еще их тягать это лишние операции. Я буфер уже отпарсил )))

Ну так как приходят - сразу засовывай

данные динамические и приходять в файловом виде. Были бы статические давно бы засунул.

А зачем тебе куча текстовых файлов с данными? Засунь все данные в БД, а потом делай Sql запросы.

Работать с сырым буфером для меня проше чем считать файл ))). Просто раньше никогда не задумывался над проблемой быстрого чтения из файла а довольно долгое время читал тупо из Memo1.

[quote="&quot"]Не совсем рулит, помедленнее немного[/quote]
Согласен, считал данные ты быстрее, но их ведь после этого нужно будет построчно разобрать и наверно ещё кучу разных манипуляций произвести... а работа с сырым буфером это имхо, не очень легка задачка для человека который спрашивает как быстрее считать текстовый файл

var
Buf : PByteArray;
F    : File;

Procedure ReadFile;
begin
AssignFile(F, 'D:\DDD.TXT');
Reset(F, 1); // Длина записи - 1 байт.
GetMem(Buf, 1048576); // выделить 1М для буффера
Blockread(F, Buf[0], 1048576);
CloseFile(F);
...
...
FreeMem(Buf);
end;

procedure TStrings.LoadFromFile(const FileName: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

procedure TStrings.LoadFromStream(Stream: TStream);
var
  Size: Integer;
  S: string;
begin
  BeginUpdate;
  try
    Size := Stream.Size - Stream.Position;
    SetString(S, nil, Size);
    Stream.Read(Pointer(S)^, Size);
    SetTextStr(S);
  finally
    EndUpdate;
  end;
end;

[quote="&quot"]а как быстрее в массив считать?[/quote]
BlockRead(File,Buffer,Count,rCount) - считывает блок данных, размером Count записей в область данных Buffer из файла File. Фактически прочитанное число записей возвращается в rCount.
[code]
var
Buf : PByteArray;
F : File;

Procedure ReadFile;
begin
AssignFile(F, 'D:\DDD.TXT');
Reset(F, 1); // Длина записи - 1 байт.
GetMem(Buf, 1048576); // выделить 1М для буффера
Blockread(F, Buf[0], 1048576);
CloseFile(F);
...
...
FreeMem(Buf);
end;
[/code]
[quote="&quot"]TStringList рулит[/quote]
Не совсем рулит, помедленнее немного
[code]
procedure TStrings.LoadFromFile(const FileName: string);
var
Stream: TStream;
begin
Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
LoadFromStream(Stream);
finally
Stream.Free;
end;
end;

procedure TStrings.LoadFromStream(Stream: TStream);
var
Size: Integer;
S: string;
begin
BeginUpdate;
try
Size := Stream.Size - Stream.Position;
SetString(S, nil, Size);
Stream.Read(Pointer(S)^, Size);
SetTextStr(S);
finally
EndUpdate;
end;
end;
[/code]

TStringList рулит
TStringList.LoadFromFile... - загрузка файла
TStringList[i] - доступ к строкам файла

а как быстрее в массив считать?