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 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 





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