Access violation at address 00447E73 in modul Project.exe. Read of address 00000057.

[ArtGrek]

создание Labels

procedure TForm2.Image1DblClick(Sender: TObject);
begin
  Tekst := TLabel.Create(self);
  with Tekst do
  begin
    Parent := Form2;
    Transparent := True;
    Top := y2;
    Left := x2;
    TekstS := Tekst;
    Caption := 'ArtGrek';
    Edit1.Text := Caption;
    TekstKol[List[8].IndexOf(ImSender)] := IntToStr(StrToInt(TekstKol[List[8].IndexOf(ImSender)]) + 1);
    Name := 'Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + TekstKol[List[8].IndexOf(ImSender)];
    Font.Size := Trunc(sDecimalSpinEdit1.Value);
    Font.Name := sFontComboBox1.Text;
    Font.Color := sColorBox1.Selected;
    OnClick := TekstClick;
    OnMouseDown := TekstMouseDown;
    OnMouseMove := TekstMouseMove;
    OnMouseUp := TekstMouseUp;
  end;
  Edit1.SelStart := Length(Edit1.Text);
  Frame(Tekst);
  Edit1.SetFocus;
end;

удаление Labels

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  i_EKD: integer;
  c_EKD: Integer;
begin
  if (Key=VK_DELETE) and (TLabel(TekstS) <> nil) then
  begin
    c_EKD := 0;
    TLabel(TekstS).Free;
    if StrToInt(TekstKol[List[8].IndexOf(ImSender)]) > 0 then
      for i_EKD := 1 to StrToInt(TekstKol[List[8].IndexOf(ImSender)]) do
        if FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_EKD)) <> nil then
        begin
          inc(c_EKD);
          TLabel(FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_EKD))).Caption :=
            'Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(c_EKD);
        end;
    TekstKol[List[8].IndexOf(ImSender)] := IntToStr(StrToInt(TekstKol[List[8].IndexOf(ImSender)]) - 1);
    Image1Click(Image1);
  end;
end;

перебор перед закрытием

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i_FCl: integer;
begin

  if StrToInt(TekstKol[List[8].IndexOf(ImSender)]) > 0 then
    for i_FCl := 1 to StrToInt(TekstKol[List[8].IndexOf(ImSender)]) do
    begin
      TLabel(FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_FCl))).Visible := False;
    end;
  Form1.Enabled := True;
  Form1.Show;
  Form1.SetFocus;
end;

теперь словами
во первых извените за обьем кода, но без всего думаю будет сложнее)
вот последователность деиствии:
создал 3 лабела, закрыл : ок
создал 3 лабела, удалил 3-и, закрыл : ок
создал 3 лабела, удалил 2-и, удалил 3-и, закрыл : ок
создал 3 лабела, удалил 2-и, закрыл : ошибка
после ошибки, удалил 3-и, закрыл : ок

пожалуста спасаите

P.S. читать код порои самому сложно, если затруднит, скажите, сокращу

[mss]

Спасение утопающих - дело рук самих утопающих.
Ищи строчку с адресом 447E73 (Search -> Find Error ..)

[GunSmoker]

http://www.gunsmoker.ru/2009/05/access-violation.html

[asmodey1]

Прошу прощения... А какой великий смысл в этой строчке :

TLabel(FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_FCl))).Visible := False;

если форма будет закрыта...
Или вы ее не динамически создаете, а она все время висит в памяти бесполезным грузом ?

[ArtGrek]

список картинок, у каждои из которых свои список лабелов
Текст_Х_У, Х - IntToStr(List[8].IndexOf(ImSender)) индекс картинки к которои пренадлежит текст, У - IntToStr(i_FCl) порядковыи номер, при закрытии все ишезают, а при открытии показываюца только лабелы с индексом Х
лучше не придумал)

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

Спасение утопающих - дело рук самих утопающих.

как угодал то!) ток тогда у меня выбора не было, тем более инета)

Ищи строчку с адресом 447E73 (Search -> Find Error ..)

круто! начну учить assembler)

[veniside]

F8 нажми, чтобы код в отладчик прогрузился, тогда и появится Find Error.
Только если код редактировался, то адрес 00447E73 уже протух, скорей всего.

[ArtGrek]

uses
  ..., Controls;

вот что нашел в модуле

  TControlActionLink = class(TActionLink)
  protected
    procedure SetVisible(Value: Boolean); override;
  TControl = class(TComponent)
  private
    procedure SetVisible(Value: Boolean);
    property Visible: Boolean read FVisible write SetVisible stored IsVisibleStored default True;
{ TControlActionLink }
procedure TControlActionLink.SetVisible(Value: Boolean);
begin
  if IsVisibleLinked then FClient.Visible := Value;
end;
{ TControl }
procedure TControl.SetVisible(Value: Boolean);
begin
  if FVisible <> Value then
  begin
    VisibleChanging;
    FVisible := Value;
    Perform(CM_VISIBLECHANGED, Ord(Value), 0);
    RequestAlign;
  end;
end;

компоненты я только начал учица писать и в модуле хоть и арентируюсь, но ошибку понять не могу
в ассемблере я вообше не знаю ничего
сеичас начну читать статью GunSmoker, может тогда разберусь

[ArtGrek]

из прочитаного я понял что неверно удаляю, пункт 7 в статье GunSmokera
но как с етим бороца чет не понял

  TLabel(TekstS).Destroy;
  TLabel(TekstS) := nil

и

  FreeAndNil(TLabel(TekstS));

не помогли

и еше, хочу уточнить ошибку
Tekst_x_1, Tekst_x_2, Tekst_x_3 :My Labels Name;
удаляя Tekst_x_2 и переименовывая Tekst_x_3 в Tekst_x_2, при обрашении к Tekst_x_2 идет запрос в память старои Tekst_x_2?
я верно понимаю свою ошибку?

[Stilet]

TLabel(TekstS).Destroy;

А проверку чему равно TekstS перед освобождением?

[ArtGrek]

if (Key=VK_DELETE) and (TLabel(TekstS) <> nil) then

есть, вроди