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.