Комментарии в текстовом анализаторе

[Marsel737]

Всем доброго времени суток.

Столкнулся с такой проблемой, нужно написать процедуру, которая бы перед анализом текста удаляла все комментарии, чтобы он не учитывался.

Для этого я создаю Memo в него заганяю весь текст и дальше посимвольно проверяю его:

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  memInput.Clear;
  lblLog.Caption := '';
  // Создание динамического Memo для хранения текста
  memDin := TMemo.Create(Owner);
  with memDin do
  begin
    Parent := self;
    Visible := false;
    ScrollBars := ssVertical;
  end;
end;

procedure TfrmMain.CommentAdmission(Sender: TObject);
var
  i, j: integer;
  DelTxt: string;
begin
  memDin.Text := TrimLeft(memInput.Text);
  j := 1;
  //for i := 1 to Length(memDin.Text) do
  //begin
    if memDin.Text[i] = '{' then
    begin
      while ((memDin.Text[j] <> '}') and
            (j <= Length(memDin.Text))) do
      begin
        Inc(ComLeng);
        Inc(j);
      end;
    end;
  //end;
  DelTxt := memDin.Text;
  Delete(DelTxt, j, ComLeng);
  memDin.Text := TrimLeft(DelTxt);
end;

Но так к сожелению не получается, может кто знает как можно попроще это реализовать?

[Kotofff]

Пробуй вот :

procedure TForm1.Button2Click(Sender: TObject);
var
  p1,p2:integer;
  sTemp:string;
begin
  sTemp := Memo.Text;
  // убираем коменты в фигурных скобках
  while ((p1 <> 0) and (p2 <>0)) do
    begin
    p1 := Pos('{', sTemp);
    if p1 <> 0 then Delete(sTemp, p1, 1);
    p2 := Pos('}', sTemp);
    if p2 <>0 then
      begin
      Delete(sTemp, p2, 1);
      Delete(sTemp, p1, p2 - p1);// здесь дважды - чтобы обойти сутуацию когда будет только } и не будет {
      end;
    end;
  Memo.Text := sTemp;
end;

У тебя Delphi какая версия ? Если 2010 - могу полностью пример прикрепить.

[Marsel737]

Kotofff, у меня d10 Lite и спс за помощь