Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.01.2009, 13:06   #1
jay-forum
 
Регистрация: 12.01.2009
Сообщений: 3
По умолчанию Как инфу от idwhois разбить по строкам?

С помощью idwhois получаю инфу о домене, но инфа выводится одной строкой с вертикальными черточками. Вот вопрос, как можно разбить все это по строкам?
jay-forum вне форума Ответить с цитированием
Старый 12.01.2009, 14:14   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

так замените все вертикальные строки на переводы строки
функция stringreplace
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 12.01.2009, 14:34   #3
jay-forum
 
Регистрация: 12.01.2009
Сообщений: 3
По умолчанию

пробовал #13#10 не помогает
или код другой?
jay-forum вне форума Ответить с цитированием
Старый 12.01.2009, 14:53   #4
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

У меня кпримеру все корректно отображается и так:
Код:
unit Unit25;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdWhois;

type
  TForm25 = class(TForm)
    idwhs1: TIdWhois;
    btn1: TButton;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form25: TForm25;

implementation

{$R *.dfm}

procedure TForm25.btn1Click(Sender: TObject);
begin
mmo1.Lines.Text:=idwhs1.WhoIs('www.ru');
end;

end.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 12.01.2009, 16:11   #5
jay-forum
 
Регистрация: 12.01.2009
Сообщений: 3
По умолчанию

спасибо,
а то я юзал Memo.Text и Memo.Lines.Add
jay-forum вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сделать приложение которое снимает инфу с COM-порта. Uwe Общие вопросы Delphi 3 05.11.2008 03:44
Как разбить число по числам? maxim_ov Microsoft Office Excel 3 04.08.2008 16:23
как разбить таблицу при копировании StasSv Microsoft Office Excel 3 11.02.2008 10:23
IdWhoIs DartMrakkk Работа с сетью в Delphi 1 28.12.2007 22:25
как разбить текстовую ячейку на отдельные ячейки? zetrix Microsoft Office Excel 0 31.10.2006 07:46