Работа со строками в Мемо

← →
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 = "Конец"

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