Einzelnen Beitrag anzeigen

Benutzerbild von pilic
pilic

Registriert seit: 10. Aug 2006
Ort: Aschbach
131 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Anfangsbuchstaben eines Strings in Großbuchstaben umwand

  Alt 9. Nov 2008, 11:50
Ich würde es so machen, da UpperCase scheinbar nur Strings akzeptiert.

Delphi-Quellcode:
if (Ord(wort[1]) >= $61) and (Ord(wort[1]) <= $7a) then
  wort[1] := Chr(Ord(wort[1])-$20);
  Mit Zitat antworten Zitat