Помощь - Поиск - Пользователи - Календарь
Полная версия: Вывод информации - кириллица и латиница вместе
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Free Pascal, Pascal ABC и другие
camac
Бодрого дня, господа.
До недавнего времени я был уверен, что 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.


Очень бы хотелось найти какое-нибудь решение.
camac
Забыл указать - это все в Линуксе, кодировка UTF-8. В Виндовс проверить не могу за неимением ПК, зараженного этим сборником вирусов.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.