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

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: Для новичков \| Следующая тема »