String auf Großbuchstaben überprüfen

[Scorpion]

Hallo,

wie kann ich denn überprüfen, ob ein String nur aus Kleinbuchstaben besteht, sprich, ob Großbuchstaben enthalten sind ;)

THX

[EDatabaseError]

:zwinker: Forensuche ;-)

Delphi-Quellcode:

for i := 1 to String.Lenght do
 begin
  s := UpperCase(text[i]);
  if s = text[i] then großbuchstabe;
 end;

so etwa...


Mfg
Tobi

[Klaus01]

Oder so:

Delphi-Quellcode:

for i := 1 to length(text) do 
begin 
    if text[i] in ['A'..'Z'] then 
      großbuchstabe; 
end;

Grüße
Klaus

[Boombuler]

Zitat:

Zitat von Scorpion

wie kann ich denn überprüfen, ob ein String nur aus Kleinbuchstaben besteht

Delphi-Quellcode:

function IsAllLower(aStr:String):Boolean;
begin
  result := Lowercase(aStr) = aStr;
end;

Viel einfacher gehts glaub ich nich ;)

Greetz
Boombuler

[ManuMF]

Das würde ich sicherheitshalber (wir haben ja noch ä, ö und ü) so machen:

Delphi-Quellcode:

function IsAllLower(aStr: String): Boolean;
begin
  result := (AnsiLowerCase(aStr) = aStr);
end;