Re: function to convert first letter of each word in a s tring

just be aware that surnames like "dos Santos" will become "Dos Santos" and "McDonald" will become "Mcdonald"
If this is not an issue for you then don't worry.

Andy
  ----- Original Message ----- 
  From: cstakdk 
  To: [email protected] 
  Sent: Monday, July 28, 2003 10:41 PM
  Subject: Re: [Delphi] function to convert first letter of each word in a s tring


  Thanks, its working fine
  cstakdk

  --- In [email protected], Allan Smith 
  <AJMSmith@N...> wrote:
  > On Fri, 18 Jul 2003 15:02:13 +0300, Shkolnik M. wrote:
  > 
  > >Use the next code:
  > >
  > >function Proper(strStr: string): string;
  > >var
  > >  IsStartWord: Boolean;
  > >  i: Integer;
  > >  ch: Char;
  > >begin
  > >  IsStartWord := True;
  > >  Result := '';
  > >  if (Length(strStr) > 0) then
  > >    for i := 1 to Length(strStr) do
  > >    begin
  > >      if IsStartWord then
  > >        ch := AnsiUpperCase(strStr[i])[1]
  > >      else
  > >        ch := AnsiLowerCase(strStr[i])[1];
  > >      IsStartWord := (ch = ' ');
  > >      Result := Result + ch;
  > >    end;
  > >end;
  > >
  > >For example, ShowMessage('george bush w');
  > >
  > >-----Original Message-----
  > >From: cstakdk [mailto:cstakdk@y...] 
  > >Sent: Friday, July 18, 2003 2:57 PM
  > >To: [email protected]
  > >Subject: [Delphi] function to convert first letter of each word in 
  a string
  > >
  > >
  > >hi...
  > >
  > >if the user enter a name and surname into the text like geroge 
  bush w
  > >i need the result in George Bush W
  > >
  > >Is there any function in Delphi(i am new comer in delphi)
  > >Please advice me
  > >thanks
  > >thanks for the pervious answers 
  > >csta
  > 
  > Not entirely sure but the following will probably be better 
  (faster, less
  > memory, no string concatenation)
  > 
  > Function Proper (Const StrStr : String) : String;
  > 
  > VAR      I : Integer;
  > 
  > Begin
  >       // Conver the whole string to lower case
  >       Result := AnsiLowerCase (StrStr);
  >       If Length (StrStr) > 0 Then
  >       Begin
  >             // Always convert the first letter
  >             Result [1] := AnsiUpperCase (Result [1])[1];
  >             For I := 2 To Length (StrStr) Do
  >                   If Result [Pred (I)] = ' ' Then 
  >                         // Overwrite only if need be
  >                         Result [I] := AnsiUpperCase (Result 
  [I])[1];
  >       End;
  > End; { Proper }
  > 
  > 
  > -- 
  > Regards,
  > Allan Smith (Northwood, Middlesex, England)


        Yahoo! Groups Sponsor 
              ADVERTISEMENT
             
       
       

  CodeCoffer - new Delphi code protection Tool!
  http://www.delphicollection.com/public/CodeCoffer.htm
  ---------------------------------------------------------------
  Unsubscribe:[email protected]
  List owner:[email protected]
  --------------------------------------------------------------- 

  Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. 



[Non-text portions of this message have been removed]


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Toner for Your Printer or Fax at LaserTonerSuperstore.com-Save 55%!
We have your brand: HP, IBM, Canon, Xerox, Apple and many more for less!
http://www.LaserTonerSuperstore.com
http://us.click.yahoo.com/YmQqWC/qicGAA/ySSFAA/i7folB/TM
---------------------------------------------------------------------~->

CodeCoffer - new Delphi code protection Tool!
http://www.delphicollection.com/public/CodeCoffer.htm
---------------------------------------------------------------
Unsubscribe:[email protected]
List owner:[email protected]
--------------------------------------------------------------- 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/