formAddChoice и formAddString

[beZ_probleM]

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

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...
мож ктото поможеТ розобратсо в чом проблема?

[Romanzes]

Так попробуй

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;

[beZ_probleM]

вот такое

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

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

[Frank]

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

[beZ_probleM]

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