Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как прочитать текстовый файл целиком, Чтение текстового файла 
:(
    Опции темы
Bugmaker
Дата 3.6.2009, 23:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 161
Регистрация: 27.6.2008

Репутация: нет
Всего: нет
Спасибо с моментом Result:=Result and not (str[cPos-1] in ['0'..'9']); догнал прямо перед тем как ты пояснил....


"Ну и сделай в последней строке function IsValidComma:
Result:=not Result."

Если ты об этом:
Код

function IsValidComma(str:string; cPos:integer):boolean;
begin
  // в этой функции предполагается, что в позиции pos находится именно запятая и ничто иное.
  Result:=True;
  if cPos>1 then
    Result:=Result and not (str[cPos-1] in ['0'..'9']); // предыдущий символ -не цифра
  if cPos<Length(str) then
    Result:=not Result and not (str[cPos+1] in ['0'..'9']); // следующий символ - не цифра
end;



То при таком раскладе все равно не показывает предложений которые с дробными цифрами.. Или я опять не так понял?
PM MAIL   Вверх
kami
Дата 3.6.2009, 23:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
Цитата(Bugmaker @  3.6.2009,  23:11 Найти цитируемый пост)
Если ты об этом:

нет.
Я об этом:

Код

function IsValidComma(str:string; cPos:integer):boolean;
begin
  // в этой функции предполагается, что в позиции pos находится именно запятая и ничто иное.
  Result:=True;
  if cPos>1 then
    Result:=Result and not (str[cPos-1] in ['0'..'9']); // предыдущий символ -не цифра
  if cPos<Length(str) then
    Result:=Result and not (str[cPos+1] in ['0'..'9'); // следующий символ - не цифра
  Result:=not Result; // инвертируем результат.
end;
PM MAIL WWW   Вверх
Bugmaker
Дата 3.6.2009, 23:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 161
Регистрация: 27.6.2008

Репутация: нет
Всего: нет
Да... я опять не так понял) спасибо помоему теперь все работает как надо...
PM MAIL   Вверх
kami
Дата 3.6.2009, 23:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
Цитата(Bugmaker @  3.6.2009,  23:14 Найти цитируемый пост)
помоему теперь все работает как надо

Ну теперь у тебя есть полный набор функций для работы по поставленной задаче.
При необходимости остается только расширять набор условий, используемых в них.
PM MAIL WWW   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0415 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.