ANTICHAT — форум по информационной безопасности, OSINT и технологиям

var   
  Form1: TForm1;   
  tserv: TTcpServer;   
  tclient:TTcpClient;   
  t: string;   
  
procedure TForm1.FormCreate(Sender: TObject);   
begin   
  tserv:=TTcpServer.Create(NIL);   
  tserv.LocalPort:='1111';   
  tserv.Active:=True;   
  begin   
    repeat   
    sleep(500);   
    t:=tserv.Receiveln();   
    if t='test' then   
      MessageBox(0, 'test', 'test',0);   
    until true   
  end;   
end;   
  
procedure TForm1.Button1Click(Sender: TObject);   
begin   
  tclient:=TTcpClient.Create(NIL);   
  tclient.RemoteHost:='127.0.0.1';   
  tclient.RemotePort:='1111';   
  tclient.Active:=True;   
end;   
  
procedure TForm1.Button2Click(Sender: TObject);   
begin   
  tclient.Sendln('test');   
end;

type
  TTypeStr = (tsString, tsDate, tsNumber);

function CheckString(const Value: string): TTypeStr;
begin
  if StrToDateTimeDef(Value, 0) = 0 then
    if StrToIntDef(Value, 0) = 0 then
      Result := tsString
    else
      Result := tsNumber
  else
    Result := tsDate
end;

program tmp;
var
  a: integer;
  begin
write('Enter a number: ');
{$I-}
 readln(a);
{$I+}
if (ioresult <> 0) then begin
  writeln('Its not integer');
  readln(a);
end else begin
  write('All rigth, its integer');
  readln(a);
end;
end.