При вводе более 3-х одинаковых символов удалять символ

[Stilet]

Аватар, не вариант. В IP байты а не целые.

Еще как вариант. Для ввода.
Насчет сравнения байтов с целыми, я как-то недопонял...

[s-andriano]

Сообщение от Алексей_2012

вводится ip адрес например 255.255.255.233

допустимо только три точки, остальные не будут прописываться, вот этого и хочу добиться

Тогда Человек_Борща прав, и это Вам не нужно, т.к. позволяет ввести строку типа "654..83.2190".
Надо проверять и ограничивать по сложным алгоритмам все позиции. Например, не позволять вводить подряд 4-ю цифру, а если первые две больше 25, то и третью. А если ровно 25, то цифра должна быть не более 5 и т.п.

[Алексей_2012]

function Cut(var aStr: string; aFrom, aTo: Integer;
  const aToLen: Integer = 0): string;
begin
  if aToLen = 0 then
    Result := Copy(aStr, aFrom, aTo)
  else
    Result := Copy(aStr, aFrom, aTo - aToLen);
  Delete(aStr, aFrom, aTo);
end;

а что делает эта функция?

[Человек_Борща]

Вырезает(передает в результат и удаляет из aStr) буквы с позиции aFrom до позиции aTo из строки aStr.

Надо проверять и ограничивать по сложным алгоритмам все позиции. Например, не позволять вводить подряд 4-ю цифру, а если первые две больше 25, то и третью. А если ровно 25, то цифра должна быть не более 5 и т.п.

Наличие 3-х точек так же проверяется.
незачем эти длинны байтов в качестве строки выверять. На 1 странице я привел функцию, где под конец, строки переводятся в числа, и если число больше 255(3 знаков, как строка) то IP будет не правильным.

Насчет сравнения байтов с целыми, я как-то недопонял...

В IP адресе идут байты, т.е. число от 0 до 255(включительно).
В MaskEdit можно напихать 454.454.453.567 и капец.

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

[Алексей_2012]

procedure TForm1.Button1Click(Sender: TObject);
begin
 if IsValidIPv4(Edit1.Text) then
 ShowMessage('IP-адрес введен корректно!')
 else
 ShowMessage('IP-адрес введен не корректно!');
end;

а вот что записать в функцию сut? туда же не запишется все автоматом

function Cut(var aStr: string; aFrom, aTo: Integer;
  const aToLen: Integer = 0): string;
begin
  if aToLen = 0 then
    Result := Copy(aStr, aFrom, aTo)
  else
    Result := Copy(aStr, aFrom, aTo - aToLen);
  Delete(aStr, aFrom, aTo);
end;


function IsValidIPv4(const aStr: string): Boolean;
var
  Bytes: array [1 .. 4] of string;
  ByteCheck: array [1 .. 4] of Boolean;
  s: string;
  p, i: Integer;
begin
  Result := False;
  s := Trim(aStr);
  if (Length(s) > 15) then  Exit; 
  p := Pos('.', s);
  if (p = 0) then Exit; 
  Bytes[1] := Trim(Cut(s, 1, p, 1));
  p := Pos('.', s);
  if (p = 0) then  Exit;
  Bytes[2] := Trim(Cut(s, 1, p, 1));
  p := Pos('.', s);
  if (p = 0) then Exit; 
  Bytes[3] := Trim(Cut(s, 1, p, 1));
  Bytes[4] := Trim(s);
  for i := 1 to 4 do
  begin
    if TryStrToInt(Bytes[i], p) then
      ByteCheck[i] := (p <= 255) and (p >= 0);
  end;
  Result := (ByteCheck[1] and ByteCheck[2] and ByteCheck[3] and ByteCheck[4]);
end;

[Человек_Борща]

а вот что записать в функцию сut? туда же не запишется все автоматом

Она используется в IsValidIPv4. Вам туда ничего не надо писать, если не работаете со строками.

[s-andriano]

Сообщение от Человек_Борща

Проверять по ходу ввода тоже не имеет никакого смысла.

Откуда информация?

[Аватар]

Можно и покороче если без MaskEdit

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    lEditIP: HWND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  InitCommonControl(ICC_INTERNET_CLASSES);
  lEditIP:=CreateWindow(WC_IPADDRESS,nil,WS_TABSTOP or WS_CHILD or WS_VISIBLE,Label1.Left,Label1.Top+Label1.Height+5,120,21,Handle,0,hInstance,nil);
  Windows.SetFocus(lEditIP);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DestroyWindow(lEditIP);
end;

procedure TForm1.Button1Click(Sender: TObject);
var lIP: Longint;
begin
  SendMessage(lEditIP,IPM_GETADDRESS,0,Longint(@lIP));
  ShowMessage(IntToStr(lIP));
end;