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"