[Shaft]

Здравствуйте!
Такая проблема:
Нужно разбить строку и записать ее в пять переменных
Приблизительно так:

Строка например:
192.168.1.101:27015

Например объявлены пять переменных
(octetIP1 octetIP2 octetIP3 octetIP4 Port)
и строку надо записать следующим образом что бы:
octetIP1 = 192
octetIP2 = 168
octetIP3 = 1
octetIP4 = 101
Port = 27015

Перекопал много инфы и ничего не нашел. Проблема в том что IPадрес будет всегда разный и за ранее мне не известен.

Подскажите пожалуйста как можно решить задачу?

[Bargest]

1) Регекспы.
2) Pos, PosEx, Copy. Ищем первую точку, копируем все до нее, делаем StrToInt, затем ищем следующую точку, и т.д.
3) В лоб:

Код:

var data:array[0..4] of integer;
...
j := 0;
for i := 0 to 4 do
    data[i] := 0;
for i := 1 to length(str) do
begin
    if (str[i] >= '0') and (str[i] <= '9')
        data[j] := data[j] * 10 + ord(str[i]) - 48;
    else if (str[i] = '.') or (str[i] = ':')
    begin
        j := j + 1;
        if (j > 4)
            break;  // или сообщение об ошибке
    end;
    else
       break; // или сообщение об ошибке
end;

Тут как побочный эффект будут также парситься например 192:168:1:101.27015.
Первые 4 элемента массива будут IP, пятый - порт.
З.Ы. Кстати, если это связано с предыдущим постом - зачем сначала все собирать в строку, а потом парсить назад в числа?

[Shaft]

Спасибо! а если не сложно можно не большой примерчик пжл?

P.S. Я создаю свой Master Server, в предыдущей теме я пытался имитировать клиент игры и отправлял запросы на Официальный Master, мне нужно было принять ответ и полностью расшифровать его, что бы я потом мог сам отправлять эти ответы в правильном виде.

[Shaft]

Ну не то что бы совсем ничего, для моего случая не могу найти(
Спасибо! Буду пробовать

[PhoeniX]

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

Ну не то что бы совсем ничего, для моего случая не могу найти(

Привыкай к тому, что "для твоего случая" никогда и ничего найти не получится. Ты должен сам уметь строить необходимый алгоритм из мелких частей.

[Bargest]

P.S. Я создаю свой Master Server, в предыдущей теме я пытался имитировать клиент игры и отправлял запросы на Официальный Master, мне нужно было принять ответ и полностью расшифровать его, что бы я потом мог сам отправлять эти ответы в правильном виде.

Я тоже делал свой мастер-сервер. Только не для valve-игр, а для другой. Но структура такая же. И я ума не приложу, зачем парсить строку. Мастер-сервер принимает сообщения вида "создан сервер тут на таком-то порту" от создаваемых серверов, в бинарном виде. Добавляет в свою таблицу IP и порт и рассылает всем клиентам по запросу этот список (что и было сделано тобой в прошлой теме).
Вот где тут парсинг строки?

[PhoeniX]

Неужели действительно "ничего не нашёл"?

Код:

var
  ip: string;
  octetIP1, octetIP2, octetIP3, octetIP4, Port: Integer;
begin
  ip := '192.168.1.101:27015';
  octetIP1 := StrToInt(copy(ip,1,pos('.',ip)-1));
  delete(ip,1,pos('.',ip));
  octetIP2 := StrToInt(copy(ip,1,pos('.',ip)-1));
  delete(ip,1,pos('.',ip));
  octetIP3 := StrToInt(copy(ip,1,pos('.',ip)-1));
  delete(ip,1,pos('.',ip));
  octetIP4 := StrToInt(copy(ip,1,pos('.',ip)-1));
  delete(ip,1,pos('.',ip));
  Port := StrToInt(ip);
end;