Groß und Kleinschreibung ignorieren

[XeRo]

Hi. Ich will beim Vergleichen 2er Strings die Groß- und Kleinschreibung ignorieren ohne das ich den String verändere.(also nicht einfach alles kleinschreiben lassen ;-) )

Hab dazu leider nichts im Internet gefunden und auch auf der DP...

[alcaeus]

Hallo Xero,

guck dir mal LowerCase und UpperCase an.

Greetz
alcaeus

[Dax]

Oder AnsiSameText ;)

[r2c2]

Zitat:

Zitat von XeRo

Hi. Ich will beim Vergleichen 2er Strings die Groß- und Kleinschreibung ignorieren ohne das ich den String verändere.(also nicht einfach alles kleinschreiben lassen ;-) )

Delphi-Quellcode:

  if LowerCase(s1) = LowerCase(s2) then
  begin
    ...
  end;

Damit veränderst du die Strings nicht, sondern vergleichst nur die Rückgabewerte der Funktionen.
Wenn du das auch nicht willst - aus welchen Gründen auch immer - dann musst du dir wohl oder übel ne eigene Funktion basteln:

Delphi-Quellcode:

function StrCompar(s1, s2: string)e: Boolean;
var
  i: Integer;
begin
  <auf gleiche Länge prüfen>
  for i := 1 to Length(s1) do
  begin
    if LowerCase(s1[i]) = LowerCase(s2[i]) then  // ja ich weiß LowerCase taucht heir auch auf, wenn du auch das nicht willst, musst du die ANSI-Werte unter berücksichtigung beider(Ord('a') und Ord('A')) Werte vergleichen
    begin
      ...
    end
    else
    begin
      ...
    end;
  end;

end;

Achtung! Nicht Copx&Paste-Fähig

mfg

Christian

//Edit: Ups :oops: Da hab ich ja 2 Beiträge gar nicht gesehen. Naja was solls. Meiner is ausführlicher. :mrgreen:

P.S.: ANSISameText kannte ich ja noch gar nicht. Wissenslücke...

[Matze]

Zitat:

Zitat von alcaeus

guck dir mal LowerCase und UpperCase an.

Besser wäre AnsiLowerCase oder AnsiUpperCase, damit auch Sonderzeichen beachtet werden, ansonsten Dax' Vorschlag verwenden.

[XeRo]

Danke ;-)
ging mal wieder schnell...