люди, как можно вывести значение переменной в графическом режиме в определённом месте. насколько я знаю Outtext или OutTextXY не могут их выводить, тогда как????????
SKVOZNJAK
29.03.2004 23:04
Векторными шрифтами

Если нужен большой пребольшоооой исходник

Заходи на мой сайт - СТЭК\СУШНЯК ТУРБО
мне нужно вывести в графическом режиме примерно следующее
write('текст1' ,a[1], 'текст2'); -(это не для граф. режима!!!) ,только с заданием координат на поле. это вообще возможно???????
trminator
29.03.2004 23:48
Преобразуй число в строку. Насколько я помню, OutTextXY выводит только строки. Процедура val пригодится.
Вот посмотрите, что сделал я (только не смейтесь, для моих целей то, чтго надо)
Мне необходимо было выводить в граф. реж. цифры( от 0 до 256 -т.е максимум двухзначные)
Вот процедура:
Код
Procedure Buf_Str(CH:integer; var s1:string);
var
m,n,o:integer;
begin
s1:='';
If CH<1000 then
begin
n:=CH div 100;
s1:=s1+CHR(48+n)
end;
m:=(ch div 10) - n*100;
s1:=s1+CHR(48+m);
o:=ch-(n*100+m*10);
s1:=s1+CHR(48+o);
end;
Здесь CH -число которое записывается в строку S1
Т.е это под конкретную задачу.
trminator
31.03.2004 0:37
Цитата
от 0 до 256 -т.е максимум двухзначные
Вот настоящий программер =) Думает в 16-ричной системе счисления =)
Я сегодня посмотрел Фаронова - есть специальная процедура
STR(X,ST) - она преобразует чисто X любого типа в строку ST !!!!!!
А мы мучались!
Так, что если надо вывести в гр.реж. переменную, то делает
так:
{------}
Str(perem,stroka);
OutTextXY(X,Y,stroka);
{-------}
Есть еще стандарнтые пропроцедуры явного преобразования:
ORD, CHR, STR, VAL, TRUNC, ROUND, PTR и т.д. (см. HELP по паскалю)
trminator
31.03.2004 23:50
Цитата(trminator @ 29.03.04 16:48)
Преобразуй число в строку. Насколько я помню, OutTextXY выводит только строки. Процедура val пригодится.
Как всегда все перепутал. В этот раз -- val с str =|
Oleg_Z, спасибо =)
Всегда готов помочь.
Кстати преобразование типов - интересная штука.
Оказывается можно в описании переменных указать адрес, где она будет храниться, и что самое интересное, можно указать так:
------
VAR
a:array[1..2] of byte;
b: word ABSOLUTE a;
C:integer ABSOLUTE a;
------
таким образом, можно расматриватть массив как слово, или как еще.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста,
нажмите сюда.