Поиск текста в тегах

[Boris-Britva]

Всем привет. Помогите с программой, она должна искать в Memo1 текст между тегами "*/" и "\*" и добавлять его в Combobox1. Косяк в том что первые 2-3 значения находятся нормально, а следующие уже не находит как надо. Заранее спасибо. Вот код:

var
  Form1: TForm1;
  a,b,z,startposA,startposB:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s,st:string;
j:integer;
begin
for j:=0 to memo1.Lines.Count-1 do
begin
  if z=1 then z:=2;

  if z=0 then
  begin
    a:=pos('*/',memo1.Lines.Text);
    b:=pos('\*',memo1.Lines.Text);
    st:=copy(memo1.Lines.Text,a+2,abs(a-b)-2);
    combobox1.Items.Add(st);
    z:=1;
  end;

  if z=2 then
  begin
    startposA:=a+1+abs(a-b);
    showmessage(inttostr(startposA));
    s:=copy(memo1.Lines.Text,startposA,maxint);
    a:=pos('*/',s);
    b:=pos('\*',s);
    if a>0 then
    begin
      st:=copy(s,a+2,abs(a-b+2));
      combobox1.Items.Add(st);
      a:=a+startposA+1;
    end;
  end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
a:=0;
b:=0;
startposA:=0;
z:=0;
end;

end.

[Cyn4uk]

А что такое "z"?

Я бы все сделал проще - одним циклом:

temp:=memo1.lines.text;
while temp.length>0 then begin
\\находим позицию завершающего тега
\\через copy копируем из temp нужный нам текст, делаем с ним все что нужно
\\через delete удаляем из temp этот кусок (вместе с тегами)
end;

Гораздо меньше путаницы получается. Только нужно следить за тем, что если тегов больше нет, то temp нужно очистить.

[Boris-Britva]

z для того чтобы в цикле сначала проходил обычный поиск, а потом шёл поиск далее.
С программой разобрался если кому интересно вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,strutils, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    ComboBox1: TComboBox;
    Memo2: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b,a1,b1,z,startposA,startposB:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
st:string;
j,k:integer;
strlist:Tstringlist;
begin
for j:=0 to memo1.Lines.Count-1 do
begin
strlist:=Tstringlist.Create;
  if z=1 then z:=2;

  if z=0 then
  begin
    a:=pos('*/',memo1.Lines.Text);
    b:=pos('\*',memo1.Lines.Text);
    st:=copy(memo1.Lines.Text,a+2,abs(a-b)-2);
    z:=1;
    if pos(st,memo2.Lines.Text)=0 then
    begin
      combobox1.Items.Add(st);
      memo2.Lines.Add(st);
    end;
  end;

  if z=2 then
  begin
    a1:=a;
    b1:=b;
    startposA:=a+1;
    startposB:=startposA+abs(a-b);
    a:=posEx('*/',memo1.Lines.Text,startposA);
    b:=posEx('\*',memo1.Lines.Text,startposB);
    if a>0 then
    begin
      st:=copy(memo1.Lines.Text,a+2,abs(a-b)-2);
      if pos(st,memo2.Lines.Text)=0 then
      begin
        combobox1.Items.Add(st);
        strlist.add(st);
        for k:=0 to strlist.Count-1 do
        memo2.Lines.Add(strlist.Strings[k]);
        a:=a1+abs(a-a1);
        b:=b1+abs(b-b1);
      end;
    end;
  end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
a:=0;
a1:=0;
b:=0;
b1:=0;
startposA:=0;
startposB:=0;
z:=0;
end;

end.

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор