Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка [D7, WinXP]

Страницы: 1 2 >
wahnsinng © (2007-03-06 15:06:00)
Здравствуйте уважаемые мастера,
не подскажите что за ошибка выскакивает
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00439D08 in module Project of adress 000000050'

var
TypeClass : TControlClass;
New : TControl;
i,J : integer;
Count_was, num,kol: integer;
s1 : string;
Tags: Integer;
K : Integer;
Li : Integer;
begin
Count_Was := 1;

num := 0;
kol := 0;
Li := 0;
K :=strToInt(copy(s,kol, PosEx('|',S,num)-1));

if PL.ComponentCount <> 0
then
while Pl.ControlCount > 0 do
Pl.Components[0].Destroy;

TypeClass:=TspeedButton;

for I :=1 to K + 3 do
begin
num :=PosEx('|',S,num)+1;
kol := num;
Li := ((PosEx('|',S,num)-1) - kol) +1;
S1:=copy(S,kol, li);

case Count_Was of
1: image1.Picture.LoadFromFile(ExtractFilePath(Paramstr(0))+'datay\'+S1);
2: imageTitle1.Caption := S1;
3: FrageR := StrToInt(S1);
end;

if Count_Was > 3 then

begin

New:=TypeClass.Create(PL);

TspeedButton(New).Left := 15;
TspeedButton(New).Top := (25 * (Count_Was-3) );
if FrageR = (Count_Was-3) Then
TspeedButton(New).Tag := FrageR
else
TspeedButton(New).Tag := 0;
TspeedButton(New).Cursor := crHandPoint;
TspeedButton(New).OnClick := SpeedButton0Click;
TspeedButton(New).Width := 150;

TspeedButton(New).Caption :=s1;

<!Ошибка здесь!>

New.Parent:=PL;

end;

Inc (Count_Was);
end;

end;

wahnsinng (2007-03-09 08:39:00) [1]
Amoeba
>if PL.ComponentCount <> 0
> then
> while Pl.ControlCount > 0 do
> Pl.Components[0].Destroy;

Kedge (2007-03-07 19:35:00) [2]
Полностью согласен с Belorus и Elen.
Особенно большое удовольствие доставляет разбираться в чужих исходниках, ничего не понимая
и, натолкнувшись на функцию автора SetLength, произносить А-а-а-а-а !

Belorus (2007-03-07 18:52:00) [3]
Можете говорить что хотите, но я отчасти солидарен с Elen. Например свои процедуры я никогда не называю именами других существующих процедур, и уж тем более если набор аргументов совпадает...
Это привычка которой уже много лет. Видимо когда то помогало не путататься в "пространствах имен", и избегать глупых ошибок.

Amoeba (2007-03-07 18:49:00) [4]

> wahnsinng © (07.03.07 18:09) [34]
>
>
> > Loginov Dmitry
>
> Да я уже сам нашел.
>

Это самое, или еще что-то другое?

wahnsinng (2007-03-07 18:09:00) [5]

> Loginov Dmitry

Да я уже сам нашел.

Loginov Dmitry (2007-03-07 07:39:00) [6]
> if PL.ComponentCount <> 0
> then
> while Pl.ControlCount > 0 do
> Pl.Components[0].Destroy;

Господи, ну что ж это за трава-то?

ЮЮ (2007-03-07 06:51:00) [7]
А заголовок свой процецуры привести и способ её вызова?

Elen (2007-03-06 17:15:00) [8]

> Сергей М. © (06.03.07 16:49) [30]

Обязательно.

Сергей М. (2007-03-06 16:49:00) [9]

> Elen © (06.03.07 16:44) [29]

> как-нибудь на досуге

заодно как-нибудь на досуге вдумайся в свое нынешнее утверждение насчет "некошерности"

Elen (2007-03-06 16:44:00) [10]

> Игорь Шевченко © (06.03.07 16:42) [28]

Спасибо, как-нибудь на досуге...

Игорь Шевченко (2007-03-06 16:42:00) [11]
Elen © (06.03.07 16:34) [27]

Я могу совет дать - почитать книгу по Delphi. Вдумчиво почитать. Хорошую книгу. Например, Тейксеру с Пачекой.
Или заплатить за обучение любому желающему это обучение провести.

Elen (2007-03-06 16:34:00) [12]

> Кроме тебя на этот вопрос никто не сможет ответить

Жалко! Вот поучить меня некому... И вы не хотите... :-/

Elen (2007-03-06 16:33:00) [13]

> wahnsinng © (06.03.07 16:30) [24]

Да ладно по пустякам сориться. Автор, лучше еще раз внимательней пройди отладчиком пошагово, или позаремь операторы, которые считаеш ошибочными.

Игорь Шевченко (2007-03-06 16:32:00) [14]

> Это почему же?

Кроме тебя на этот вопрос никто не сможет ответить

wahnsinng (2007-03-06 16:30:00) [15]
Удалено модератором

Elen (2007-03-06 16:28:00) [16]

> Боже, какой бред ты порой несешь)

Это почему же?

Сергей М. (2007-03-06 16:24:00) [17]

> wahnsinng © (06.03.07 16:18) [21]
>
>

> раз ты не можешь.
>

Нет, братец-кролик, "не можешь" именно ты)

И пока ты вылечишь свою "импотенцию" в части элементарногопользования встроенным отладчиком, программистское "бесплодие" тебе гарантировано)

wahnsinng (2007-03-06 16:18:00) [18]

> Сергей М.

Кто ж тебя просит отвечать, раз ты не можешь.

Сергей М. (2007-03-06 16:16:00) [19]

> Elen © (06.03.07 16:08) [17]

Боже, какой бред ты порой несешь)

> wahnsinng © (06.03.07 16:10) [18]

> Я ничего не утверждаю

Вот сначала поимей факты, а потом приходи)
Иначе разговор сводится к "что-то где-то там пукнуло, не знаю где, но мне кажется, что пукнуло"

wahnsinng (2007-03-06 16:13:00) [20]

> Это ты весь полностью код привел или нет?

Нет, но там нигде нет ошибок, или предпосылок на них.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »