Разделение строки с одинаковыми элементами

@MobileDemon · Регистрация: 31.12.2009

Как отделить от строки MAUI_06B_W07_12 последнее значение?

deathNC · 19.02.2010, 09:08

Полагаю, так:

Delphi

function GetLast(S: String): String;
var
  i: Integer
begin
  Result := '';
  For i := 1 to Length(S) do
    If s[i] = '_' then
      Result := ''
    Else
      Result := Result + S[i];
end;

Добавлено через 1 минуту
Теперь просто юзай функцию:
PosledneeZnachenie := GetLast('MAUI_06B_W07_12');

Добавлено через 15 секунд
Поправь, если ошибаюсь

@Biggemot · 19.02.2010, 10:56

еще можно рекурсией

Delphi

function GetLast(const S: string): string;
begin
  if pos('_', S)<>0 then GetLast:=GetLast(copy(S,2,Length(S)))
  else GetLast:=S;
end;

deathNC · 19.02.2010, 11:07

Biggemot, ага....

+1
и так можно!!!

MobileDemon, проверяй наши решения!

@MobileDemon · 19.02.2010, 14:00 **[ТС]**

Оба решения работают

спасибо

@MobileDemon 1 / 1 / 1 Регистрация: 31.12.2009 Сообщений: 33
		1
	Разделение строки с одинаковыми элементами 19.02.2010, 08:48. Просмотров 748. Ответов 4 Метки нет (Все метки) Как отделить от строки MAUI_06B_W07_12 последнее значение? 0

deathNC 1903 / 1014 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	19.02.2010, 11:07	4
	Biggemot, ага.... +1 и так можно!!! MobileDemon, проверяй наши решения! 0

@MobileDemon 1 / 1 / 1 Регистрация: 31.12.2009 Сообщений: 33
	19.02.2010, 14:00 [ТС]	5
	Оба решения работают спасибо 0

Опции темы