output something on the right side

output something on the right side

[Paul]

hi

please can anyone tell me how i can output a text from a variable on the
right side of the screen?

s := "testtext"
put...?????

tnx in advance

paul

Re: output something on the right side

[tmoran]

Have you looked at Ada.Text_IO.Set_Col?

Re: output something on the right side

[Pascal Obry]

"Paul" <gustino2001@hotmail.com> writes:

> hi
> 
> please can anyone tell me how i can output a text from a variable on the
> right side of the screen?
> 
> s := "testtext"
> put...?????
> 

Sure.

   Put ("                                                   " & s);

:)

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|         http://perso.wanadoo.fr/pascal.obry
--|
--| "The best way to travel is by means of imagination"

Re: output something on the right side

[Robert Dewar]

In article <u3dhsu26i.fsf@wanadoo.fr>,
  Pascal Obry <p.obry@wanadoo.fr> wrote:
>
>    Put ("                                                   "
& s);
>
> :)
>
> Pascal.

Pascal had a smiley there, but in fact his answer is reasonable
if you rewrite it slightly as

   Put (((80-s'Length)*' ') & s);

Not enough people are familiar with the useful routines
in the Ada.Strings.xxx packages :-)


Sent via Deja.com http://www.deja.com/
Before you buy.

Re: output something on the right side

[DuckE]

"Robert Dewar" <robert_dewar@my-deja.com> wrote in message news:8ss997
[snip]
> Pascal had a smiley there, but in fact his answer is reasonable
> if you rewrite it slightly as
>
>    Put (((80-s'Length)*' ') & s);
>
> Not enough people are familiar with the useful routines
> in the Ada.Strings.xxx packages :-)
>

I get a compile error with the above code.  I have a lot better luck with:

  Put (String'(1..(80-s'Length)=>' ') & s);

SteveD

Re: output something on the right side

[Pat Rogers]

"DuckE" <nospam_steved94@home.com> wrote in message
news:5OoI5.5432$E85.90720@news1.sttls1.wa.home.com...
>
> "Robert Dewar" <robert_dewar@my-deja.com> wrote in message
news:8ss997
> [snip]
> > Pascal had a smiley there, but in fact his answer is reasonable
> > if you rewrite it slightly as
> >
> >    Put (((80-s'Length)*' ') & s);
> >
> > Not enough people are familiar with the useful routines
> > in the Ada.Strings.xxx packages :-)
> >
>
> I get a compile error with the above code.  I have a lot better luck
with:
>
>   Put (String'(1..(80-s'Length)=>' ') & s);


Did you have the operator directly visible from Ada.Strings.Fixed?


with Ada.Text_IO;
use  Ada.Text_IO;
with Ada.Strings.Fixed;
use  Ada.Strings.Fixed;

procedure test is
  S : constant String := "Hello";
begin
  put_line( ((80-S'Length)*' ') & S );
end test;

Re: output something on the right side

[DuckE]

> > I get a compile error with the above code.  I have a lot better luck
> with:
> >
> >   Put (String'(1..(80-s'Length)=>' ') & s);
>
>
> Did you have the operator directly visible from Ada.Strings.Fixed?
>
>
> with Ada.Text_IO;
> use  Ada.Text_IO;
> with Ada.Strings.Fixed;
> use  Ada.Strings.Fixed;
>
> procedure test is
>   S : constant String := "Hello";
> begin
>   put_line( ((80-S'Length)*' ') & S );
> end test;
>
No.

I guess that's the danger with not posting a complete example (as you just
did).

SteveD