forum.boolean.name - formAddChoice и formAddString

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - formAddChoice и formAddString (http://forum.boolean.name/showthread.php?t=7012)

formAddChoice и formAddString

Привет всем! есть код :

Код:

function about_rasa(a:string):string;

  var res : resource;

  begin  

    res := openResource('/'+a+'.txt');

    if (resourceAvailable(res)) then about_rasa:=readLine(res); 

    closeResource(res); 

  end;





......

z:= formAddChoice('Выберите расу героя', CH_EXCLUSIVE); 

         i:= choiceAppendString(z, 'Орки'); 

         i:= choiceAppendString(z, 'Люди');

         i:= choiceAppendString(z, 'Гномы');

         i:= choiceAppendString(z, 'Эльфы');

         addCommand(to_menu);

         addCommand(next);

         k:=formAddString(about_rasa('Orku'));

         repeat

           tmp:=getClickedCommand;

           y:=choiceGetSelectedIndex(z);

           if y=1 then begin formRemove(k); k:=formAddString(about_rasa('Orku')); end;

           if y=2 then begin formRemove(k); k:=formAddString(about_rasa('Ludu')); end;

           if y=3 then begin formRemove(k); k:=formAddString(about_rasa('Gnomu'));end;

           if y=4 then begin formRemove(k); k:=formAddString(about_rasa('Elfu')); end;

           

           if tmp=To_menu then begin ok:=true; menu:=true; end;

           if tmp=next then

                begin

                  ok:=true;

                  Pers.rasa:=y; 

                end;  

         until ok=true;

Вобщем должно быть так : при выборе какогото пункта formAddChoice ниже выводитсо в formAddString текст относящийся к етому пункту...
У меня никакого ВААЩЕ текста не выводит... токо formAddChoice...
мож ктото поможеТ розобратсо в чом проблема?:dontknow:

Ответ: formAddChoice и formAddString

Так попробуй

Код:

function about_rasa(a:string):string;

  var res : resource;

  begin  

    res := openResource('/'+a+'.txt');

    if (resourceAvailable(res)) then about_rasa:=readLine(res); 

    closeResource(res); 

  end;





......

z:= formAddChoice('Выберите расу героя', CH_EXCLUSIVE); 

         i:= choiceAppendString(z, 'Орки'); 

         i:= choiceAppendString(z, 'Люди');

         i:= choiceAppendString(z, 'Гномы');

         i:= choiceAppendString(z, 'Эльфы');

         addCommand(to_menu);

         addCommand(next);

         k:=formAddString(about_rasa('Orku'));

         repeat

           tmp:=getClickedCommand;

           if tmp=To_menu then begin ok:=true; menu:=true; end;

           if tmp=next then begin

             y:=choiceGetSelectedIndex(z);

             if y=1 then begin formRemove(k); k:=formAddString(about_rasa('Orku')); end;

             if y=2 then begin formRemove(k); k:=formAddString(about_rasa('Ludu')); end;

             if y=3 then begin formRemove(k); k:=formAddString(about_rasa('Gnomu'));end;

             if y=4 then begin formRemove(k); k:=formAddString(about_rasa('Elfu')); end;

             ok:=true;

             Pers.rasa:=y; 

           end;  

         until ok=true;

Ответ: formAddChoice и formAddString

вот такое

Код:

...if tmp=next then begin

             y:=choiceGetSelectedIndex(z);

             if y=1 then begin formRemove(k); k:=formAddString(about_rasa('Orku')); end;...

НЕ КАТИТ! ето ж ваще действия которые должны выполнятсо при нажатии на кнопку ДАлее(команда next)
а мне надо шоб оно на форме как токо ты выбрал какойто пункт сразу выводило текст...

Ответ: formAddChoice и formAddString

Вроде должно работать... возможно проблема в функции about_rassa, проверь что она возвращает... попробуй временно заменить функцию абоут расса на простой выводт текста типа formAddString('Здесь дожно быть описание Орков'); и посмотри будет оно выводиться или нет... если будет, то проблема однозначно в функции...

Ответ: formAddChoice и formAddString

люди проблема была в том шо в текстовых файлах в конце небело пустой строки) а код оказываетсо был правильный ;) Думаю такой ответ достоин внимания