[PashaXP]

Столкнулся с проблемой, если добавляю условие s[j]<>'|', т.е. как указано ниже, то в ELSE вообще не попадаю!!! Хотя условие должно выполнится 5-ь раз, если логически рассуждать. Но почему код не работает. Если убираю s[j]<>'|', условие срабатывает 4-е раза.
Строки вида - V3I SE7779AD3U1 SE7779AV1U1 SE7779AD1U1 SE9620AE7U1

Код:

   for j:=Length(Poisk_In_File)+1 to Length(S) do
       begin
          If (s[j]<>'  ')OR(s[j]<>'|') then Iskom_Str:=Iskom_Str+s[j]
          Else
            begin
              .....
            end;
       end;

??? Работает так как еслибы было не OR а AND???

[mav_c]

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

Столкнулся с проблемой, если добавляю условие s[j]<>'|', т.е. как указано ниже, то в ELSE вообще не попадаю!!! Хотя условие должно выполнится 5-ь раз, если логически рассуждать. Но почему код не работает. Если убираю s[j]<>'|', условие срабатывает 4-е раза.
Строки вида - V3I SE7779AD3U1 SE7779AV1U1 SE7779AD1U1 SE9620AE7U1

Код:

 
   for j:=Length(Poisk_In_File)+1 to Length(S) do
       begin
          If (s[j]<>'  ')OR(s[j]<>'|') then Iskom_Str:=Iskom_Str+s[j]
          Else
            begin
              .....
            end;
       end;

??? Работает так как еслибы было не OR а AND???

Так тебе тут и нужен не OR а AND

[Johnson]

когда чтото не получается - пробуй подставить действия попроще:
в твоём случае это выглядеть будет так:

Код:

          If not(s[j]='  ')OR not(s[j]='|') then Iskom_Str:=Iskom_Str+s[j]
          Else
            begin
              .....
            end;

тут получается взаимоисключение, как видишь... например есть символ '|', но он не равен ' ', значит true, действие выполнится, опять же если символ ' ', то он не равен '|', и опять действие выполняется )

если я правильно понял, тебе нудно сделать так: если символ не ' ' и не '|', то действия выполняется, тогда нужно просто OR (оператор ИЛИ) заменить на AND (оператор И)

[Phedor]

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

Столкнулся с проблемой, если добавляю условие s[j]<>'|', т.е. как указано ниже, то в ELSE вообще не попадаю!!! Хотя условие должно выполнится 5-ь раз, если логически рассуждать. Но почему код не работает. Если убираю s[j]<>'|', условие срабатывает 4-е раза.
Строки вида - V3I SE7779AD3U1 SE7779AV1U1 SE7779AD1U1 SE9620AE7U1

Код:

   for j:=Length(Poisk_In_File)+1 to Length(S) do
       begin
          If (s[j]<>'  ')OR(s[j]<>'|') then Iskom_Str:=Iskom_Str+s[j]
          Else
            begin
              .....
            end;
       end;

??? Работает так как еслибы было не OR а AND???

1. Первое условие у тебя никогда не сработает. Если ты из кода скопировал, то обрати внимание что s[j] - это единичный символ, а тут ' ' два символа.
2. Если тебе просто нужно убрать пробелы и знак '|'. Возможно проще сделать так?

Код:

Iskom_Str := StringReplace(copy(s, length(Poisk_In_File), length(s)), ' ', '', [rfReplaceAll]);
Iskom_Str := StringReplace(Iskom_Str, '|', '', [rfReplaceAll]);

[PashaXP]

Да Johnson ты меня правильнопонял, попробую... Спасибо за советы!!! Точно. Два символа!))) Сам себя запутал.... Спасибо большое! А код нахидит в строке слова и добавляет их в Combobox...

[Phedor]

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

Да Johnson ты меня правильнопонял, попробую... Спасибо за советы!!! Точно. Два символа!))) Сам себя запутал.... Спасибо большое! А код нахидит в строке слова и добавляет их в Combobox...

Для слов можн оиспользовать стандартный объект типа TParser :-)