TEdit erste Buchstabe immer Groß schreiben...

[hoika]

Hallo,

kleine Ergänzung zum Code oben.

Delphi-Quellcode:

procedure TForm1.CommonEditChange(theEdit: TEdit);
var
  OldStart : Integer;
  TempProc: procedure (Sender: TObject) of object;
begin
  with theEdit do
  begin
    if Text <> '' then 
    begin
      TempProc:= theEdit.OnChange;
      try
        OnChange := NIL;
        OldStart := SelStart;
        Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));
        SelStart := OldStart;
      finally
        OnChange := TempProc;
      end;
    end;
  end;
end;

Somit kann die Method für mehrere Editoren benutzen.


Heiko

[Gandimann]

Zitat von hoika:

Hallo,

kleine Ergänzung zum Code oben.

Delphi-Quellcode:

procedure TForm1.CommonEditChange(theEdit: TEdit);
var
  OldStart : Integer;
  TempProc: procedure (Sender: TObject) of object;
begin
  with theEdit do
  begin
    if Text <> '' then 
    begin
      TempProc:= theEdit.OnChange;
      try
        OnChange := NIL;
        OldStart := SelStart;
        Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));
        SelStart := OldStart;
      finally
        OnChange := TempProc;
      end;
    end;
  end;
end;

Somit kann die Method für mehrere Editoren benutzen.


Heiko

Wie kann ich diese Code so erweitern dass , erste Buchstabe nach Leerzeichen auch Gross kommt. ??

[BUG]

Zitat von Gandimann:

Wie kann ich diese Code so erweitern dass , erste Buchstabe nach Leerzeichen auch Gross kommt. ??

Sicher.

Als Erstes: diese Procedure arbeitet im Grunde auf Strings, warum sollte man sie auf die Nutzung mit TEdits beschränken.

Die eigentliche Funktion kann man genauso hinschreiben wie man sich das vorstellt.

Delphi-Quellcode:

function startWordsWithCaps(const x: String): String;
const
  blanks = [#9, #32, #10, #13];
var
  i: integer;
  lastWasBlank: boolean;
begin
  SetLength(Result, length(x));
  lastWasBlank := true;
  for i := 1 to length(x) do
  begin
    if lastWasBlank then Result[i] := upCase(x[i]) else Result[i] := x[i];
    lastWasBlank := x[i] in blanks;
  end;
end;

Fragen zum Code dürfen gestellt werden. Code darf in Frage gestellt werden

[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.