Anfangsbuchstabe eines Wortes

[bioser]

Hallo liebe Delphinarier,

ich möchte wissen, ob der Anfangsbuchstabe eines Wortes groß- oder
kleingeschrieben ist. Danke für Eure Antworten !

Viele Grüße
BIOSER

[Angel4585]

schau doch einfach ob sich der Hex wert des Buchstabens in dem Bereich der Kleinbuchstaben befindet oder in dem der Großbuchstaben.

[Luckie]

Das hatten wir doch gerade erst letzte Woche. Benutz bitte die Suche bevor du ein neuen Thread erstellt.

[ichbins]

überprüf doch einfach ob der Anfangsbuchstabe in dem Intervall der großgeschriebenen Zeichen (65-90) enthalten ist.

Delphi-Quellcode:

var
  s:string;
begin
  if (byte(s[1])>=65) and (byte(s[1])<=90) then
    //gross
end;

[Luckie]

Eleganter:

Delphi-Quellcode:

function IsCapitel(s: Char): Boolean;
begin
  if s in ['A'..'Z'] then
    result := True
  else
    result := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(IsCapitel('z'), True));
end;

[ibp]

Delphi-Quellcode:

var
  istgross:boolean;
..
  istgross:= ( s[1] = uppercase(s[1]) );

[ibp]

noch Eleganter:

Delphi-Quellcode:

function IsCapitel(s: Char): Boolean;
begin
  result := s in ['A'..'Z']
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(IsCapitel('z'), True));
end;

[marabu]

Einen hätte ich noch:

Delphi-Quellcode:

uses
  StrUtils;

function AnsiStartsLowercase(s: string): boolean;
begin
  Result := AnsiLeftStr(s, 1) = AnsiLowerCase(AnsiLeftStr(s, 1));
end;

Grüße vom marabu

[Lannes]

Hallo,

Zitat:

Zitat von Luckie

Das hatten wir doch gerade erst letzte Woche. Benutz bitte die Suche bevor du ein neuen Thread erstellt.

ja, aber in der Entwickler-Ecke Fängt String mit Großbuchstaben an?

[Luckie]

Zitat:

Zitat von ibp

noch Eleganter:

Delphi-Quellcode:

function IsCapitel(s: Char): Boolean;
begin
  result := s in ['A'..'Z']
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(IsCapitel('z'), True));
end;

Mist. ;)