Inserir espaços em branco

Delphi

28/10/2003

Alguém sabe me dizer se existe no Delphi alguma função que retorne um número de espaços em branco... Algo em que eu passo o nº de espaços que preciso e ela me retorne esta qtde de espaços em branco..


Drogao

Drogao

Curtidas 0

Respostas

Rafael Heise

Rafael Heise

28/10/2003

Não existe nada realmente pronto...
mas use essas:
Function ReturnEmptyString(aLength: integer): string;
// Create by Rafael M. Heise
// in 28/10/2003 (dd/mm/yyyy)
begin
  Result := ´´; // set Result to empty
  if aLength > 0 then // just length > 0
    while Length(Result) <> aLength do 
      Result := Result + ´ ´; // inc space
end;

function CountEmpty(aString: string): integer;
// Create by Rafael M. Heise
// in 28/10/2003 (dd/mm/yyyy)
begin
  // return spaces
  Result := Length(aString) - Length(Trim(aString));
end;

só peço que mantenha os comentários...
abraços


GOSTEI 0
POSTAR