텍스트 파일읽기 비교

텍스트 파일읽기 비교

 

 

목적 : 파일을 읽어들여 라인별로 StringList 에 저장하는 것

 

1. FileStream :  빠르다. 라인수도 줄일 수 있다. (사실 Readln 빼고는 거의 동일한 수준)

 

procedure Test_FileStream;

var

  FileStream: TFileStream;

  sList: TStringList;

begin

  sList:=TStringList.Create;

  FileStream:=TFileStream.Create(FILE_NAME, fmShareDenyNone);

  try

    sList.LoadFromStream(FileStream);

  finally

    FreeAndNil(FileStream);

    FreeAndNil(sList);

  end;

end;

 

2.  Readln : 두배 이상 느리다. 라인수도 늘어난다. 왜 쓰는지 의문이다...

 

procedure Test_Readln;

var

  Line: String;

  sList: TStringList;

  f: TextFile;

begin

  sList:=TStringList.Create;

  try

    AssignFile(f, FILE_NAME);

    Reset(f);

    while not EOF(f) do begin

      Readln(f, Line);

      sList.Add(Line)

    end;

  finally

    CloseFile(f);

    FreeAndNil(sList);

  end;

end;

 

3.  StringList.LoadFromFile : 가장 빠른편. (어차피 내부적으로 Stream 을 이용) 라인수가 가장 작다.

  
procedure Test_LoadFromFile;

var

  sList: TStringList;

begin

  sList:=TStringList.Create;

  try

    sList.LoadFromFile(FILE_NAME);

  finally

    FreeAndNil(sList);

  end;

end;

 

4. API : 속도는 별반 차이 없음. CreateFile, ReadFile 이용한다는 점이 특이사항.

 

procedure Test_API;

var

  sList: TStringList;

  hFile: THandle;

  FileSize, ReadSize: Cardinal;

  Buffer: String;

begin

  sList:=TStringList.Create;

  try

    hFile:=CreateFile(PChar(FILE_NAME), GENERIC_READ,

                      FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,

                      nil, OPEN_EXISTING, 0, 0);

    FileSize:=GetFileSize(hFile, nil);

    SetLength(Buffer, FileSize);

    if ReadFile(hFile, Buffer[1], FileSize, ReadSize, nil) then sList.Text:=Buffer;

 finally

    CloseHandle(hfile);

    FreeAndNil(sList);

  end;

end;

 

5. BlockRead : 역시 속도는 그다지 차이 없음. BlockRead 함수를 사용한다는 게 특이점.

procedure Test_BlockRead;

var

  sList: TStringList;

  f: File;

  FileSize, ReadSize: Cardinal;

  SearchRec: TSearchRec;

  Buffer: String;

begin

  sList:=TStringList.Create;

  try

    FileSize:=0;

    if FindFirst(FILE_NAME, faAnyFile, SearchRec)=0 then begin

      FileSize:=SearchRec.Size;

      FindClose(SearchRec);

    end;

 

    AssignFile(f, FILE_NAME);

    SetLength(Buffer, FileSize);

    Reset(f, 1);

    BlockRead(f, PChar(Buffer)^, FileSize, ReadSize);

 

    sList.Text:=Buffer;

  finally

    CloseFile(f);

    FreeAndNil(sList);

  end;

end;