}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: fd2c0078 Описание: Код загружен: 13 июля 2011, 19:15 (Моисеев Евгений Леонидович)

  1. unit Unit10;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  8. IdTCPClient, IdWhois;
  9.  
  10. type
  11. TForm10 = class(TForm)
  12. IdWhois1: TIdWhois;
  13. Edit1: TEdit;
  14. Button1: TButton;
  15. Memo1: TMemo;
  16. procedure Button1Click(Sender: TObject);
  17. private
  18. { Private declarations }
  19. public
  20. { Public declarations }
  21. end;
  22.  
  23. var
  24. Form10: TForm10;
  25.  
  26. implementation
  27.  
  28. {$R *.dfm}
  29.  
  30. procedure TForm10.Button1Click(Sender: TObject);
  31. var
  32. Line,FindResult: string;
  33. iPos: Integer;
  34. begin
  35. Memo1.Clear; //Очистка содержимого компонента TMemo
  36. FindResult := IdWhoi
  37. FindResult := IdWhois1.WhoIs(Edit1.Text); //информации
  38. while Length(FindResult) > 0 do
  39. begin
  40. iPos := Pos(#10, FindResu
  41. while Length(FindResult) > 0 do
  42. begin
  43. iPos := Pos(#10, FindResult);
  44. Line := Copy(FindResult, 1, iPos - 1);
  45. Memo1.Lines.Add(Line

Ссылка на данный код:

На главную страницу сервиса обмена кодом »