Devuelve el tamaño de una cadena dada (el número de caracteres incluyendo espacios en blanco).
Ejemplo de uso:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
function primeraLetraPalabrasMayuscula (fichero : string) : string; var espacioAnterior : boolean; ficheroTemporal : string; k : integer; begin ficheroTemporal := fichero; espacioAnterior := false; for k := 1 to Length(ficheroTemporal) do begin if k = 1 then ficheroTemporal := ansiuppercase(ficherotemporal[k]) + copy (ficheroTemporal, k + 1, length(ficheroTemporal)); if espacioAnterior then begin ficheroTemporal := copy (ficheroTemporal, 1, k - 1) + ansiuppercase(ficherotemporal[k]) + copy (ficheroTemporal, k + 1, length(ficheroTemporal)); end; espacioAnterior := ficheroTemporal[k] = ' '; end; Result := ficheroTemporal; end; |
Unidad System
