Volltextsuche

[himitsu]

Delphi-Quellcode:

uses DB, DBClient, MidasLib;  // unit MidasLib, damit man diese blöde Midas.dll nicht mitgeben muß

type
  TWoerterbuch = class(TClientDataSet)
    constructor Create;
    procedure Add(const Word: string);
    function Filter(const SearchWord: string): Boolean;
    procedure Delete(const Word: string);
    procedure Clear;
    procedure GetList(Result: TStrings);

    //property FileName: string;  // ist alles in TClientDataSet deklariert
    //procedure LoadFromFile(const FileName: string = '');
    //procedure SaveToFile(const FileName: string = ''; Format: TDataPacketFormat = dfBinary);
    //procedure LoadFromStream(Stream: TStream);
    //procedure SaveToStream(Stream: TStream; Format: TDataPacketFormat = dfBinary);
  end;

procedure TWoerterbuch.Add(const Word: string);
begin
  Insert;
  try
    Self['Word'] := Word;
    Post;
  except
    Cancel;
    raise;
  end;
end;

procedure TWoerterbuch.Clear;
begin
  EmptyDataSet;
end;

constructor TWoerterbuch.Create;
begin
  CreateDataSet;
  FieldDefs.Add('Word', {$IF SizeOf(Char) = 2}ftWideString{$ELSE}ftString{$IFEND}, 30);
  AddIndex('WordIdx', 'Word', [ixUnique, ixCaseInsensitive]);
  IndexName := 'WordIdx';
end;

procedure TWoerterbuch.Delete(const Word: string);
begin
  if Locate('Word', Word, [loCaseInsensitive]) then
    inherited Delete;
end;

function TWoerterbuch.Filter(const SearchWord: string): Boolean;
begin
  if SearchWord <> '' then begin
    Filtered := False;
    FilterOptions := [foCaseInsensitive, foNoPartialCompare];
    Filter := '[Word] LIKE ''' + SearchWord + '%''';
    Filtered := True;
  end else
    Filtered := False;
  Result := RecordCount > 0;
end;

procedure TWoerterbuch.GetList(Result: TStrings);
begin
  Result.BeginUpdate;
  try
    First;
    while not Eof do begin
      Result.Add(Self['Word']);
      Next;
    end;
  finally
    Result.EndUpdate;
  end;
end;

(hoffentlich hab ich das jetzt richtig zusammenbekommen)

Oder direkt an eine datenbank ran, aber dann ohne CreateDataSet (im Constructor) und ohne SaveToFile und LoadFromFile.

Statt GetList kann man es auch direkt, über eine TDataSource, an einen DBGrid hängen.
Oder man nimmt die TDataSource als Vorfahre und das TClientDataSet in die Klasse rein.

[DeddyH]

Zu #27: Jetzt noch eine Client-/Server-Datenbank mit MySQL auf einem Webserver mit Abfragen über HTTPS, und wir haben auch den letzten Anfänger vergrault. Geht es hier eigentlich um Hilfe oder darum, wie man sich selbst am Besten darstellt? *Koppschüttel*

[patti]

Ehrlich gesagt finde ich den "Informationsaustausch" voll in Ordnung. Es geht darum, mögliche Lösungswege aufzuzeigen - darum geht es ja schließlich in einem Forum. Der TE hat ziemlich schnell eine funktionierende und relativ leicht verständliche Lösung bekommen, also kann der schonmal glücklich sein. Der Rest braucht ihn ja nicht zu interessieren, aber für andere User ist das hier evtl. durchaus interessant.

[DeddyH]

In dem Fall fände ich persönlich aber angebrachter, dafür einen neuen Thread zu eröffnen. Wenn ich eine Frage habe, dann lese ich mir auch den kompletten Thread durch, und wenn dann da Antworten kommen, die ich beim besten Willen nicht mehr nachvollziehen kann, erhöht das meinen Frustfaktor enorm. Aber es kann natürlich auch sein, dass es nur mir so geht.

[himitsu]

PS:

Zitat:

Brauch ich dafür eine datenbank?

Die Daternbankseite wurde hier vollkommen vernachlässig.

Der Code selber ist doch noch recht übersichtlich?
Und die zwei/drei heiklen Stellen erklärt die OH auch recht gut. (falls man den Code ganz verstehen will)

Für die große Datenbankgeschichte gibt es dann noch die passendenden Tutorials.

[DeddyH]

Braucht er eine? Nein, wie von uns allen bewiesen. Also, was willst Du da vernachlässigen? Ich werde mal darum bitten, den Thread an geeigneter Stelle abzuspalten, da kann es dann weitergehen. Einverstanden?

[himitsu]

Er hat danach gefagt?
Und es hat keiner gesagt, daß er diese nicht doch gebrauchen könnte (vorallem Er nicht),
nur daß es anders eventuell auch möglich wäre.

Zitat:

bei überschaubarer Datenmenge ist die allerdings nicht nötig

Wir kennen ja sein Wörterbuch nicht.


Sonst beschweren sich doch auch alle, wenn jemand mal nach etwas "geziehlt" fragt
und dann alle nur über die Alternativen reden, aber die ursprüngliche Frage nicht beantworten.

[mkinzler]

Zitat von DeddyH:

Braucht er eine? Nein, wie von uns allen bewiesen. Also, was willst Du da vernachlässigen? Ich werde mal darum bitten, den Thread an geeigneter Stelle abzuspalten, da kann es dann weitergehen. Einverstanden?

Gant wichtig fände ich eine obfuskierte Brainfuck Variante

[BUG]

Zitat von himitsu:

PS:

Zitat:

Brauch ich dafür eine datenbank?

Die Daternbankseite wurde hier vollkommen vernachlässig.

Ich glaube die Datenbank kommt bei Anfängern oft ins Spiel, weil manche Informatiklehrer alles, angefangen bei einer zeilenweisen Speichung in einer Textdatei, als Datenbank bezeichnen.

Wen man hier tatsächlich mit einer (SQL-)Datenbank arbeiten möchte, könnte LIKE eventuell ein guter Ansatzpunkt sein.

Die Datenbanken-Entwickler kochen auch nur mit Wasser, so dass man am Ende mit einer clever konstruierten Datenstruktur für solche spezielle Probleme vielleicht sogar schneller ist.

[himitsu]

Zitat von DeddyH:

Geht es hier eigentlich um Hilfe oder darum, wie man sich selbst am Besten darstellt? *Koppschüttel*

Zitat:

Brauch ich dafür eine datenbank?

Er wollte ja wissen wie man es machen kann. (uns fehlt das Negieren )
- ja, es geht über eine Datenbank
- nein, es geht auch ohne (siehe die letzen Posts, welche eine ganz ganz kleine Auswahl aller Möglichkeiten darstellen)
- und für den Anfang wäre auch eine einfache TStringList ausreichend (die muß man nichtmal irgendwo wegkapseln)

Zitat:

Der Rest braucht ihn ja nicht zu interessieren

Kann er sich ja interessehalber dennoch ansehn.