Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

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

 
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]

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


 
Zeqfreed ©   (2005-10-05 23:15) [4]

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

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



Страницы: 1 вся ветка

Текущий архив: 2005.10.30;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.034 c
4-1125305689
ANB
2005-08-29 12:54
2005.10.30
Как переключить раскладку в чужом процессе ?


14-1128276346
Piter
2005-10-02 22:05
2005.10.30
Вечная память Magic Forum у... Аминь.


14-1128596863
!Trinix
2005-10-06 15:07
2005.10.30
Задача по информатике


2-1128958528
Bobby Digital
2005-10-10 19:35
2005.10.30
функция Random


8-1117885721
Dr. Andrew
2005-06-04 15:48
2005.10.30
Как "перехватить" и сохранить wav от звуковой карты?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский