Текстовый квест - нужна помощь.

← →
747 (2005-10-05 21:22) [0]

Нужна помощь Я пишу текстовый квест и столкнулся со следующей проблемой. Текст не помещается в отведенное ему место. То есть - у меня есть объект Statictext определенного размера, но если текст превысит этот размер - то его не будет видно. Мне нужно написать следующий алгоритм. Текст в определенном файле например Data.dat имеет следующий вид: [c]qqqqqqqqqqqqqqqqqqqqqqq[/c]
[c]aaaaaaaaaaaaaaasdasdasaa[/с]

Так вот мне нужно вытащить из этого файла текст, который заключен в тег [c][/c], а затем, если он большой и не вписывается в размер разбить его на части. Части следующие выводить кнопочками далее и назад. А по окончании текста (вытащенного) перейти к следующему тегу.

Подскажите пожалуйста, как можно такой алгоритм реализовать.

← →
DroNIX (2005-10-05 22:08) [1]

...
read(fn,s);
n:=pos(s,"[c]");
e:=pos(s,"[/c]");
count:=e-n;
text:=copy(s,n+3,count);
это только текст вытащил, вроде так, но надо проверить

← →
DroNIX (2005-10-05 22:33) [2]

Да чё то я понапутал уж совсем всё забы :)
во bugfix:
procedure TForm1.Button1Click(Sender: TObject); const s="++++[c]123456678910 1234[/c]+++"; len=5; //мах количество символов var temp:string; i,n,e,c,el:integer; text: array of string; begin el:=0; n:=pos("[c]",s); e:=pos("[/c]",s); c:=e-n-3; temp:=copy(s,n+3,c); el:=length(temp) div len; SetLength(text,el+1); for i:=0 to el do text[i]:=copy(temp,i*len+1,len); showmessage(inttostr(el)+" "+temp); end;

Ну а там легко.!

← →
747 (2005-10-05 23:00) [3]

Спасибо. Буду разбираться.

747 (05.10.05 21:22)
http://zeqfreed.k66.ru/files/test_src.zip (9 кб, исходники)
http://zeqfreed.k66.ru/files/test_exe.zip (208 кб, исходники + исполняемый модуль)

Разбирайся. Алгоритм в лом расписывать было :)

Текстовый квест - нужна помощь. Найти похожие ветки