Strings vergleichen

[youuu]

Hi,

ich vergleiche momentan Strings im VST so

Delphi-Quellcode:

Procedure TFormMain.SucheCallback(Sender: TBaseVirtualTree; Node: PVirtualNode; data: Pointer; var Abort: Boolean);
Begin
  Customer:= TCustomerDaten(VstCustomer.GetNodeData(Node)^);
  VstCustomer.IsVisible[Node]:= (EditSearchFast.Text = '') or AnsiStartsText(EditSearchFast.Text, Customer.company_name)>0);
End;

Funktioniert auch super, nur möchte ich das wenn

suchende String: Test
EditSuchfeld: st

Dann trotzdem der Eintrag gefunden wird und nicht nur wenn ich te eingebe.

[Matze]

Hallo,

ich denke anstelle von AnsiStartsText kannst duPos verwenden. Das Prüft, ob ein Teilstring in einem String enthalten ist.

Grüße, Matze

[DeddyH]

Oder AnsiContainsText :zwinker:

[youuu]

AnsiContainsText dann findet er gar nicht's mehr :/
Und bei pos ist es so, das es auf Groß und Kleinschreibung achtet oder irre ich mich?

[DeddyH]

Da scheinst Du etwas falsch zu machen. Parameter verwechselt?

[youuu]

Keine Treffer bei

Delphi-Quellcode:

Procedure TFormMain.SucheCallback(Sender: TBaseVirtualTree; Node: PVirtualNode; data: Pointer; var Abort: Boolean);
Begin
  Customer:= TCustomerDaten(VstCustomer.GetNodeData(Node)^);
  VstCustomer.IsVisible[Node]:= (EditSearchFast.Text = '') or AnsiContainsText(EditSearchFast.Text, Customer.company_name);
End;

Mit

Delphi-Quellcode:

Procedure TFormMain.SucheCallback(Sender: TBaseVirtualTree; Node: PVirtualNode; data: Pointer; var Abort: Boolean);
Begin
  Customer:= TCustomerDaten(VstCustomer.GetNodeData(Node)^);
  VstCustomer.IsVisible[Node]:= (EditSearchFast.Text = '') or AnsiStartsText(EditSearchFast.Text, Customer.company_name)>0);
End;

findet er es ja wenn ich den Anfangsbuchstaben eingebe, daher sollten Parameter stimmen.


Und so wird es aufgerufen

Delphi-Quellcode:

procedure TFormMain.EditSearchFastChange(Sender: TObject);
begin
  VstCustomer.IterateSubtree(nil, SucheCallback, nil)
end;

[Matze]

Beide Funktionen müssen gehen. Und Pos achtet nicht auf Groß- und Kleinschreibung. Und selbst wenn das so wäre, könnte man sich mittels LowerString/UpperString (oder wie die Funktionen in Delphi heißen, vllt war's auch StrToUpper/StrToLower, wobei das glaub PHP war *g*) aushelfen.

[Muetze1]

Zitat:

Zitat von Matze

Und Pos achtet nicht auf Groß- und Kleinschreibung.

Und wie er dies macht. Das er das nicht macht ist ein Gerücht welches die Delphi Hilfe über mehrere Ausgaben verbreitete...

[youuu]

Zitat:

Zitat von Muetze1

Zitat:

Zitat von Matze

Und Pos achtet nicht auf Groß- und Kleinschreibung.

Und wie er dies macht. Das er das nicht macht ist ein Gerücht welches die Delphi Hilfe über mehrere Ausgaben verbreitete...

War das ernst oder höre ich Ironie? :)

[DeddyH]

Das war Ernst, nach meiner Erfahrung ist Pos() case-sensitive.

[youuu]

Habe es nun so gelöst.

Delphi-Quellcode:

(pos(AnsiUpperCase(EditSearchFast.Text), AnsiUpperCase(Customer.company_name))>0)

[DeddyH]

Etwas Anderes tut AnsiContainsText aber auch nicht (zumindest im Ergebnis). Aber wenn es nun geht, ist ja alles gut :zwinker:

[youuu]

Zitat:

Zitat von DeddyH

Etwas Anderes tut AnsiContainsText aber auch nicht (zumindest im Ergebnis). Aber wenn es nun geht, ist ja alles gut :zwinker:

Hatte mich auch gewundert das es nicht ging, da es ja einen Boolean Wert zurück gibt und normalerweise hätte funktionieren sollen.

[Matze]

Zitat:

Zitat von Muetze1

Und wie er dies macht. Das er das nicht macht ist ein Gerücht welches die Delphi Hilfe über mehrere Ausgaben verbreitete...

Tatsache. :oops:
Aber mit dem Workaround würde es gehen, auch wenn das vom Code her vielleicht nicht ganz so schön ist.

[semo]

Ich nutze auch vor der Verwendung von Pos() ein UpperCase() bzw. LowerCase:

Delphi-Quellcode:

Column := TVirtualStringTree(Sender).Header.Columns.GetFirstVisibleColumn();
while (Column <> InvalidColumn) do
begin
  NodeText := UpperCase(TVirtualStringTree(Sender).Text[Node, Column]);
  bFoundText := (Pos(SearchString, NodeText) > 0);

  if bFoundText then
    Break;
  Column := TVirtualStringTree(Sender).Header.Columns.GetNextVisibleColumn(column);
end;
Sender.IsVisible[Node] := bFoundText;

Und sollte man nicht auf die Verwendung der ANSI Funktionen hinsichtlich Delphi 2009 und Unicode Strings verzichten?

[DeddyH]

Ich hab zwar kein D2009, aber dort heißen die Funktionen m.W.n. zwar noch so, aber sind unicodefähig. Falls das nicht stimmen sollte, bitte ich einen Kundigen um Berichtigung.

[himitsu]

AnsiUpperCase ist in Delphi2009 nicht Ansi, sondern Unicode.

also kein Problen, aber dafür nur etwas verwirrend :angel2:

man kann auch WideUpperCase verwenden, aber dieses arbeitet mit WideString, wärend AnsiUpperCase in D2009 aus UnicodeString basiert.

[semo]

Kleiner Nachtrag:
AnsiStrings.AnsiUpperCase --> AnsiUpperCase wandelt alle Zeichen im gegebenen AnsiString in Großbuchstaben um. Im Gegensatz zu UpperCase wird bei der Umwandlung die aktuelle Gebietseinstellung des Benutzers verwendet.

SysUtils.AnsiUpperCase --> AnsiUpperCase gibt eine Kopie des in S angegebenen Strings in einem groß geschriebenen String zurück. Bei der Konvertierung wird das aktuelle Gebietsschema berücksichtigt. Diese Funktion unterstützt Multibyte-Zeichensätze (MBCS).

[DeddyH]

Da ist aber wieder "Ansi" im Namen :lol: (Spaß muss sein *g*)

[himitsu]

http://www.delphipraxis.net/internal...t.php?t=149533
http://www.delphipraxis.net/internal...050060#1050060