[Denisonin]

Здравствуйте!

Есть:
Edit1, значение которого - "asdqwerty (рандомное число от 0 до 300)"

Нужно:
Убрать значение в скобках из Edit`а, чтобы в итоге получилось - "asdqwerty".

Проблемы:
Значение может быть (0), ... ,(10), ..., (100), ..., (300), то есть удалять кол-во символов не вариант, так как оно может меняться.

[phomm]

Код:

1 2 3 4 5 6 7 8 9 10 11 12

function KillTrailingDigits(S: string): string; var   i, idx: Integer; begin   idx := 0;   for i := Length(s) downto 1 do     if s[i] in ['0'..'9'] then       Inc(idx)     else       Break;   Result := Copy(s, 1, Length(s) - idx)); end;

[Denisonin]

Сообщение от phomm

Код:

Не работает.
Пример значения - "aklsdjakls(312)". Скобки!

[phomm]

Конечно не работает. Код даётся не для копипасты, а для вдумчивого изучния и поиска зерна. Лично я не понял что скобки именно присутствуют в строке, я думал, вы так указываете их обособленность от остальной строки.
Направление для исправления кода - исправить подсчёт символов для удаления, для чего помимо цифр использовать и скобки, где цифры проверяются, видите ? Вот там же и скобки добавить.

[Alegun]

Код:

1 2 3 4 5 6 7

function ptg(ds:string):string; var i: integer; begin for i := 1 to Length(ds) do if ds[i] <> '(' then Result:= Result + ds[i] else Exit; end;

[x128]

Я правильно понимаю, нужно копировать текст до первой открывающейся скобки?

Код:

1	s:=Copy(s, 1, Pos('(',s));

[M.A.D.M.A.N.]

Сделай конечный автомат.

[Bargest]

Ищем открывающуюся скобку (Pos). Ищем закрывающуюся скобку (Pos/PosEx). Удаляем кусок строки по полученным индексам.
Если же после скобок ничего быть не может - то как сказал x128.