gross und kleinschreibung beim suchen nicht beachten

[Reinhard Kern]

Zitat von commin:

Danke erstmal. Das Problem ist dass ich (siehe unten) den Vergleich anderes durchführe...

Delphi-Quellcode:

begin
stichw:=edit1.text;

s:=0;
i:=0;

form1.table1.first;

for i:= i+1 to 1000 do
begin //suchen
smemo:=dbmemo1.text;
if POS(stichw, smemo) <> 0 then
   begin
       messagedlg('gefunden = ' +stichw,mtinformation, [mbok],0);
   end;
form1.table1.next;
end;
messagedlg('fertig  i='+inttostr(i),mtinformation, [mbok],0);
end;

Das ganze ist noch im entstehen - deshalb die messagedlg-boxen...

Gibt es for den Befehl POS... - eine einfache möglichkeit nicht auf groß und kleinschreibung zu achten?

Danke schon mal!

Norman

Hallo,

der traditionelle Weg ist, vor dem Suchen den String ganz in Grossbuchstaben umzuwandeln (oder in kleine, das ist egal), dazu sollte man natürlich mit einer Kopie arbeiten, falls man die Orginalversion weiterhin braucht. Das löst, wenn man es richtig macht, auch das nationale Problem - wie bei CompareText beschrieben, werden länderspezifische Einstellungen nicht von allen Stringfunktionen beachtet, ein Vergleich ohne ÄÖÜ ist bei uns aber meistens wenig sinnvoll. Benutzt man zum Umwandeln in gross die Funktion AnsiUpperCase, so wird das eingestellte Land beachtet, so dass ä -> Ä wird.

Gruss Reinhard