функция Choose(n:byte; C1: String): String возвращает значение из списка, Если кто нибудь не поможет! то допса мне обеспечена.... Опции

[Багирка]

функция choose(n:byte; c1: string): string возвращает значение из списка, выбранное на основании значения аргумена N. если N=1 то возвращается первый элемент списка С1, если индекс =2, то возвращается второй элемент списка и т.п. списокС1 представляет собой строку текста, содержащего перечень альтернативных вариантов возвращаемых подстрок, разделенных запятыми. Хееееелп!!!

[Lapp]

Вот вариант:

function Choose(n: byte; c1: string): string;
begin
  c1:=c1+',';
  if n=1 then Choose:=Copy(c1,1,Pos(',',c1)-1)
  else Choose:=Choose(n-1,Copy(c1,Pos(',',c1)+1,Length(c1)-Pos(',',c1)))
end;

Он немножко нечестный... Тут входная строка c1 не должна быть больше 254 символов (то есть на один меньше максимума). Это важно?

Добавлено через 10 мин.
И не забудь обработать нештатные ситуации типа n=0 . Если нужно, конечно.