Все выпуски  

RFpro.ru: Программирование на Delphi и Lazarus


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты по данной тематике

Евгений/Genia007/
Статус: Профессионал
Рейтинг: 243
∙ повысить рейтинг »
Асмик Гаряка
Статус: Советник
Рейтинг: 148
∙ повысить рейтинг »
Сергей Бендер
Статус: Профессионал
Рейтинг: 65
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Delphi и Lazarus

Номер выпуска:1676
Дата выхода:30.03.2016, 18:21
Администратор рассылки:F®ost (Администратор)
Подписчиков / экспертов:15 / 9
Вопросов / ответов:3 / 5

Консультация # 31763: Подскажите как производить чтение из файла пословно. Допустим есть файл (текстовый) и из него надо выделять слова: Например: Заголовок Таблица итог. f: TextFile; Begin AssignFile(f, nm); - а что дальше писать? .
Консультация # 114148: Здравствуйте! Скажите пожалуйста, как мне сделать так, чтобы при нажатии button в нужном мне порядке нажимались как бы клавиши на клавиатуре n-нное число раз??? А именно нужно чтобы нажимились следующие клавиши: ~ вверх энтер Пригодится ли тут таблица http://www.klgtu.ru/ru/students/literature/inf_asu/80.html ??...
Консультация # 133582: Здравствуйте!!! Есть база на Interbase. Первый столбец номер записи. Вставляется автоматический генератором. Как сделать так чтобы при удалении записи с середины нумерация упорядочилась?...

Консультация # 31763:

Подскажите как производить чтение из файла пословно.
Допустим есть файл (текстовый) и из него надо выделять слова:
Например:
Заголовок
Таблица
итог.

f: TextFile;
Begin
AssignFile(f, nm);

- а что дальше писать?

Дата отправки: 18.12.2005, 18:06
Вопрос задал: Andrew
Всего ответов: 3
Страница онлайн-консультации »


Консультирует Romodos:

Здравствуйте, Andrew!
Ну дык и читаете до пробела, дальше новое слово. А специальной функции для пословного чтения нет.
Намётки в приложении. Не проверял, но должно работать. Суть в чём: если пробел или перевод строки, то следующее слово, иначе прибавляем символ к текущему слову.

Приложение:

Консультировал: Romodos
Дата отправки: 18.12.2005, 18:36
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Вадим Исаев ака sir Henry (Старший модератор):

Здравствуйте, Andrew!
Вам надо перебирать строку посимвольно. Если попадаются символы больше пробела, то он плюсуется к предыдущему. Если символ пробел и меньше, то пропускается, а слово записаное ранее кончается.

Консультировал: Вадим Исаев ака sir Henry (Старший модератор)
Дата отправки: 18.12.2005, 19:23
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Schmak:

Здравствуйте, Andrew!
Можно вот так:
1) Считываем всю строку.
2) Ищем в строке 1-ый пробел, выделяем слово до этого пробела.
3) Запоминаем слово и удаляем его из строки вместе с пробелом.
4) Повторяем со 2-ого пункта пока в строке не останется пробелов. То что останется в строке будет последним словом.
В следующей программе приведена программа, ситывающая слова из файла, записанные через пробел и записывающая х в столбик.

Приложение:

Консультировал: Schmak
Дата отправки: 19.12.2005, 13:47
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 114148:

Здравствуйте! Скажите пожалуйста, как мне сделать так, чтобы при нажатии button в нужном мне порядке нажимались как бы клавиши на клавиатуре n-нное число раз??? А именно нужно чтобы нажимились следующие клавиши: ~ вверх энтер
Пригодится ли тут таблица http://www.klgtu.ru/ru/students/literature/inf_asu/80.html ??

Дата отправки: 15.12.2007, 16:44
Вопрос задал: Морозов Михаил Иванович
Всего ответов: 1
Страница онлайн-консультации »


Консультирует PavelGM:

Здравствуйте, Морозов Михаил Иванович!

Есть несколько способов, наиболее универсальный:

Нажать клавишу: keybd_event(vkcode, scancode, 0, 0)
Отпустить клавишу: keybd_event(vkcode, scancode, KEYEVENTF_KEYUP, 0);

где главное vkсode, например для стрелки вверх - VK_UP, enter - VK_RETURN, при этом scancode можно указать 0.

Таблица ASCII вам тоже поможет, так как для алфавитно-цифровой части vkcode совпадает с этой таблтцей - т.е. ~ = $7E. С русской частью только повнимательней с кодировкой - по вашей ссылке м.б. не Win-кодировка я не проверял.

Итого:

keybd_event($7E, 0, 0, 0);
keybd_event($7E, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_UP, 0, 0, 0);
keybd_event(VK_UP, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_RETURN, 0, 0, 0);
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);

Консультировал: PavelGM
Дата отправки: 16.12.2007, 15:47
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 133582:

Здравствуйте!!!
Есть база на Interbase. Первый столбец номер записи. Вставляется автоматический генератором. Как сделать так чтобы при удалении записи с середины нумерация упорядочилась?

Дата отправки: 22.04.2008, 13:39
Вопрос задал: Remote Server
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Drbear:

Здравствуйте, Remote Server!

Попробуйте повесить на BEFORE DELETE триггер с примерно таким SQL

update ВашаТаблица set COD_PEREGON = COD_PEREGON - 1
where COD_PEREGON > old.COD_PEREGON;

этот запрос уменьшит номер записи на единицу у всех записей с номером больше удаляемого.
Надеюсь, помог Вам.

Консультировал: Drbear
Дата отправки: 22.04.2008, 14:00
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!


В избранное