| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Разделение строки [D5, WinXP]

Lord de Mon ©   (2004-08-30 21:26:00) 

Уважаемые Мастера!Подскажыте пожалуйста как разделить строку "192.168.158.157:3128" на "192.168.158.157" и "3128".

---

default   (2004-08-30 23:44:00) [1]

begin...end ©   (30.08.04 22:23) [5]
я тоже сначала так подумал зачем искать...но увидев твой код подумал что последнее число переменно по числу разрядов

---

begin...end   (2004-08-30 22:23:00) [2]

> [4] default ©   (30.08.04 22:16)

Согласен, для данной строки - лучше.
Кстати, для неё (и подобных IP) можно и вообще не искать: Position = 16 :-)

---

default   (2004-08-30 22:16:00) [3]

begin...end ©   (30.08.04 22:03) [3]
лучше вместо Pos-а просто искать в цикле ':' с правой стороны строки

---

begin...end   (2004-08-30 22:03:00) [4]

> [2] Lord de Mon ©   (30.08.04 21:43)


Кстати, вот ещё вариант:

var
 S, S1, S2: String;
 Position: Integer;
begin
 S := '192.168.158.157:3128';
 Position := Pos(':', S);
 S1 := Copy(S, 1, Position - 1);
 S2 := Copy(S, Position + 1, Length(S) - Position);
end.


Ти даже не представляешь как я тебе благодарен.
Большое Тебе спасибо.

Ну вот теперь мне можно пойти спать с хорошим настроением :-)

---

Lord de Mon   (2004-08-30 21:43:00) [5]

Дорогой begin...end. Ти даже не представляешь как я тебе благодарен. Откуда у Тебя терпение столько помогать такому незнайке как я? Большое Тебе спасибо.

---

begin...end   (2004-08-30 21:36:00) [6]

uses StrUtils;

var
 S, S1, S2: String;

begin
 S := '192.168.158.157:3128';
 S1 := LeftStr(S, Pos(':', S) - 1);
 S2 := RightStr(S, Length(S) - Pos(':', S));
end.

---

Наверх