Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Volltextsuche

    Delphi
    by himitsu, 3. Okt 2011
  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.
  
  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.
• Forum: Programmieren allgemein

  AW: Volltextsuche

    Delphi
    by himitsu, 3. Okt 2011
  PS:
  
  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.
• Forum: Programmieren allgemein

  AW: Volltextsuche

    Delphi
    by himitsu, 3. Okt 2011
  Er wollte ja wissen wie man es machen kann. :stupid: (uns fehlt das Negieren :cry:)
  - 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)
  
  
  Kann er sich ja interessehalber dennoch...
• Forum: Programmieren allgemein

  AW: Volltextsuche

    Delphi
    by himitsu, 3. Okt 2011
  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);
• Forum: Programmieren allgemein

  AW: Volltextsuche

    Delphi
    by himitsu, 3. Okt 2011
  Jain, eigentlich nicht.
  
  Find findet nur ganze Strings. :angle2:
  
  Aber wenn es nichts findet, dann gibt es dennoch die Stelle zurück, wo das Wort zu finden wäre, wäre es vorhanden gewesen.
  Also die perfekte Stelle, um dort mit der Suche zu beginnen. (oder um ein Insert zu machen, so wie es praktisch vorgesehn ist)
  
  Aber notfalls könnte man das ja nochmal ausprobieren, um ganz sicher zu...
• Forum: Programmieren allgemein

  AW: Volltextsuche

    Delphi
    by himitsu, 3. Okt 2011
  Wobei es notfalls auch ohne Datenbank ginge.
  Also einfach nur ein TClientDataSet. :angle: (da gibt es Insert, Post, Locate und einen Filter)
  
  Aber zum Lernen hat die manuelle Pascal-Variante doch auch ihre Vorteile.
• Forum: Programmieren allgemein

  AW: Volltextsuche

    Delphi
    by himitsu, 3. Okt 2011
  Um den Anfang auch noch wegzuoptimieren...
  procedure TWoerterbuch.Filter(const Suchwort: string; FilterResult: TStrings);
  var
  i: Integer;
  begin
  Assert(Assigned(FilterResult));
  FilterResult.BeginUpdate;
  try
  FilterResult.Clear;
  if Suchwort <> '' then begin
• Forum: Programmieren allgemein

  AW: Volltextsuche

    Delphi
    by himitsu, 3. Okt 2011
  Und in der (verlinkten) OH. :angle2:
• Forum: Programmieren allgemein

  AW: Volltextsuche

    Delphi
    by himitsu, 3. Okt 2011
  Aber nur, wenn TStringList.CaseSensitive auf true gesetzt wurde.
  
  Du könntest über TStringList.Find den Anfang innerhalb der sortierten Liste suchen, also das was als Erstes dem gesuchten Wortanfang "ähnlich" ist.
• Forum: Programmieren allgemein

  AW: Volltextsuche

    Delphi
    by himitsu, 3. Okt 2011
  AnsiStrings?
  
  Wenn du AnsiStartsText meinst, dann steht alles Nötige in der OH.
  http://docwiki.embarcadero.com/VCL/de/StrUtils.AnsiStartsText (ich hoffe AnsiStartsText gab es schon im Delphi 7)
  
  AnsiStartsStr wird genauso verwendet, wie Pos, nur daß es ein, für deine Anforderungen, geeigneteres Funktionsergebnis liefert.
  
  if Pos('go', S) > 0 then
  
  // entspricht genau (nur daß...