подсчет количества строк в memo

[igabenu]

подскажите, как правильно посчитать и вывести в showmessage количество строк в memo?(за исключением пустых)

[pray_driver]

вообще memo.lines.count : Integer кажется там есть, но там пустые выводятся.

[Stilet]

А в цикле пройтись уже не модно?

[Риндера]

Можно организовать цикл на подсчет пустых строк, путем проверки нескольких первых символов. А потом это число вычесть из memo.lines.count

[pray_driver]

Сообщение от Риндера

Можно организовать цикл на подсчет пустых строк, путем проверки нескольких первых символов. А потом это число вычесть из memo.lines.count

да тогда уж ничего не вычетать

Var num : Integer;
      Memo1 : TMemo;
      i : Integer;

...

num := 0;
For i := 0 to Memo1.Lines.Count do
    If Memo1.Lines[i] <> '' then Inc(num);

[Serge_Bliznykov]

pray_driver, уважаемый коллега, внимательнее, пожалуйста. Если приводите пример, старайтесь, чтобы он был без ошибок...

num := 0;
For i := 0 to Memo1.Lines.Count-1 do
    If Trim(Memo1.Lines[i]) <> '' then Inc(num);

[pray_driver]

Serge_Bliznykov, да вот кстати, думал над этим. Всегда забываю сколько там диапазон, от нуля до конца за вычетом единицы, или от 1 до конца.
Визуальное программирование расслабляет

[Grag]

Сообщение от pray_driver

Всегда забываю сколько там диапазон, от нуля до конца за вычетом единицы, или от 1 до конца.
Визуальное программирование расслабляет

Тут и думать не надо. Надо знать, что при использовании динамических структур данных отсчет всегда от 0

[kangreon]

Как вариант.. Можно просто убрать пустые строки и вывести их количество.

begin
  memo1.Text := StringReplace(Memo1.Text,#13#10#13#10,#13#10,[rfReplaceAll]);
  ShowMessage(IntToStr(memo1.Lines.Count));
end;

[pray_driver]

Сообщение от Grag

Тут и думать не надо. Надо знать, что при использовании динамических структур данных отсчет всегда от 0

может и надо знать, но всего не упомнишь.
мне кажется, эта ошибка "-1" не принципиальна в данном случае, когда тебе компьютер выдаст что-то типа "out of range". Не буду спорить что это ошибка конечно, но всего не упомнишь.
Паскаль кстати используется всё меньше и меньше в серьёзном программировании, особенно в провинциях в России. Не каждая контора выложит 60000р. за 1 рабочее место, чтобы обеспечить сотрудников дельфой
В вузах уже дельфе не учат кстати