IPB
ЛогинПароль:

> 

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Вывод информации - кириллица и латиница вместе
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской

Репутация: -  0  +


Бодрого дня, господа.
До недавнего времени я был уверен, что gotoxy(х,у); задает абсолютные координаты, ни отчего не зависящие. Но, оказывается, это далеко не так.
При попытке вывести информацию, которая состоит из информации, введенной как кириллицей, так и латиницей, в виде таблички, то вся эта табличка "плывет". И "виновата" в этом именно кириллица.
Вопрос - можно ли как-то заставить выводиться информацию как положено - стройными столбцами? Так, как ей указано.
Даю пример. Введите любые слова и латиницей и кириллицей. Так, я думаю, будет наглядней, что я имею ввиду. (Не пойму, как тут спрятать под спойлер).

uses dos,crt;
 
type Info=record
        Odin:string;
        Dva:string;
        Tri:integer;
      end;
 
var F:file of Info;
    myBaza:Info;
    i:byte;
 
begin
  assign(F,'info.inf');
  rewrite(F);
  
  with myBaza do
    begin
      for i:=0 to 2 do
        begin
          clrscr;  
          gotoxy(10,3);
          textbackground (0); textcolor(15);
          writeln('Первое слово:');
          gotoxy(10,5);
          writeln('Второе слово:');
          gotoxy(10,7);
          writeln('Какое-нибудь число:');
  
          Textbackground (14);
          gotoxy(42,3);
          write('               ');
          gotoxy(43,3);
          textcolor(12); readln(Odin);
 
          Textbackground (14);
          gotoxy(42,5);
          write('               ');
          gotoxy(43,5);
          textcolor(12); readln(Dva);
 
          Textbackground (14);
          gotoxy(42,7);
          write('               ');
          gotoxy(43,7);
          textcolor(12); readln(Tri);
          
          write(F,myBaza);
          Textbackground (0);
        end;
      textcolor(15);
    end;
  clrscr;
  reset(F);
  while not eof(F) do
    begin
      read(F,myBaza);
      with myBaza do
     begin
         gotoxy(2,wherey); write(Odin);
         gotoxy(30,wherey); write(Dva);
         gotoxy(50,wherey); writeln(Еri);
     end;
    end;
  readkey;
end.


Очень бы хотелось найти какое-нибудь решение.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской

Репутация: -  0  +


Забыл указать - это все в Линуксе, кодировка UTF-8. В Виндовс проверить не могу за неимением ПК, зараженного этим сборником вирусов.

Сообщение отредактировано: camac -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 2.04.2025 23:59
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name