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

[GunSmoker]

Твой код:

Name := 'Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + TekstKol[List[8].IndexOf(ImSender)];

Но:

TLabel(FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_EKD))).Caption :=
'Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(c_EKD);

Name <> Caption

[ArtGrek]

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

P.S. зато выучил много нового)

[ArtGrek]

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

[ArtGrek]

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

procedure TForm2.sButton1Click(Sender: TObject);
var
  i_sBC: integer;
begin
  Image2.Visible := False;
  Repaint;
  if StrToInt(TekstKol[List[8].IndexOf(ImSender)]) > 0 then
  begin
    TBitmap(List[1][List[8].IndexOf(ImSender)]).Canvas.StretchDraw(
          Bounds(0,0,TBitmap(List[1][List[8].IndexOf(ImSender)]).Width,TBitmap(List[1][List[8].IndexOf(ImSender)]).Height), TImage(ImSender).Picture.Graphic);
    for i_sBC := 1 to  StrToInt(TekstKol[List[8].IndexOf(ImSender)]) do
    begin
      with TBitmap(List[1][List[8].IndexOf(ImSender)]) do
      begin
        //if FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_sBC)) <> nil then
        //begin
          Canvas.Brush.Style := bsClear;
          Canvas.Font.Color :=
            TLabel(FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_sBC))).Font.Color
          ;
          Canvas.Font.Style :=
            TLabel(FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_sBC))).Font.Style
          ;
          Canvas.Font.Size := (Height div Form2.Image1.Height) *
            TLabel(FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_sBC))).Font.Size
          ;
          Canvas.TextOut(
            TLabel(FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_sBC))).Left *
            (Width div Image1.Width),
            TLabel(FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_sBC))).Top *
            (Height div Image1.Height),
            TLabel(FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_sBC))).Caption
          );
        //end;
      end;
    end;
  end;
  Close;
end;

[Человек_Борща]

Установи MadExcept и смотри стёк в момен исключения(ME это покажет).
Быстро наёдёшь причину ошибки.

[ArtGrek]

вот новыи отчет

[Человек_Борща]

смотри 155 строку в юните Unit2

ошибка после вызова FindComponent(судя по дизасму):
Знак > это строка с исключением

disassembling:
[...]
00581ed8       mov     edx, 4
00581edd       call    -$17ce16 ($4050cc)     ; System.@LStrCatN
00581ee2       mov     edx, [ebp-$20]
00581ee5       mov     eax, ebx
00581ee7       call    -$110d88 ($471164)     ; Classes.TComponent.FindComponent
00581eec     > mov     eax, [eax+$68]
00581eef       mov     eax, [eax+$18]
00581ef2       push    eax
00581ef3       mov     eax, esi
00581ef5       call    -$1066ce ($47b82c)     ; Graphics.TBitmap.GetCanvas
00581efa       mov     eax, [eax+$c]
[...]

[ArtGrek]

Знак > это строка с исключением

а что ето значит?

[Человек_Борща]

Значит что это место исключения которое повергло программу в даун.

[ArtGrek]

из 'Блог GunSmoker-а'

на вкладке Call Stack вы можете видеть состояние регистров, (части) стека и (части) памяти в момент исключения. В данном случае мы смотрим на ассемблерный листинг и видим, что в проблемной команде участвуют регистры eax и edx. По вкладке CPU мы находим, что eax равен 0, что означает, что мы пытаемся присвоить значение по указателю, равному nil. Взглянув на строчку исходника, которую мы узнали из стека вызовов, мы узнаем имя переменной. Вот вам и причина: переменная оказалась равна nil.

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

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