Вытащить из строки с ип адресом последние цифры

[AppData]

добрый день.

пытался всяческий попостить POS но так и не смог

хочу из вытащить из строки с ip адресом последние цифры

они могут быть и 3 значные так и 1 цифра

[macomics]

  i:=Length(str);
  while (i >= 1) and (ord(str[i]) >= $30) and (ord(str[i]) <= $39) do dec(i);
  i:=strtoint(copy(str, i + 1, Length(str) - i));

[AppData]

var
i:integer;
str: String;
begini:=Length(str);
  while (i >= 1) and (ord(str[i]) >= $30) and (ord(str[i]) <= $39) do dec(i);
  i:=strtoint(copy(str, i + 1, Length(str) - i));
  Edit1.Text := str;
  Form1.Caption := Edit1.Text;
end;

что то не так

[BDA]

AppData, потому что результат в виде числа находится в i, её и нужно показывать в эдите.
macomics, сравнивать можно и без ord сразу с цифрами.

[macomics]

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

macomics, сравнивать можно и без ord сразу с цифрами.

С цифрами у меня Warning вылазит. А переводить в 10-ю систему #48 / #57 не наглядно.

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

что то не так

Я вам цифру уже перевел в бинарный вид из текстового и результат в переменной i.

copy(str, i + 1, Length(str) - i)

Это текстовое представление.

[AppData]

str:=form1.edit1.text;
for i:=1 to length(str) do
if (ord(str[i])>=30) and (ord(str[i])<=39) then integer //30..39 коди чисел в таблице кодировки символов
else string;

var fl:boolean;
    i:integer;
    str:string;
begin
 str:=Edit1.Text;
 fl:=true;
 for i:=1 to length(str) do
  if not(str[i] in ['0'..'9']) then
   fl:=false;

 if fl then {integer}
  else {string}
end;

[macomics]

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

//30..39 коди чисел в таблице кодировки символов

А куда $ делись. Это 16-ое представление. Я же написал #48 = $30.

ADD: Я вам написал сканирование строки от конца к началу. Вам же нужна цифра с конца

for i:=Length(str) downto 1 do if (ord(str[i]) < $30) and (ord(str[i]) > $39) then index:=i;
copy(str, index + 1, Length(str) - i)

С циклом for понадобится объявить счетчик цикла и дополнительную переменную сохраняющую index.

[AppData]

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

А куда $ делись. Это 16-ое представление. Я же написал #48 = $30.

ADD: Я вам написал сканирование строки от конца к началу. Вам же нужна цифра с конца

for i:=Length(str) downto 1 do if (ord(str[i]) < $30) and (ord(str[i]) > $39) then index:=i;
copy(str, index + 1, Length(str) - i)

С циклом for понадобится объявить счетчик цикла и дополнительную переменную сохраняющую index.

есть пример?

[macomics]

procedure TForm1.Button1.OnClick(Sender:TObject);
var
  i:integer;
  str: String;
begin
  str := Edit1.Text;
  i:=Length(str);
  while (i > 0) and (ord(str[i]) - $30 < 10) do dec(i);
  str := copy(str, i + 1, Length(str) - i);
  Form1.Caption := str;
  i:=strtoint(str);
end;

[AppData]

о чем и речь