OmniXML skušam prevesti v Lazarus

Za tiste, kateri uporabljajo FreePascal oz. Lazarus
Fortuna
Prispevkov: 1097
Pridružen: 26.06.2004 09:59:52

OmniXML skušam prevesti v Lazarus

OdgovorNapisal/-a Fortuna » 27.08.2011 20:21:10

FHashTable: TStringHash;

Testni program mi vrže ven pri FHashTable: TStringHash;


Našel sem Generic Associative Arrays ('Hashes') Library

http://www.torry.net/authorsmore.php?id=3771

Toda ta ki ga uporablja OmniXML ima nekaj lastnosti več.
Kje bi dobil pravi library za TStringHash?

lp

Miha-R
Prispevkov: 2153
Pridružen: 14.05.2001 21:29:53

Re: OmniXML skušam prevesti v Lazarus

OdgovorNapisal/-a Miha-R » 29.08.2011 09:30:34

Za katere lastnosti gre? Mogoče bi se jih dalo dodati v tisti class.
Vedno sem želel napisati prav tak odgovor.

Fortuna
Prispevkov: 1097
Pridružen: 26.06.2004 09:59:52

Re: OmniXML skušam prevesti v Lazarus

OdgovorNapisal/-a Fortuna » 29.08.2011 18:28:14

Miha-R napisal/-a: dodati v tisti class.

Koda: Izberi vse

unit OmniXML_Dictionary;

interface

{$I OmniXML.inc}

uses
  Classes, SysUtils, IniFiles,
  OmniXML_Types,Hashes;

const
  CInvalidDicId = High(LongWord);

type
  TDicId = LongWord;
  TDictionary = class
  private
    FHashTable: TStringHash;     


function TDictionary.Add(const Text: XmlString): TDicId;

V zgornjem unitu ki ima omenjeno funkcijo vrže ven to vrstico,
da

Koda: Izberi vse

  Value := FHashTable.ValueOf(UTF8Text); 
   FHashTable.Add(FTextList[ItemIndex], ItemIndex); 

Teh dveh lasnosti FHashTable nima.

Če je še kaj drugega narobe pa še nevem.

So se pa vsi uniti in projekt brez težav pretvorili v lazarus obliko.
Lp


Vrni se na

Kdo je na strani

Po forumu brska: 0 registriranih uporabnikov in 1 gost