Задача состоит в том, чтобы в помощью библиотеки font32 побуквенно выводить на экран небольшие отрывки текста. Но проблема заключается вот в чем:
При каждом использовании Format, текст заново форматируется, по этому получается что-то вроде:
|Сюжет разворачивается во вр|
|время шторма, когда на ферме|
|главных персонажей Тома и Дж|
|Джиллиан появляется... |
вместо:
|Сюжет разворачивается во |
|время шторма, когда на ферме|
|главных персонажей Тома и |
|Джиллиан появляется... |
//strDraw - побуквенно выводимый на дисплей текст
//strAlLoaded - текст, что выведен ранее на дисплей и отрисовывается сразу
rc.init(5); //текст выводится с поворотом на 90'
TextWindow(textBorder,textBorder,getWidth-textBorder,getHeight-textBorder); //TextBorder - зазор
for i:=0 to Length(strDraw) do
begin
keyClicked:=getKeyClicked;
//если нажато 5, вывести весь текст и не мучать юзера
if keyClicked=KE_KEY5 then
begin
s:=Format(strAlLoaded + copy(strDraw,0,Length(strDraw)),0);
DrawTextWindow;
rc.repaint;
break;
end;
//отрисовать уже выведенный ранее текст (если дисплей без него, то переменная strAlLoaded='') и дорисовывать по букве нового
s:=Format(strAlLoaded + copy(strDraw,0,i),0);
DrawTextWindow;
rc.repaint;
delay(10);
end;
Просьба помочь с алгоритмом...
P.S. Пословно уже делал - такой способ не подходит.