Вывод в виде таблицы. Pascal. Проблемы с ровностью.

[Egorikas]

Всем добрый вечер. По заданию, я должен выводить данные в виде ровной таблицы, но я никак не могу заставить её выводить ровно.
вот примерный код.

 write('--------------------------------------------------------------------------');
      writeln;
      write('|     Название       |     Стоимость номера    |   Колличество номеров   |');
      writeln;
      write('--------------------------------------------------------------------------');
      for i:=1 to rm do
      with gostsort[i] do
          begin
       writeln;
       write('|',' ':1,nazvanie,#9,'|':6,' ':1,strik,#9,'|':16,' ':1,ktrik,#9,'|':18);
       writeln;
       write('--------------------------------------------------------------------------');
           end;

Вся проблема начинается, если названия ( задал как string ) , различаются больше чем на символ. Помогите пожалуйста.

P.s. если нужно, могу добавить полный код процедуры.

[Stilet]

Наверное из-за немоноширинного шрифта в консоли.
Ты программу в ДОС запускаешь или в консоли виндовса?
Тут подумал немного:

 write('|',1,nazvanie:10,'|',strik:5,'|',ktrik:5,'|');

10 - Это выравнивание на 10 символов ровно

[Egorikas]

Как бы сказать, все это добро я вообще пишу под Ubunty в Lazarus. я просто не могу придумать, как её нормально выровнять. Так как, допустим, 1 отель у меня называется - Первый. А второ2 -2 , но у меня сбиваются все поля, и очень криво выдается, пробовал gotoy , ничего хорошего не получилось.

И запускаю через консоль линоксовскую. Ради интересна, запустил под виндой ( консоль), тоже самое.

Сообщение от Stilet

Наверное из-за немоноширинного шрифта в консоли.
Ты программу в ДОС запускаешь или в консоли виндовса?
Тут подумал немного:

 write('|',1,nazvanie;10,'|',strik:5,'|',ktrik:5,'|');

10 - Это выравнивание на 10 символов ровно

Сейчас попробую.

[Stilet]

ничего хорошего не получилось.

Мой пример должен сработать.

nazvanie;10

Там я : должен был поставить, видимо по клавише промахнулся, так что поправишься если что.

[Egorikas]

Сообщение от Stilet

Наверное из-за немоноширинного шрифта в консоли.
Ты программу в ДОС запускаешь или в консоли виндовса?
Тут подумал немного:

 write('|',1,nazvanie;10,'|',strik:5,'|',ktrik:5,'|');

10 - Это выравнивание на 10 символов ровно

На 10 символо работает прекрасно, но попробовал увеличить интервал, чтобы выводилось более широко, и вот что получается.

[Stilet]

Убери writeln-ы из цикла, они там не нужны.

 write('--------------------------------------------------------------------------');
      writeln('|     Название       |     Стоимость номера    |   Колличество номеров   |');
      writeln('--------------------------------------------------------------------------');
      for i:=1 to rm do
       with gostsort[i] do          begin
         writeln('|',nazvanie:20,'|',strik:10,'|',ktrik:10,'|');
       writeln('--------------------------------------------------------------------------');
           end;

[Egorikas]

Сообщение от Stilet

Мой пример должен сработать.

Там я : должен был поставить, видимо по клавише промахнулся, так что поправишься если что.

Я про пример понял, и сам увидел и поставил, я про ничего хорошего это про мой вариант, твой попробовал и выше отписал ( скрин даже приложил).

Сообщение от Stilet

Убери writeln-ы из цикла, они там не нужны.

 write('--------------------------------------------------------------------------');
      writeln('|     Название       |     Стоимость номера    |   Колличество номеров   |');
      writeln('--------------------------------------------------------------------------');
      for i:=1 to rm do
       with gostsort[i] do          begin
         writeln('|',nazvanie:20,'|',strik:10,'|',ktrik:10,'|');
       writeln('--------------------------------------------------------------------------');
           end;

Ситуация, полностью аналогична скрину.

[Stilet]

Странный какой-то эффект. У меня все в порядке.
Если прога портируемая - прикрепи, посмотрю.

[Egorikas]

Пожалуйста , вот она, я впринципе не знаю, как под виндой работать с файлами, поэтому не могу сказать портируемая или нет. Все в процедуре Sort.

Вот в вордовском файле, форматированная.

[Stilet]

Не поверишь
я твою прогу не понял...
Ввести список - ввел, но таблицу при просмотре не получил вообще. Только шапку
Так что даже получить такие спецэффекты не могу.