[Делфи] Определить что текст явл. айпи адресом

[zotox]

Всем здрасти, вопрос по делфи,
Есть edit, в нем записан текст, нужно определить программно айпи адрес есть ли он там в edit'е (либо там айпи адрес один (без лишнего текста я имею ввиду), либо там может быть какой либо текст но не айпи адрес)

Собственно как это сделать? (давайте щас не будем касаться на скоко строг айпи адрес, т.е. адрес такого типа 624.526.244.881 - "не строгий" (думаю понятно всем почему такой айпи адрес считается не правильным))

Жду советов

[Вавел из ГМТУ]

Мне не понятно, почему этот АПИ адрес не верен..... : \

Ну сделать проверку по условиям:
1. Только цифры и точки.
2. Шаблон *.*.*.*

[netrino]

Потому что макс может быть 255.255.255.255
Есть стандартный контрол IP-адрес, можете его использовать и быть уверенным, что адрес будет введён верно. Или можно попробовать по нему подключиться - если не получилось, значит неправильный формат адреса

[Вавел из ГМТУ]

:-D

Ну добавилось ещё одно условие:
....
3. Значения должны быть не меньше 0 и не больше 255.

[zotox]

Сообщение от Вавел из ГМТУ

3. Значения должны быть не меньше 0 и не больше 255.

ЦИТАТА ИЗ ПЕРВОГО СООБЩЕНИЯ "(давайте щас не будем касаться на скоко строг айпи адрес, т.е. адрес такого типа 624.526.244.881 - "не строгий" (думаю понятно всем почему такой айпи адрес считается не правильным))"

1. Только цифры и точки.
2. Шаблон *.*.*.*

Давайте вы уже будете кидать исходники/мануалы на подобные функционалы (или же примеры того чего я хочу)(то что вы перечислили) а не на словах, на словах я тоже замечательно могу рассказывать

[Вавел из ГМТУ]

Какие ещё мануалы

Чтото типа такого.. А уж до рабочего состояния сам доводи.... Нет тут такого "Эй двое из ларца одинаково с лица..."

C := ''; Ok := True;
For i := 1 To Length(S) Do
Begin
C := C + S[i];
If (Length(C) > 3) Or (C = '') Or (Pos('1234567890.', S[i])) Then Ok := False;
If S[i] = '.' Then C := '';
End;

[zotox]

Какие ещё мануалы

Это типа статей

Нет тут такого "Эй двое из ларца одинаково с лица..."

Да это понятно :-) (мультик мне понравился)

C := ''; Ok := True;
For i := 1 To Length(S) Do
Begin
C := C + S[i];
If (Length(C) > 3) Or (C = '') Or (Pos('1234567890.', S[i])) Then Ok := False;
If S[i] = '.' Then C := '';
End;

Объяви если можно переменные

(у меня пишет ошибку "Operation not applicable to this operand type" скорее всего не так объявляю (ост. на строке где if и or))

[Вавел из ГМТУ]

S и С это String.... Тобишь
S := Edit1.Text;

Вот, осталось только проврку сделать на диапазон:

S := '999.999.9999.999';
C := S[1]; Ok := True; VPoint := 0;
If (S[1] = '.') Or (S[Length(S)] = '.') Then Ok := False;
For i := 2 To Length(S) Do
Begin
If S[i] = '.' Then
  Begin
    C := '';
    VPoint := Vpoint + 1;
    If S[i-1] = '.' Then Ok := False;
  End;
If (Pos(S[i], '1234567890.') = 0) Or
   (Length(C) > 3) Or
   (Vpoint > 3) Then Ok := False;
C := C + S[i];
End;

[zotox]

Сообщение от Вавел из ГМТУ

Вот, осталось только проврку сделать на диапазон:

S := '999.999.9999.999';
C := S[1]; Ok := True; VPoint := 0;
If (S[1] = '.') Or (S[Length(S)] = '.') Then Ok := False;
For i := 2 To Length(S) Do
Begin
If S[i] = '.' Then
  Begin
    C := '';
    VPoint := Vpoint + 1;
    If S[i-1] = '.' Then Ok := False;
  End;
If (Pos(S[i], '1234567890.') = 0) Or
   (Length(C) > 3) Or
   (Vpoint > 3) Then Ok := False;
C := C + S[i];
End;

Ок спасибо
Тему можно закрывать я так думаю, дальше сам подумаю

[Вавел из ГМТУ]

Эта строка выглядит довольно странно:

if pos('.',s[i])<>0 then....