Store og Små bogstaver

Tags:    delphi

Jeg sidder med et program, der skal fx. MICHAEL BLOCK om til Michael Block, men det jeg har nu kan kun ændre alle bogstaver til små, hvordan laver jeg det sådan første bogstav i hvert ord stadig er stort.

procedure TForm1.Button1Click(Sender: TObject);
var
text : String;
begin
text := lowercase(edit1.text);
edit1.text := '';
edit1.text := text;
end;

zzzzzzzzzzzzzzzzzzz

Block



1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
Jeg har lige lavet en funktion der kan det!

function ArrangeText(Text : string) : string;
var
I : Integer;
B : Boolean;
begin
Result := Text;
B := True;
for I := 1 to Length(Result) do
begin
if B then
begin
Result[I] := AnsiUpperCase(Result[I])[1];
B := False;
end
else
Result[I] := AnsiLowerCase(Result[I])[1];
if Result[I] = ' ' then
B := True;
end;
end;

og du kalder den sådan her:

Edit1.Text := ArrangeText(Edit1.Text);




t