Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#7

Re: procedure Fehler (procedure zum Filtern eines Stringgrid

  Alt 25. Sep 2005, 18:11
Ahhh... jetzt ist alles Klar

Post berücksichtigt (entegegen manchen OnlineHilfen) die Gross/Kleinschreibung! Wenn Du unabhängig von dieser sein möchtest dann ändere diese Zeile:
if (Pos(aSearch, aSource.Rows[ndx].Text) > 0) then so ab:
if (Pos(AnsiLowerCase(aSearch), AnsiLowerCase(aSource.Rows[ndx].Text)) > 0) then bzw. ändere aSearch einmalig in klein Buchstaben:
Delphi-Quellcode:
begin
  aSearch := AnsiLowerCase(aSearch);
  for ndx := aSource.FixedRows to Pred(aSource.RowCount) do
  begin
    if (Pos(aSearch, AnsiLowerCase(aSource.Rows[ndx].Text)) > 0) then
.
.
end;
Dann muss aSearch nicht für jede Zeile neu "konvertiert" werden.
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat