искать по началу строки?

Форумы Между деломискать по началу строки? ← Ctrl12Ctrl →

Этот топик читают: Гость

Разработчик

Ответов: 26170

Рейтинг: 2127

#16: 2008-09-25 09:57:32 ЛС | профиль | цитата

Ты вот так предлагешь сделать


  str := ReadString(_Data,_data_Str,');
  if (_prop_Char = ') or (str = ') then exit;

карма: 22

Ответов: 16884

Рейтинг: 1239

#17: 2008-09-25 10:09:05 ЛС | профиль | цитата

или так . Тоже логично.
------------ Дoбавленo:

Ну что ? Нарушим

Первый закон МЕХАНИКА.
не трогай механизм - он сам сломается.
Следствие.
Чем меньше механизм разбирается - тем дольше работает.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 1305

Рейтинг: 29

#18: 2008-09-25 10:12:22 ЛС | профиль | цитата

Tad писал(а):

А по компоненту StrPart:
1. Нехватает нижней точки Right

nesco писал(а):

StrPart -- не новый компонент, откуда вопрос -- почему этого никто не сделал раньше

Когда-то (года три назад

) делал подобное, и не только для StrPart

карма: 0

Разработчик

Ответов: 26170

Рейтинг: 2127

#19: 2008-09-25 10:15:56 ЛС | профиль | цитата

v258 писал(а):

делал подобное

Я помню, и что кто-то вообще был против нижних точек, я тоже помню.

карма: 22

Ответов: 1305

Рейтинг: 29

#20: 2008-09-25 10:16:48 ЛС | профиль | цитата

nesco писал(а):

и что кто-то вообще был против нижних точек, я тоже помню.

Не я, однозначно

карма: 0

Разработчик

Ответов: 26170

Рейтинг: 2127

#21: 2008-09-25 11:53:23 ЛС | профиль | цитата

Tad писал(а):

Чем меньше механизм разбирается - тем дольше работает

См. на мою надпись

nesco писал(а):

А лучшее, все же -- враг хорошего!

------------ Дoбавленo:

v258 писал(а):

Не я, однозначно

А я и не говорил, что ты
------------ Дoбавленo:

Добавлено

карма: 22

Ответов: 16884

Рейтинг: 1239

#22: 2008-09-25 14:55:58 ЛС | профиль | цитата


#pas
procedure THIStrPart._work_doSplit;
begin
  str := ReadString(_Data, _data_Str, ');
  if (_prop_Char = ') or (str = ') then exit;
  if (pos(_prop_Char,str) = 0) then
    _hi_CreateEvent(_Data,@_event_onNotFound, str)
  else if (str <> ') then   // if (str=') то поезд ушел 3-мя строчками выше, а если мы добрались сюда, то str точно не пустая и нафига  if(str <> ') ??????? !!!!
  begin
    FLeft := GetTok(str, _prop_Char[1]);
 ......
.......

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Разработчик

Ответов: 26170

Рейтинг: 2127

#23: 2008-09-25 15:03:32 ЛС | профиль | цитата

Исправлено

карма: 22

Администрация

Ответов: 15295

Рейтинг: 1519

#24: 2008-09-25 15:22:34 ЛС | профиль | цитата

не забываем для кода сомнительной полезности вставлять проверку на уровень защиты


#pas
  {$ifdef _PROTECT_MAX_}
  if (_prop_Char = ') or (str = ') then exit;
  {$endif}

PS: на SVN уже внесено

карма: 27

https://hiasm.com

Разработчик

Ответов: 26170

Рейтинг: 2127

#25: 2008-09-25 15:32:00 ЛС | профиль | цитата

Dilma писал(а):

вставлять проверку на уровень защиты

Никак к ней привыкнуть не могу

карма: 22

Администрация

Ответов: 15295

Рейтинг: 1519

#26: 2008-09-25 15:51:47 ЛС | профиль | цитата

nesco, если в компонени попадет несколько лишних байт - это не смертельно. Всегда можно поправить и никто даже не заметит. Главное это отгараживать макросами выдачу диалоговых окон из кодов элементов(ситуации редкие, но не исключительные)

карма: 27

https://hiasm.com

Форумы Между деломискать по началу строки? ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)