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
