TEdit erste Buchstabe immer Groß schreiben...

[DeddyH]

Auch wenn es umständlicher aussieht:

Zitat:

if lastWasBlank then Result[i] := upCase(x[i]) else Result[i] := x[i];

-->

Delphi-Quellcode:

if lastWasBlank then 
  Result[i] := AnsiUpperCase(x[i])[1] 
else 
  Result[i] := x[i];

[BUG]

Zitat von DeddyH:

Auch wenn es umständlicher aussieht:

Gibt es da eine Erklärung dazu?
UpCase sollte mit WideChar doch funktionieren?

Oder ist es wegen:

Zitat:

The conversion uses the current user locale, unlike UpperCase.

[AnsiUpperCase]

[DeddyH]

Aus der Hilfe zu Upcase:

Zitat:

Character values not in the range a..z are unaffected.

D.h. Umlaute würden sonst nicht berücksichtigt.

[himitsu]

Delphi-Quellcode:

function CapitalizeWords(const S: String): String;
const
  Blanks = [#9, #10, #13, #32];
var
  i: Integer;
  U: String;
begin
  U := AnsiUpperCase(S);
  Result := S;
  for i := 1 to Length(Result) do
    if (i = 1) or (Result[i - 1] in Blanks) then 
      Result[i] := U[i];
end;

[DeddyH]

Jepp, das dürfte schneller sein. Aber noch ein Vorschlag:

Delphi-Quellcode:

function CapitalizeWords(const S: String; FirstOnly: Boolean = false): String;
const
  Blanks = [#9, #10, #13, #32];
var
  i: Integer;
  U: String;
begin
  U := AnsiUpperCase(S);
  if FirstOnly then
    Result := AnsiLowerCase(S)
  else
    Result := S;
  for i := 1 to Length(Result) do
    if (i = 1) or (Result[i - 1] in Blanks) then
      Result[i] := U[i];
end;

So lässt sich steuern, ob ausschließlich der jeweils erste Buchstabe groß geschrieben werden soll.