Удалить буквы из строки

[Stilet]

я думаю, что через StringReplace данную задачу решить не получится...

Согласен. Регулярками можно. Однако в Делфи автора темы их может не быть.

[artemavd]

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

Как это?!
я думаю, что через StringReplace данную задачу решить не получится...

И тем не менее я бы поизвращался над решением и попробовал бы как-то так:

var
 s,k: string;
 i: integer;
begin
 k:='';
 s:='uy43gujh423';
 for i:=1 to Length(s) do
 begin
  if s[i] in [0..9] then
  begin
   k:=k + StringReplace(s[i],'',[rfReplaceAll]);
  end;
 end;
end;

Сразу предупреждаю, что это всего лишь теория! Но я бы ради интереса все равно попробовал сделать так. Почему-то уверен, что это возможно. Главное правильно передать строка и применить функцию

[Stilet]

Тогда уж так:

for c:='0' to '9' do s:=StringReplace(s,c,'',[rfreplaceall]);

[Аватар]

artemavd, чет не то. Вот шуточный вариант для Д7

  for c:=chr(0) to chr(255) do
    if not (c in ['0'..'9','.']) then s:=StringReplace(s,c,'',[rfReplaceAll]);

Виталий, зачем цифры убивать

[Stilet]

Тьху... Задачу перетупал... Ну да ты прав конечно. Но ИМХО for c:='a' to 'z' лучше будет, по крайней мере при юникоде.

[Аватар]

for c:='a' to 'z' лучше будет, по крайней мере при юникоде

не, я обработал строку-монстра, куда напихали чего не лень. Для юникода уже код монстром в квадрате станет, хотя он и так монстровидный