Сравнение данных

[Terikon]

Serge_Bliznykov благадарю вас, вы меня очень выручили это то что мне нужно

[Serge_Bliznykov]

всегда пожалуйста. Будут вопросы - обращайтесь!

[Terikon]

Ещё появился вопрос, как мне правильно записать текст в StringList

var 
a,b,c:string;
...
begin
...
a:=copy...(син)
...
b:=copy...(зел)
...
c:=copy...(красн)
...
Memo2.Lines.Add(a);
Memo2.Lines.Add(b);
Memo2.Lines.Add(c);

В результате я получаю текст из 1 поста в Memo, но нужно обойтись без Memo и сразу записывать данные в StringList

[Serge_Bliznykov]

или я не понял, что именно Вам надо, или:

StringList.Add( copy (...)); {синия}
StringList.Add( copy (...)); {зеленая}

[Terikon]

Делал так:

t := TStringList.Create;
t.Add(a);
t.Add(b);
t.Add(c);
Memo2.Text:=(t.Text);

Для проверки загружаю в Memo2, в результате в Memo2 добавлялась только одна строка(должно быть около сотни) (id=4563 777 0), Нужно сделать чтобы сначала после обработки в StringList добавились все строки, а потом только уже грузились в Memo2.

[Stilet]

сначала после обработки в StringList добавились все строки, а потом только уже грузились в Memo2.

Куда добавились?

Memo2.Text:=(ty.Text);

может имеется ввиду t.Text?

[Terikon]

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

Куда добавились?

может имеется ввиду t.Text?

Да в t.Text на форуме опечатался, уже исправил.

Добовились из стринглист в мемо

[Serge_Bliznykov]

Вы ищите проблему не там, где она есть!
вот попробуйте такой код:

procedure TForm1.Button4Click(Sender: TObject);
var
  t : TStringList;
  a,b,c : string;
begin
  a := 'aaaaaaa';
  b := 'bbbbbbb';
  c := 'ccccccccccccc';
  t := TStringList.Create;
  t.Add(a);
  t.Add(b);
  t.Add(c);
  Memo2.Text:=(t.Text);
  t.Free;
end;

у меня всё работает как часы!
значит, либо вы не добавляете в TStringList
(проверить, сколько там строк можно через
ShowMessage('count='+IntToStr(t.Cou nt));
)
либо, в цикле переписываете Memo2.Text (присвоение текста автоматически стирает всё то, что было в Memo2 до присвоения!!!!

ну.. или выкладывайте целиком проект - посмотрим, что Вы там напортачили! (p.s. не забудьте перед выкладыванием запаковать необходимые файлы в архив, и выкладывайте только архив!)

[Terikon]

Когда подключаю скрипт Serge_Bliznykova, он выдаёт первую строку из стринг листа вот здесь проект http://slil.ru/27437733

[Serge_Bliznykov]

ну Вы блин и путаник... чем разгрести Ваш парсинг, проще было свой написать!

procedure TForm1.Button1Click(Sender: TObject);
var
  BlockStart, BlockEnd, pos0, pos1 : integer;
  s: string;
  ts: TStringList;
  sSub, s1 : string;
  v, MaxV: integer;
  MaxID: string;

begin
  s := Memo1.Text;
  s := ReplaceStr(s, #$0d#$0a,'');
  BlockStart := Pos('<tr class=row8>',LowerCase(s));
  ts := TStringList.Create;
  while BlockStart > 0 do begin
    BlockEnd := PosEx('</tr>',LowerCase(s),BlockStart);
    if (BlockEnd = 0) then Break;
    sSub := Copy(LowerCase(s), BlockStart, BlockEnd - BlockStart );

    Pos0 := Pos('href=/realty.php?id=', sSub);
    if (Pos0 = 0) then Break;
    Pos1 := PosEx('>', sSub, Pos0+1);
    s1 := Copy(sSub, Pos0 + length('href=/realty.php?id='), Pos1 - length('href=/realty.php?id=') - Pos0 );
    ts.Add(s1);

    Pos0 := PosEx('<td>', sSub, Pos1+1);
    Pos0 := PosEx('<td>', sSub, Pos0+1);
    Pos0 := PosEx('<td>', sSub, Pos0+1);
    if (Pos0 = 0) then Break;
    Pos1 := PosEx(' ', sSub, Pos0);
    s1 := Copy(sSub, Pos0 + Length('<td>'), Pos1 - Length('<td>') - Pos0 );
    ts.Add(s1);

    Pos0 := PosEx('<td>', sSub, Pos0+1);
    if (Pos0 = 0) then Break;
    Pos1 := PosEx('</td>', sSub, Pos0);
    s1 := Copy(sSub, Pos0 + Length('<td>'), Pos1 - Length('<td>') - Pos0 );
    ts.Add(s1);

    BlockStart := PosEx('<tr class=row8>',LowerCase(s),BlockEnd);
  end;

  if ts.Count < 2 then begin
      Application.MessageBox(
        'в файле недостаточно строк',
        'Ошибка', MB_ICONSTOP or MB_OK);
      ts.Free;
      Exit;
    end;
    MaxID := '';
    MaxV := -1 * MaxInt;
    for i := 0 to (ts.Count div 3) - 1 do begin
      try
        s := Trim(ts.Strings[i * 3 + 2]);
        v := StrToInt(s);
        if v <> 0 then begin
          s := Trim(ts.Strings[i * 3 + 1]);
          v := StrToInt(s);
          if v > MaxV then begin
            MaxV := v;
            MaxID := ts.Strings[i * 3];
          end;
        end;
      except
        Application.MessageBox(
          PChar('Неверное число в строке ' + s),
          'Ошибка', MB_ICONSTOP or MB_OK);
        ts.Free;
        Exit;
      end;
    end;
    Application.MessageBox(
      PChar('Максимальное число = ' + IntToStr(MaxV) + ' в блоке с ID=' + MaxID),
      'Сообщение', MB_OK);
    ts.Free;
end;

p.s. а вообще-то есть такая штука как Регулярные выражения. Есть бесплатный компонент для Дельфи
( TRegExpr
Библиотека для Delphi/Kylix/FreePascal)