територия мемо и хтмл.а живущего в нём

[VVM]

Вот так попробуй, у меня работает:

procedure TForm1.Scan1(Since, altSince, Till, altTill: string);
var
  I, s, e: integer;
begin
  s := 0;
  e := 0;
  for I := 0 to Memo1.Lines.Count - 1 do
  begin
    s := pos(Since, Memo1.Lines.Strings[i]);
    if s = 0 then
      s := pos(altSince, Memo1.Lines.Strings[i]);
    e := pos(Till, Memo1.Lines.Strings[i]);
    if e = 0 then
      e := pos(altTill, Memo1.Lines.Strings[i]);
    if (s <> 0) and (e <> 0) then
    begin
      ListBox1.Items.Add(copy(Memo1.Lines.Strings[i],
        s + length(Since), e - s - length(Till) + 1));
      s := 0;
      e := 0;
    end;
  end;
end;

В 6 снизу строке "- 1" на "+ 1" изменился.

[IvaniuS]

слушай я все разобрался спс огромное все норм работает и сам написал и переписал кое что оптимизировал не в том дело.Мне надо уйти от листбоксов к мемо мне надо мноооооооооого(около 60000 строк) записать полностью в тексте просто у меня много столбиков и надо их записать через определённый символ а в аштмл'e они не в том порядке что надо как мне например добавить в конец 1 строки что-то потом 2 и т.д. так до конца вот так например:

$(Tkt) содержимое 1-го столбика$(cl)2-го столбика
$(Tkt) содержимое 1-го столбика$(cl)2-го столбика
$(Tkt) содержимое 1-го столбика$(cl)2-го столбика
$(Tkt) содержимое 1-го столбика$(cl)2-го столбика
$(Tkt) содержимое 1-го столбика$(cl)2-го столбика

ну так много столбиков и строчек??? скажи хотяб как в конец добавить или мне всё прийдёться записывать в переменные а потом в строку?

[VVM]

Если я тебя правильно понял, то добавление к строке выглядит так:

const
  Spacer = '*';
var
  Str1, Str2: string;
begin
  Str1 := Str1 + Spacer + Str2...;
end;