![]() |
Anfangsbuchstabe eines Wortes
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 |
Re: Anfangsbuchstabe eines Wortes
schau doch einfach ob sich der Hex wert des Buchstabens in dem Bereich der Kleinbuchstaben befindet oder in dem der Großbuchstaben.
|
Re: Anfangsbuchstabe eines Wortes
Das hatten wir doch gerade erst letzte Woche. Benutz bitte die Suche bevor du ein neuen Thread erstellt.
|
Re: Anfangsbuchstabe eines Wortes
ü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; |
Re: Anfangsbuchstabe eines Wortes
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; |
Re: Anfangsbuchstabe eines Wortes
Delphi-Quellcode:
var
istgross:boolean; .. istgross:= ( s[1] = uppercase(s[1]) ); |
Re: Anfangsbuchstabe eines Wortes
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; |
Re: Anfangsbuchstabe eines Wortes
Einen hätte ich noch:
Delphi-Quellcode:
Grüße vom marabu
uses
StrUtils; function AnsiStartsLowercase(s: string): boolean; begin Result := AnsiLeftStr(s, 1) = AnsiLowerCase(AnsiLeftStr(s, 1)); end; |
Re: Anfangsbuchstabe eines Wortes
Hallo,
Zitat:
![]() |
Re: Anfangsbuchstabe eines Wortes
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz