Работа со строками в Мемо [D2005, XP]
oleg_veles © (2011-07-20 11:45:00)
Есть текст в поле Мемо содержаший повторяюдиеся строки. Как
определить количество строк между одинаковыми значениями ->
"Начало"..."Конец" по типу:
Начало
...
...
Конец
...
Начало
...
...
...
Конец
Делал так:
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:00) [1]
> но как их подсчитать - вот в чем вопрос....
не считать... заранее, вместо for использовать while ...
внутри можно и считать, если значение это зачем то нужно... но
вообще хватит и rsh = 'Конец'
Наверх 
ЧАТ |
Орешник |
|
