функция 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 . Если нужно, конечно.

[volvo]

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

Тут этот недостаток отсутствует, можно и 255 символов:

function Choose(n: byte; s: string): string;
var p: integer;
begin
  p := pos(',', s); if p = 0 then p := 256;
  if n = 1 then Choose := Copy(s, 1, p - 1)
  else Choose := Choose(n - 1,Copy(s, p + 1, 255));
end;

[Багирка]

Тут этот недостаток отсутствует, можно и 255 символов:

function Choose(n: byte; s: string): string;
var p: integer;
begin
  p := pos(',', s); if p = 0 then p := 256;
  if n = 1 then Choose := Copy(s, 1, p - 1)
  else Choose := Choose(n - 1,Copy(s, p + 1, 255));
end;

Ороменнейшее спасибо!!!!!!!!!!!!!!!!

Добавлено через 1 мин.

Вот вариант:

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 . Если нужно, конечно.

Пасииииба!!!!!!!!!!!!!!!!

[Lapp]

Тут этот недостаток отсутствует, можно и 255 символов:

в угоду некоей непонятной прихоти я сознательно избегал введения дополнительных переменных в функции. Я не хочу сказать, что это хоть сколько-то важно (а может даже наоборот..), но все же..

короче, вот вариант без ограничений на c1 и без дополнительных переменных:

function Choose(n: byte; c1: string): string;
begin
  if Pos(',',c1)=0 then if n=1 then Choose:=c1 else Choose:=''
  else 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;

Просто так..