pad string with blank space 2

[AP81]

Is there a way to pad a string with empty space?, e.g. say I want all strings to be set as 100 characters, then 'hello' will appear as 'hello' + 95 trailing characters of blank space.




------------------------------------
There's no place like 127.0.0.1
------------------------------------

 

[towerbase]

Yes, this is fairly easy to do with the StringOfChar function

  s := 'hello';
  s := s + StringOfChar ( ' ', 100 - Length(s) );

Andrew
Hampshire, UK

 

[AP81]

Just what I needed. Thanks




------------------------------------
There's no place like 127.0.0.1
------------------------------------

 

[Griffyn]

You may also want to look into using the Format function. While it seems overly complex at first, it can actually simplify huge chunks of code once you get your head around it.

For your question you could use

s := 'hello';
s := Format('%-100s', [s]);

Have a look at the Format function in the help, and follow the link to the Format Strings topic. Format has a lot of support for formatting numbers as well.

 

[Griffyn]

whoops - the code I just posted adds the spaces before the text, if you want it trailing just use:

s := Format('%100s', [s]);

 

[lespaul]

You're right, it takes some getting use to, but the format function is great! I use it for a text file that I send to an outside agency and it has to be in a fixed format.

In my procedure I declared a constant with the format string:

So this formats the first 26 items in my text file:
const headerstringformat = '%-2s%-3s%-11s%-2s%-2s%-2s%-2s%-2s%-2s%-4s%14s%-14s%-4s%-3s%-4s%-2s%-9s%-4s%-4s%-2s%-4s%-2s%-8s%-4s%-4s%-27s';

Format(headerstringformat, ['item1', 'item2', 'item3, ... 'item26'])

Leslie