В чем дело?

← →
Agi (2005-10-29 13:35) [0]

Привет мастерам!!! Подскажите в сем дело:
при сравнении 2-х текстовых полей(TEdit), когда они совпадают то должна появиться форма, а уменя блин ошибка вылетает:

Project Project1.exe raised exception class EAccessViolation with message " Access violation at adress 004B2FDE in module "Project1.exe". Read of address 00000000 ". Process stopped. Use Step or Run to continue

← →
TUser © (2005-10-29 13:50) [1]

Слушай, у меня тут тоже ошибка в программе. В чем дело, не подскажешь?

← →
Agi (2005-10-29 14:05) [2]

Подскажу, только ты мне сначала подскажи что с этим исключением делать?

← →
RzCoDer © (2005-10-29 14:09) [3]

Agi, дай исходник, а то так спроси ещё хде у тя пульт от телика завалялся

← →
Agi (2005-10-29 14:15) [4]

Form1.Table.First;
while not Form1.Table.Eof do
begin
s := Table.Fields[4].AsString;
a:=StrToDate(s);
Edit2.Text := FormatDateTime("ddmm",a);
if Edit4.Text = Edit2.Text then Form3.ShowModal;
Form1.Table.Next;
end;
Table.First;
end;

← →
Anatoly Podgoretsky © (2005-10-29 14:20) [5]

В какой строке возникает ошибка?

← →
Agi (2005-10-29 14:24) [6]

При сравнении If....then

← →
Anatoly Podgoretsky © (2005-10-29 14:30) [7]

Не создано, что-то из этого Edit4, Edit2, Form3

← →
Agi (2005-10-29 15:24) [8]

Да нет вроде все создано

← →
Сайбель Алексей © (2005-10-29 15:40) [9]

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

← →
John Doe © (2005-10-29 15:48) [10]

> Project Project1.exe raised exception class EAccessViolation
> with message " Access violation at adress 004B2FDE in module
> "Project1.exe". Read of address 00000000 ". Process stopped.
> Use Step or Run to continue

Такая штука появляется в случе если ты напортачил там в памяти что-то.
В данном случае что-то с Form3,я так предпологаю.

← →
wp2 (2005-10-29 15:56) [11]

> Project Project1.exe raised exception class EAccessViolation
> with message " Access violation at adress 004B2FDE in module
> "Project1.exe". Read of address 00000000 ". Process stopped.
> Use Step or Run to continue

Такая ошибка часто может возникать.
Поэтому надо всегда уточнять в чём дело...

А в OnShow для Form3 косяка нет?

сделай просче
if Edit4.Text = Edit2.Text then Form3.ShowModal;
замени на
if Edit4.Text = Edit2.Text then if Form3<>nil then Form3.ShowModal else "Форма не создана";

Agi (29.10.05 15:24) [8]
Слово вроде не имеет права на существование.

В чем дело? Найти похожие ветки