Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ функция Choose(n:byte; C1: String): String возвращает значение из списка

Автор: Багирка 26.12.2008 19:13

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

Автор: Lapp 26.12.2008 19:57

Вот вариант:

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;

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

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

Автор: volvo 26.12.2008 20:15

Цитата
Тут входная строка 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;

Автор: Багирка 26.12.2008 20:19

Цитата(volvo @ 26.12.2008 16:15) *

Тут этот недостаток отсутствует, можно и 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;



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

Добавлено через 1 мин.
Цитата(Lapp @ 26.12.2008 15:57) *

Вот вариант:
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;

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

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



Пасииииба!!!!!!!!!!!!!!!! wub.gif

Автор: Lapp 26.12.2008 20:55

Цитата(volvo @ 26.12.2008 16:15) *
Тут этот недостаток отсутствует, можно и 255 символов:
в угоду некоей непонятной прихоти smile.gif я сознательно избегал введения дополнительных переменных в функции. Я не хочу сказать, что это хоть сколько-то важно (а может даже наоборот..), но все же..

короче, вот вариант без ограничений на 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;


Просто так.. smile.gif