VPF::Загадочное поведение if-оператора

a_n_d_y

Дата 15.6.2007, 01:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 23.10.2006
Где: Ukraine::Kiev

Репутация: нет
Всего: 1

Ув. форумчане!!!
Вот, в чем заключается проблема

Код


var
  groupList: TList; 
//...
  for i := 0 to groupList.Count - 1 do
  begin
    group := groupList.Items[i];            
    if group^.GroupCaption = name then
    begin // в этот блок я не могу попасть даже тогда, когда условие выполняется...
      result := group;
      break;
    end;
  end;

cardinal

Дата 15.6.2007, 02:00 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: нет
Всего: 99

Цитата

в этот блок я не могу попасть даже тогда, когда условие выполняется...

А ты уверен в том, что оно выполняется. Чему равно group^.GroupCaption и name тогда, когда ты думаешь, что они равны?

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

a_n_d_y

Дата 15.6.2007, 02:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 23.10.2006
Где: Ukraine::Kiev

Репутация: нет
Всего: 1

уверен.. (в дебаге это видно)
Компилятор говорит, что в блоке unreacheble code

cardinal

Дата 15.6.2007, 02:17 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: нет
Всего: 99

А так:

Код


if (group^.GroupCaption) = name then

Я просто Delphi не знаю, так преположения...

Если это не пройдет, то читай тут Сравнение строк

--------------------

a_n_d_y

Дата 15.6.2007, 02:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 23.10.2006
Где: Ukraine::Kiev

Репутация: нет
Всего: 1

Цитата(cardinal @ 15.6.2007, 02:17

)

А так:

Код


if (group^.GroupCaption) = name then

то же самое =)

cardinal

Дата 15.6.2007, 02:26 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: нет
Всего: 99

Какой тип у group^.GroupCaption и какой у name? Попробуй так:

Код


var
  P1, P2: PChar;
...
  P1 := StrNew(group^.GroupCaption);
  P2 := StrNew(name);
  if P1 = P2 then
...
  StrDispose(P1);
  StrDispose(P2);

--------------------

Alex

Дата 15.6.2007, 03:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: нет
Всего: 162

Код


var
  groupList: TList; 
//...
  for i := 0 to groupList.Count - 1 do
  begin
    group := groupList.Items[i];            
    if AnsiSameText(group^.GroupCaption, name) then // Сравнение строк без учета регистра
    begin // в этот блок я не могу попасть даже тогда, когда условие выполняется...
      result := group;
      break;
    end;
  end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

aktuba

Дата 15.6.2007, 06:04 (ссылка)

(голосов:1)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Попробую угадать... Name - это скорее всего подразумевается переменная, а Delphi берет название формы. Уже много раз советовали - не называйте переменные зарезервированными словами!.

--------------------

MetalFan

Дата 15.6.2007, 07:08 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Цитата(aktuba @ 15.6.2007, 06:04

)

не называйте переменные зарезервированными словами

ну name не зарезервированное слово... просто оно используется в TComponent.
но идея не использовать такие простые имена для локальных и глобальных переменных весьма на мой взгляд правильна

--------------------

There are always someone smarter than you...

aktuba

Дата 15.6.2007, 07:56 (ссылка)

(голосов:1)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Цитата

ну name не зарезервированное слово...

Виноват, не правильно выразился...

--------------------

a_n_d_y

Дата 15.6.2007, 08:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 23.10.2006
Где: Ukraine::Kiev

Репутация: нет
Всего: 1

Цитата

Какой тип у group^.GroupCaption и какой у name?

WideString

Цитата

// Сравнение строк без учета регистра

в случае, когда group^.GroupCaption и name были равны '123'я в блок тоже не попадаю. так что, думаю, не в этом дело..

Цитата

Name - это скорее всего подразумевается переменная, а Delphi берет название формы

в данном случае, name - это строковой параметр, который передается в метод, фрагмент которого я и показал..
метод ничего не знает ни про какие формы..

Это сообщение отредактировал(а) a_n_d_y - 15.6.2007, 08:48

MetalFan

Дата 15.6.2007, 08:58 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

давай пример приложения... а так мы ж не телепаты! smile

--------------------

There are always someone smarter than you...

Igor_thief

Дата 15.6.2007, 09:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

Уверен что нету в конце пробелов?

Попробуй WideCompareText

--------------------

В каждом из нас спит гений, и с каждым днем все крепче ...delphigeek.blogspot.com | www.iskomorokh.com

aktuba

Дата 15.6.2007, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

a_n_d_y, Покажи полный код процедуры...

--------------------

Sunvas

Дата 15.6.2007, 11:03 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

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

Репутация: 2
Всего: 89

Цитата(aktuba @ 15.6.2007, 06:04

)

Name - это скорее всего подразумевается переменная, а Delphi берет название формы.

Кстати, меня тоже эта мысль посетила. Что, если просто переименовать переменную?

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

a_n_d_y

Дата 15.6.2007, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 23.10.2006
Где: Ukraine::Kiev

Репутация: нет
Всего: 1

уже разобрался...
всем спасибо!

Igor_thief

Дата 15.6.2007, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

Цитата(a_n_d_y @ 15.6.2007, 10:32

)

уже разобрался...
всем спасибо!

И в чем же был гвоздь?

--------------------

В каждом из нас спит гений, и с каждым днем все крепче ...delphigeek.blogspot.com | www.iskomorokh.com

aktuba

Дата 15.6.2007, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Цитата

уже разобрался...
всем спасибо!

Как думаешь, после такого тебе захотят помочь в будущем, если ты задал вопрос, решил его но не сказал как решил и в чем была проблема????

--------------------

a_n_d_y

Дата 15.6.2007, 11:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 23.10.2006
Где: Ukraine::Kiev

Репутация: нет
Всего: 1

нет..не разобрался....

У делфи как-то странно с указателями работает....

а в частности - TList...

есть класс TContactGroup
в списке есть экземпляры этого класса..
при попытке прочитать объект оттуда возникает Access Violation

вот код метода..

Код


function TContactList.getGroupByName(grName: WideString): PContactGroup;
var
  i: integer;
  group: PContactGroup;
begin
  for i := 0 to groupList.Count - 1 do
  begin
    group := groupList.Items[i];
    if group.GroupCaption = grName then
    begin // Can't understand why I can't get inside this block
      result := group;
      exit;
    end;
  end;
  result := nil;
end;

Это сообщение отредактировал(а) a_n_d_y - 15.6.2007, 12:04

aktuba

Дата 15.6.2007, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Код


function TContactList.getGroupByName(grName: WideString): PContactGroup;
var
  i: integer;
begin
  result := nil;
  for i := 0 to groupList.Count - 1 do
  begin
    if PContactGroup(groupList[i])^.GroupCaption = grName then
    begin // Can't understand why I can't get inside this block
      result := PContactGroup(groupList[i]);
      break;
    end;
  end;
end;

Попробуй так. И кстати, судя по тому, что ты изменил название переменной - я был прав =)))))

--------------------

a_n_d_y

Дата 15.6.2007, 13:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 23.10.2006
Где: Ukraine::Kiev

Репутация: нет
Всего: 1

aktuba, спасибо, это помогло =)
а имя переменной я на всякий случай поменял...

aktuba

Дата 15.6.2007, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Цитата

а имя переменной я на всякий случай поменял...

Всегда так поступай =)))

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »