Скачать: CL | DM;

Работа со строками в Мемо   Найти похожие ветки 

← →
oleg_veles   (2011-07-20 11:45) [0]

Есть текст в поле Мемо содержаший повторяюдиеся строки. Как определить количество строк между одинаковыми значениями -> "Начало"..."Конец" по типу:
Начало
...
...
Конец
...
Начало
...
...
...
Конец

Делал так:
For i:=0 to Memo1.Lines.Count -1 do // Запускаем цикл поиска строки начала документа
    If Pos("Начало", Memo1.Lines[i])<>0
    Then
      Begin
     For F := 1 to // тут поставить число строк то все работает, но как их подсчитать - вот в чем вопрос....
      ADOTable1.Append;
        Begin
          rsh := Memo1.Lines[i];
          Stroca := Copy(rsh, 1, 6);
          Konec :=  Copy(rsh, 1, 14);
          Znach := Copy(rsh,Pos("=",rsh)+1, Length(Rsh));
          if Znach = "" then Znach := "0";
          ADOTable1.Edit;
          If (Stroca = "ДАТАСП") OR (Stroca = "ДАТАПО") OR (Stroca = "ДАТАОП") Then Begin
                   ADOTable1Data.Value := Znach
                   end
                   Else
          If (Stroca = "СУММА=") OR (Stroca = "СУММАП") OR (Stroca = "СУММАР") Then Begin
                   ADOTable1Summa.Value := Znach
                   end
                   Else
          If Stroca = "НАЗНАЧ" Then Begin
                   ADOTable1NaznPlat.Value := Znach;

          If Konec = "Конец" Then End;
        End;
              ADOTable1Bank.Value := Nomer;

          ADOTable1.Post;

        End;

Заранее благодарен...

---

← →
sniknik ©   (2011-07-20 12:07) [1]

> но как их подсчитать - вот в чем вопрос....
не считать... заранее, вместо for использовать while ... внутри можно и считать, если значение это зачем то нужно... но вообще хватит и rsh = "Конец"

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.003 c