Vergleich von Edit und Listbox

[KodeZwerg]

Vieleicht Suchbegriffe und Datenbestand per "LowerCase() oder UpperCase()" umwandeln damit Gross-/Kleinschreibung im Suchfeld egal ist.

[DieDolly]

Vielleicht sogar noch eine Fuzzy Search?
http://www.gausi.de/approxstrutils-en.html

[KodeZwerg]

Ich meinte es mit dem TE lediglich gut um halt Gross-/Kleinschreibung zu egalisieren. Eure Beispiele sind ja explizit.

[DieDolly]

Zitat:

Ich meinte es mit dem TE lediglich gut um halt Gross-/Kleinschreibung zu egalisieren

Habe nix dagegen gesagt keine Sorge
Ist es nicht sogar Standard bei solchen Suchenfunktionen alles zu egalisieren?

[KodeZwerg]

In diesem Beispiel hier würde ich es auf jeden Fall so machen. Ein Suchfeld für ein Text-Editor da würde ich Optionen an das Suchfeld pappen. Je nach App-Typ und mit was verglichen werden soll. Ich als Anwender würde ungern gezwungen sein alles exakt so zu Schreiben wie es in der ListBox vorkommt weswegen ich die Egalisierung Vorschlug.

[KodeZwerg]

Falls es für den TE unverständlich ist wie ich es meine, ich war so frei das vorhandene zu editieren:

Zitat von p80286:

Zitat von DieDolly:

Delphi-Quellcode:

var
 Suchwort: String;
 Gefunden: Boolean;
begin
 Gefunden := False;
 Suchwort := LowerCase(Edit1.Text); // <- hier intern kleine Buchstaben erzeugen

 for i := 0 to ListBox1.Items.Count -1 do
  begin
   Gefunden := Pos(Suchwort, LowerCase(ListBox1.Items[i])) > 1); // <- hier intern nach kleinen Buchstaben suchen

   if Gefunden then
    begin
     //Label1.Caption := 'Schlagwort "' + Suchwort  + '" befindet sich in der Zeile (i + 1) mit dem Namen "' + ListBox1.Items[i] + '"';

     //Break;
     Memo1.Lines.Add('Schlagwort "' + Suchwort + '" befindet sich in der Zeile ' + IntToStr(i + 1) + ' mit dem Namen "' + ListBox1.Items[i] + '"');

    end;
  end;
end;

Erklärung: Nun wird intern der Suchbegriff in Kleinbuchstaben verwandelt, bei der ListBox-Abfrage genauso vorgehen, nun ist Grossschreibung egal.

[DieDolly]

Ich weiß nicht ob LowerCase intern zu AnsiLowerCase weiterleitet aber irgendwo habe ich mal gelesen, dass LowerCase veraltet sei.

[KodeZwerg]

Zitat:

Delphi-Version: 5

Es sollte genau so wie ich schrieb funktionieren.

[DieDolly]

Zitat von Rawsche:

Edit: Ich verwende glaube ich Lazarus IDE v1.8.4 . Weiß leider nicht, was das genau bedeutet und ob es euch hilft...

Er/Sie verwendet Lazurus.

[Rawsche]

Ich hab Uppercase schon eingebaut gehabt. Das hat gut geklappt...