source: trunk/UEngFile.pas

unit UEngFile;

{$mode delphi}

interface

uses
  Classes, SysUtils;

type

  { TEngFile }

  TEngFile = class
  private
    function DecodeString(Data: array of Byte): string;
  public
    FileName: string;
    Lines: TStringList;
    procedure LoadFromFile(FileName: string);
    constructor Create;
    destructor Destroy; override;
  end;

implementation

const
  Dictionary: string = ' etainosrlhcdupmtasio wb rnsdalmh ieorasnrtlc synstcloer dtgesionr ufmsw tep.icae oiadur laeiyodeia otruetoakhlr eiu,.oansrctlaileoiratpeaoip bm';

{ TEngFile }

function TEngFile.DecodeString(Data: array of Byte): string;
var
  I: Integer;
begin
  Result := '';
  for I := 0 to Length(Data) - 1 do begin
    if (Data[I] and $80) > 0 then begin
      Result := Result + Dictionary[(Data[I] and $7f) shr 3 + 1];
      Result := Result + Dictionary[(Data[I] and $7f) + 16 + 1];
    end else
    if Data[I] <> 0 then
      Result := Result + Chr(Data[I]);
  end;
end;

procedure TEngFile.LoadFromFile(FileName: string);
var
  F: TFileStream;
  Buffer: array of Byte;
  I: Integer;
  Addr: array of Word;
begin
  Lines.Clear;
  F := TFileStream.Create(FileName, fmOpenRead);
{  // Read string address array
  SetLength(Addr, 1);
  Addr[0] := F.ReadWord;
  while F.Position < Addr[0] do begin
    SetLength(Addr, Length(Addr) + 1);
    Addr[Length(Addr) - 1] := F.ReadWord;
  end;

  // Read and decode strings
  for I := 0 to Length(Addr) - 1 do begin
    F.Position := Addr[I];
    if I < Length(Addr) - 1 then SetLength(Buffer, Addr[I + 1] - Addr[I])
      else SetLength(Buffer, F.Size - Addr[I]);
    F.Read(Buffer[0], Length(Buffer));
    Lines.Add(DecodeString(Buffer));
  end;
  }
  SetLength(Buffer, F.Size);
  F.Read(Buffer[0], F.Size);
  Lines.Add(DecodeString(Buffer));
  F.Free;
end;

constructor TEngFile.Create;
begin
  Lines := TStringList.Create;
end;

destructor TEngFile.Destroy;
begin
  FreeAndNil(Lines);
  inherited Destroy;
end;

end.