Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Dit is een kleine functie die ik gebruik om voor alle woorden in een string, de eerste letter een hoofdletter te maken.
Werkt met zo'n beetje iedere Pascal variant en ik gebruik het zelf in Delphi en Lazarus.
function Capitalize (const s: string): string;
var flag: boolean;
i : Byte;
t : string;
begin
if s<>'' then
begin
flag := true;
t := '';
for i := 1 to Length(s) do
begin
if flag then
t := t+ UpperCase(s)
else
t := t+ s;
flag := (s = ' ')
end;
end
else t:='';
result := t;
end;
