Парсинг в listview

[CrystalDF]

Ребята, помогите распарсить страницу view-source:http://37.233.9.237/api/output.php?Name=NipponAuto
Там в тексте в самом конце, есть переход на строку ниже /n но разве это сработает в listview?
Я то разделю ссылку, будет все по отдельности - то-есть полноценный вывод с сайта разделю по частям, там где пишет идентификатор вставлю в 1 столбец, а вывод номера во 2 и т.д.
Но вот, когда я попытался вывести текст из обычного string в listview у меня он отображался в 2 столбцах сразу, а как например отдельно вывести только в 1 столбец одно, а во 2 другое?
Помогите пожалуйста!

[Slym]

uses IdHTTP,IdGlobal;

procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP:TIdHTTP;
  List:TStringList;
  ListItem:TListItem;
  line,s:string;
  i:Integer;
begin
  List:=TStringList.Create;
  try
    HTTP:=TIdHTTP.Create(nil);
    try
      List.Text:=HTTP.Get('http://37.233.9.237/api/output.php?Name=NipponAuto');
    finally
      HTTP.Free;
    end;

    ListView1.Items.Clear;
    ListView1.Columns.Clear;

    line:=List[0];
    while Length(line)>0 do
    begin
      s:=Fetch(line,'|');
      ListView1.Columns.Add.Caption:=Trim(Fetch(s,':'));
    end;

    for i:=0 to List.Count-1 do
    begin
      ListItem:=ListView1.Items.Add;
      line:=List[i];
      while Length(line)>0 do
      begin
        s:=Fetch(line,'|');
        Fetch(s,':');
        if ListItem.Caption='' then
          ListItem.Caption:=Trim(s)
        else
          ListItem.SubItems.Add(Trim(s));
      end;
    end;
    finally
      List.Free;
    end;
end;

[CrystalDF]

Чувак, ты супер спасибо тебе большое!!

Ребят еще одна проблема, а как все это дело выровнять по тексту?
У меня все сжато, в интернете нечего подобного не нашел.

[Slym]

смотри последний пост

[CrystalDF]

Пишет ошибку на AutoWidth(lv1);
[Error] Unit1.pas(276): Incompatible types: 'TListView' and 'TsListView'

Разобрался... Спасибо тебе Slym

При этой функций AutoWidth(lv1); возникает такая ошибочка.
Странно как-то.

[Slym]

смотри последний пост

[CrystalDF]

Спасибо! Да я так и думал что пустая listview и задавать ширину не-где, но не знал как исправить, пытался писать условия если lv1 пустой нужно то нечего не изменять, но мне ошибки писало, и поэтому я чуть понервничал и отправил сюда ошибку. В любом случае спасибо

[Slym]

СТОП!
Нагуглил "правильный метод"

uses CommCtrl;
procedure TForm1.AutoWidth(ListView: TListView);
var
  Col,Wid:Integer;
begin
  ListView.Items.BeginUpdate;
  {only if you want autosized columns or if any column.width=-1}
  for Col := 0 to ListView.Columns.Count - 1 do
    ListView.Columns[Col].Width := 0;

{ this is only needed for automatically setting the widths of the columns}
  for Col := 0 to ListView.Columns.Count - 1 do
  begin
    { autowidth by text in columns }
    ListView.Columns[Col].Width := -1;
    Wid := ListView_GetColumnWidth(ListView.handle, Col);

    { autowidth by text in headers }
    ListView.Columns[Col].Width := -2;
    if ListView_GetColumnWidth(ListView.handle, Col) > Wid then
      Wid := ListView_GetColumnWidth(ListView.handle, Col);

    { the wider of the two }
    ListView.Columns[Col].Width := Wid;
  end; { for }
{ end of autowidth code}
  ListView.Items.EndUpdate;
end;

[CrystalDF]

Слушай, еще один вопросик.
Хотел бы всю строку где написано слово "Возврат" пометить красным цветом.
Я пробовал так сделать, но тут что-то не так.
Условие не знаю какое реализовать.

procedure TAIBook.lv1DrawItem(Sender: TCustomListView; Item: TListItem;
  Rect: TRect; State: TOwnerDrawState);
var i:integer;
var ListItems : TListItems;
begin
 with Sender do
  for i:=0 to length(Item.Caption) do begin
    if lv1.ListItems('Âîçâðàò') then canvas.Pen.Color:=clred else canvas.Pen.Color:=clblack;
    Canvas.TextOut(rect.Left+i+Canvas.TextWidth('W'),Rect.Top,Item.Caption[i]);
  end;
end;

[CrystalDF]

Сообщение от Slym

СТОП!
Нагуглил "правильный метод"

uses CommCtrl;
procedure TForm1.AutoWidth(ListView: TListView);
var
  Col,Wid:Integer;
begin
  ListView.Items.BeginUpdate;
  {only if you want autosized columns or if any column.width=-1}
  for Col := 0 to ListView.Columns.Count - 1 do
    ListView.Columns[Col].Width := 0;

{ this is only needed for automatically setting the widths of the columns}
  for Col := 0 to ListView.Columns.Count - 1 do
  begin
    { autowidth by text in columns }
    ListView.Columns[Col].Width := -1;
    Wid := ListView_GetColumnWidth(ListView.handle, Col);

    { autowidth by text in headers }
    ListView.Columns[Col].Width := -2;
    if ListView_GetColumnWidth(ListView.handle, Col) > Wid then
      Wid := ListView_GetColumnWidth(ListView.handle, Col);

    { the wider of the two }
    ListView.Columns[Col].Width := Wid;
  end; { for }
{ end of autowidth code}
  ListView.Items.EndUpdate;
end;

Заменил, спасибо