Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
Delta
11 / 10 / 2
Регистрация: 17.11.2009
Сообщений: 126
1

Как определить, что достигнут конец Memo?

16.01.2011, 15:32. Просмотров 1541. Ответов 2
Метки нет (Все метки)

Продолжаю мучение тестовой оболочки)
Принцип - подгружаю тектсовый документ в мемо, и оттуда считываю строки с определенным алгоритмом.
Не нашла функции определяющий последнюю строку и решила, что пусть осуществляется проверка:
последняя строка текстового файла будет = 0. Он проверяет каждый раз строчку и если она <>0 то продолжает заполнение полей теста. если равна нулю, то делает активной кнопку Завершить тест.
Вот код:
Delphi
1
2
3
4
5
MemoEOF:=StrToInt(Memo_Temp.Lines[1+6*(vopros-1)]);
if MemoEnd<>0 then
PrFillFileds(Sender)
else
ResultButt.Visible:=true;
если не использовать этого я не знаю как завершить работу после последнего вопроса: ошибка естесственно. Однако все вопросы идут как положено.
если использовать это условие то почему-то "сдвигаются" строки. и вылетает ошибка несоответсвия типов оф коз.
сама программа прикреплена в архиве вместе с файлом теста.
0
Вложения
Тип файла: rar TestDel.rar (187.7 Кб, 18 просмотров)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2011, 15:32
Ответы с готовыми решениями:

Как определить достигнут ли конец поля Memo?
В поле Memo содержится текст, весь этот текст в поле не входит, то есть его надо скролить. Как...

Как из memo вывести в listbox все слова, которые начинаются на ту же букву, что и последнее слово из memo?
и при этом сохранить порядок слов которые были в memo

Как в конец уже имеющейся строки Memo добавить несколько символов?
Народ подскажите пожалуйста, как в Memo в конец уже имеющейся строки добавить несколько символов.

Memo сохранение в конец файла
Здравствуйте, помогите пожалуйста сохранить текст из поля Memo в конец текстового файла, а то при...

Как узнать достигнут ли в отчете конец страницы?
Есть отчет на несколько страниц, нужно при достижении конца каждой страницы выполнять определенные...

2
New_Birth
2 / 2 / 1
Регистрация: 11.01.2011
Сообщений: 39
16.01.2011, 19:53 2
Если я правильно понял вопрос, то можно попробовать Memo_Temp.Lines.Count Так мы сможем определить какая строка в Мемо последняя.
1
Delta
11 / 10 / 2
Регистрация: 17.11.2009
Сообщений: 126
19.01.2011, 00:16  [ТС] 3
все больше не могу, мучала мучала недомучала.
доходит до 4 вопроса и всееееее из нот валид интежер формат.
где там интежер с чего бы вдруг я не знаю.
0
Вложения
Тип файла: rar Рабочий стол.rar (187.9 Кб, 15 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.01.2011, 00:16

Как при чтении файла проверить достигнут ли конец файла?
Как при чтении файла проверить достигнут ли конец файла? Dim Red As IO.BinaryReader Red = New...

Ввод, пока не достигнут конец ввода
Доброго времени суток. Нужно заполнить массив, пока не окончен ввод(кол-во элементов массива...

Как установить курсор в конец строки в Memo?
Как установить курсор в конец строки в Memo?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru