Fórum Inserir espaços em branco #191101

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;