Как сделать, чтобы первая буква каждого слова в строке была в верхнем регистре?
function LowCase(ch : CHAR) : CHAR; begin
case ch of 'A'..'Z' : LowCase := CHR (ORD(ch)+31); else LowCase := ch; end;end;
function Proper (source, separators : STRING) : STRING; var
LastWasSeparator : BOOLEAN; ndx : INTEGER;begin
LastWasSeparator := TRUE; ndx := 1; while (ndx<=Length(source)) do begin if LastWasSeparator then source[ndx] := UpCase(source[ndx]) else source[ndx] := LowCase(source[ndx]); LastWasSeparator := Pos(source[ndx], separators)>0; inc(ndx); end; Result := source;end;
