Optimierung Code / Alternative zu Stringlist? (Delphi 5)

[jobo]

Ich denke, das ist keine Frage, ob eine DB reicht. Sie kann potentiell das, was Du brauchst.
Du "kippst" alle Daten rein und kannst anschließend nach Lust und Laune sortieren, gruppieren, zählen.
Das kannst Du auch gleich mit dem Vorschlag von Bug kombinieren, die Wörter zu nummerieren.

[jobo]

Je nach Verwendung brauchst Du ein oder 2 Tabellen (Mir ist nicht genau klar, was Du brauchst)
Denkbar wäre, auch noch die Textherkunft des Wortes zu verwalten.

Code:

create table NurDieWorte (
NDW_ID number(9) [AutoSequence],      -- Primärschlüssel
NDW_Wort varchar(50)                  -- unique constraint
)

create table WortVorkommen(
WVk_Id number(9) [AutoSequence],      -- Order of Appearance, falls nötig
NDW_ID number(9)                      -- Verweis auf Wort
)
-- oder statt der beiden Tabellen oben nur diese
create table WorteUndAnzahl (
NDW_ID number(9) [AutoSequence],      -- Primärschlüssel
NDW_Wort varchar(50),                 -- unique
NDW_WortAnzahl number(9)              -- Direkte Häufigkeit, wenn Reihenfolge unwichtig 
)

Die Tabellen kannst Du dann entsprechend auswerten.

[frieder2008]

Hm, ich habe eben folgendes gefunden:

http://www.delphipraxis.net/45571-hash-tabellen.html

Das wäre wohl genau das, was ihr mit Hashmaps meintet (nehme ich an). Jetzt habe ich nur noch Probleme mit der Anwendung von Pointern..

Delphi-Quellcode:

var
  x: TStringDictionary;
  meinpointer: ^Integer;
begin
  x:= TStringDictionary.create;
  new(meinpointer);
  meinpointer^:= 3;

  x.Add('Wort1', meinpointer);

  meinpointer^:= 5;

  x.Add('Wort2', meinpointer);

  x.Find ('Wort1', meinpointer); --- FEHLER!
  showmessage(meinpointer);  --- potFEHLER

  x.Clear;
  x.Free;
  dispose(meinpointer);
end;

Bei FEHLER kommt die Meldung, dass die "Typen der tatsächlichen und formalen Var-Parameter" nicht übereinstimmten. Was mache ich falsch?

Und bei potFEHLER weiß ich, dass ich keinen pointer direkt als String ausgeben kann; reicht da ein inttostr(meinpointer) oder wie bekomme ich das zurück?

danke und gruß,
frieder

PS: Ist eine neue Frage, kann daher auch einen neuen Thread aufmachen.. - Danke jedenfalls schon mal für Eure Infos!!

[frieder2008]

Liebe Leute,

ich habe es jetzt mit der TStringDictionary von alzaimar hinbekommen: der absolute Hammer, das Teil! Geht ab, wie die Kanone! Hat sich doch wieder gelohnt, sich mit neuem zu beschäftigen

Danke Euch allen und beste Grüße,
frieder

[mjustin]

Tja, leider zu spät - mein Vorschlag wäre gewesen, die TStringlist mit der richtigen Größe zu erstellen, damit das Anlegen neuer Einträge nicht zu viele Speicherallokationen benötigt - also mit Capacity := <gigantische Zahl>

http://docwiki.embarcadero.com/VCL/d...rings.Capacity

http://www.festra.com/wwwboard/messages/13039.html

Zitat:

the trick is in setting the stringlist capacity large enough, so that the program doesn't have to re-adjust the capacity many thousands of times when many items are added