Mega Code Archive
Upper the first letter of each word
<![CDATA[
Title: Upper the first letter of each word
If we will agree, that the word is a characters set between the spaces then you can try this:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
Str: string;
begin
Label2.Caption:='';
Str:=' '+Edit1.Text;
i:=1;
repeat
if Str[i]<>' ' then
Label2.Caption:=Label2.Caption+Str[i];
if Str[i]=' ' then
begin
if (Str[i+1]<>' ') then
begin
Label2.Caption:=Label2.Caption+Str[i]+AnsiUpperCase(Str[i+1]);
Inc(i);
end
else
Label2.Caption:=Label2.Caption+Str[i];
end;
Inc(i);
until i>Length(Str)+1;
Str:=Label2.Caption;
Delete(Str, 1, 1);
Label2.Caption:=Str;
end;
]]>