www.pudn.com > SiegeOfAvalon.rar > ItemDatabase.pas

unit ItemDatabase; 
{******************************************************************************} 
{                                                                              } 
{               Siege Of Avalon : Open Source Edition                          } 
{               -------------------------------------                          } 
{                                                                              } 
{ Portions created by Digital Tome L.P. Texas USA are                          } 
{ Copyright ©1999-2000 Digital Tome L.P. Texas USA                             } 
{ All Rights Reserved.                                                         } 
{                                                                              } 
{ Portions created by Team SOAOS are                                           } 
{ Copyright (C) 2003 - Team SOAOS.                                             } 
{                                                                              } 
{                                                                              } 
{ Contributor(s)                                                               } 
{ --------------                                                               } 
{ Dominique Louis                             } 
{                                                                              } 
{                                                                              } 
{                                                                              } 
{ You may retrieve the latest version of this file at the SOAOS project page : } 
{   http://www.sourceforge.com/projects/soaos                                  } 
{                                                                              } 
{ The contents of this file maybe used with permission, subject to             } 
{ the GNU Lesser General Public License Version 2.1 (the "License"); you may   } 
{ not use this file except in compliance with the License. You may             } 
{ obtain a copy of the License at                                              } 
{ http://www.opensource.org/licenses/lgpl-license.php                          } 
{                                                                              } 
{ Software distributed under the License is distributed on an                  } 
{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or               } 
{ implied. See the License for the specific language governing                 } 
{ rights and limitations under the License.                                    } 
{                                                                              } 
{ Description                                                                  } 
{ -----------                                                                  } 
{                                                                              } 
{                                                                              } 
{                                                                              } 
{                                                                              } 
{                                                                              } 
{                                                                              } 
{                                                                              } 
{ Requires                                                                     } 
{ --------                                                                     } 
{   DirectX Runtime libraris on Win32                                          } 
{   They are available from...                                                 } 
{   http://www.microsoft.com.                                                  } 
{                                                                              } 
{ Programming Notes                                                            } 
{ -----------------                                                            } 
{                                                                              } 
{                                                                              } 
{                                                                              } 
{                                                                              } 
{ Revision History                                                             } 
{ ----------------                                                             } 
{   July    13 2003 - DL : Initial Upload to CVS                               } 
{                                                                              } 
{******************************************************************************} 
 
interface 
 
uses 
  Windows, 
  SysUtils, 
  classes, 
  forms, 
  Resource, 
  LogFile; 
 
type 
  TStringDatabase = class( TObject ) 
  private 
    FDataBase : TStringList; 
    FItemList : TStringList; 
    FFileName : string; 
    FItemName : string; 
    DataString : string; 
    function GetFields( FieldPos : integer ) : string; 
  public 
    function strTokenAt( const S : string; At : Integer ) : string; 
    constructor Create( const Filename : string ); 
    destructor Destroy; override; 
    function FindRecord( const Key : string ) : boolean; 
    property ItemName : string read FItemName; 
    property FileName : string read FFileName; 
    property Fields[ FieldPos : integer ] : string read GetFields; 
  end; 
 
implementation 
 
{ TStringDatabase } 
 
constructor TStringDatabase.Create( const Filename : string ); 
var 
  iLoop : integer; 
begin 
  FFileName := Filename; 
  FDataBase := TStringList.Create; 
  FItemList := TStringList.Create; 
  if FileExists( FFileName ) then 
  begin 
    FDataBase.LoadFromFile( FFileName ); 
    for iLoop := 0 to FDatabase.Count - 1 do 
    begin 
      FItemList.Add( Parse( FDatabase.Strings[ iLoop ], 0, '|' ) {+ '=' + IntToStr(iLoop)} ); 
    end; 
  end; 
 
end; 
 
destructor TStringDatabase.Destroy; 
begin 
  if Assigned( FDatabase ) then 
  begin 
    FDataBase.free; 
    FDataBase := nil; 
  end; 
 
  if Assigned( FItemList ) then 
  begin 
    FItemList.free; 
    FItemList := nil; 
  end; 
  inherited Destroy; 
end; 
 
function TStringDatabase.FindRecord( const Key : string ) : boolean; 
var 
  i : integer; 
begin 
  i := FItemList.IndexOf( Key ); 
  if i >= 0 then 
  begin 
    DataString := FDatabase.Strings[ i ]; 
    result := true; 
  end 
  else 
  begin 
    DataString := ''; 
    result := false; 
  end; 
end; 
 
function TStringDatabase.GetFields( FieldPos : integer ) : string; 
const 
  FailName : string = 'TStringDatabase.GetFields'; 
begin 
{$IFDEF DODEBUG} 
  if ( CurrDbgLvl >= DbgLvlSevere ) then 
    Log.LogEntry( FailName ); 
{$ENDIF} 
  try 
//  Result := StrTokenAt(DataString, FieldPos); 
    Result := Parse( DataString, FieldPos, '|' ); 
  except 
    on E : Exception do 
      Log.log( FailName + E.Message ); 
  end; 
 
end; 
 
function TStringDatabase.strTokenAt( const S : string; At : Integer ) : string; 
var 
  j, i : Integer; 
const 
  FailName : string = 'TStringDatabase.strTokenAt'; 
begin 
{$IFDEF DODEBUG} 
  if ( CurrDbgLvl >= DbgLvlSevere ) then 
    Log.LogEntry( FailName ); 
{$ENDIF} 
  try 
    Result := ''; 
    j := 1; 
    i := 0; 
    while ( i <= At ) and ( j <= Length( S ) ) do 
    begin 
      if S[ j ] = '|' then 
        Inc( i ) 
      else if i = At then 
        Result := Result + S[ j ]; 
      Inc( j ); 
    end; 
  except 
    on E : Exception do 
      Log.log( FailName + E.Message ); 
  end; 
 
end; 
 
end.