Access Violation bei FindComponent

[omata]

Welcher Fehler? Welche Zeile?

Delphi-Quellcode:

procedure TfrmMain.btnRandomClick(Sender: TObject);
var
  Getippte_Zahlen: Array [1..6] of integer;
  i: integer;
  c: TObject;
  Label2: TLabel;
begin
  MixNumber(10);
  if durchlaeufe > 0 then begin
    for i:= 1 to 6 do begin
      if Assigned(c) and (c is TLabel) then begin
        Label2:=TLabel(c);
        Label2.Font.color:=clblack;
        Label2.Font.size:=14;
        Label2.Top:=Label2.Top+2;
        Label2.Left:=Label2.Left+2;
      end;
    end;
  end;

  for i:= 1 to 6 do begin
    Getippte_Zahlen[i]:=Lottozahlen[i];
    c := FindComponent('label'+inttostr(lottozahlen[i]));
    if Assigned(c) and (c is TLabel) then begin
      Label2:=TLabel(c);
      Label2.Font.color:=clred;
      Label2.Font.size:=18;
      Label2.Top:=Label2.Top-2;
      Label2.Left:=Label2.Left-2;
    end;
  end;
  Durchlaeufe:=Durchlaeufe+1;
end;

Tu uns und dir doch bitte den Gefallen und rücke ordentlich ein.

Wo wird den im ersten Teil c initalisiert?

MfG
Thorsten

[Chrissi91]

Beim 1. Tippenwird am Ende c zugewiesen. Beim 2. Tippen ist es doch immer noch zugewiesen, oder etwa nicht?

Im 1.Beitrag habe ich geschrieben wo der fehler ist. In allen anderen Beiträgen habe ich auch erwähnt, dass der Fehler immer noch der Gleiche ist.

[omata]

Ja, das da eine Access Violation raus kommt ist klar. Die Frage ist eher wo, sprich in welcher Zeile.

Und der Code aus dem Ursprungsthread hat nicht mehr viel mit dem Code weiter unten in diesem Thread zu tun. Wie gesagt wo wird c (im ersten Bereich deiner Prozedur) initialisiert?
Ich habe deinen Code extra anders eingerückt, damit du selber drauf kommst.

Thorsten

[Chrissi91]

Also.

Es funktioniert jatzt, auch so wie es vorher war. Ich habe nur vergessen, das Array Getippte_Zahlen global (Heißt das so?) zu deklarieren.

Die Access Violation kam ohne das trotzdem immer an der selben STelle, wie ich in jedem meiner Beiträge extra darauf hingewiesen habe.

[omata]

Schön, dass es jetzt geht.

Zitat:

Zitat von Chrissi91

Die Access Violation kam ohne das trotzdem immer an der selben STelle, wie ich in jedem meiner Beiträge extra darauf hingewiesen habe.

Ja? dann bin ich blind.