Length (cadena)

Devuelve el tamaño de una cadena dada (el número de caracteres incluyendo espacios en blanco).

Ejemplo de uso:

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

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario