Скажите, пожалуйста, процедуры outtext и outtextxy выводят только одну сроку? Везде в их описании написано "вывод строки"(то есть как я понимаю одной)... а как вывести например четыре строки в графическом режиме (то есть массив строк)...?
Точно так же, как выводишь содержимое численного массива в текстовом режиме: поэлементно... Пробегаешь циклом по массиву строк, каждый раз выводя одну из них, не забывая при этом еще и вычислять координаты для вывода очередной строки...
Угу... попробую еще раз это сделать..а то не получается че-то(
Тебе вероятно надо что - то такое :
for i := 1 to N do
begin
outtextxy (x, y, mas[i]); {mas[i] - массив строк}
x := x + a; {a - смещение каждого след. эл - та по Х }
y:= y + b; {b - смещение каждого след. эл - та по Y }
end;
for i := 1 to N do
begin
outtextxy (x, y, mas[i]); {mas[i] - массив строк}
x := x + a; {a - смещение каждого след. эл - та по Х }
y:= y + b; {b - смещение каждого след. эл - та по Y }
end;
Кстати длинна всех символов и графическом режиме одинакова и равна 8 пикселям. А высота у заглавных - 7, а прописные смещены относительно правого вернего угла на 1 пиксель вниз, поэтому высота у них 6. Но это только при стандартном ширифте