Je cherche comment faire pour mettre la 1ere lettre de Chaque mot en majuscule, mais je vois pas trop comment faire.
Quelqu'un pourrait-il m'aider ??
Merci d'avance

Code: Select all
program NewScript;
var
s: string;
begin
s := AnsiLowerCase(GetField(fieldOriginalTitle));
s := AnsiMixedCase(s, ' ');
SetField(fieldOriginalTitle, s);
end.