Groupboxen, Comboboxen

[Swagger Jackin]

Zitat von DeddyH:

Ich seh da jetzt auf Anhieb nix, was zum Fehler führen könnte. Evtl. hast Du weiter oben ein end vergessen oder sowas?

[edit] Welcher Fehler wird denn eigentlich gemeldet? [/edit]

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00473CF0 in module 'Project1.exe'. Read of address 0000000'. Process stopped. Use Step or Run to continue.
--> Fehlermeldung

Dann zeigt er bei der LeisteDrawCell bei case of ... ; einen Fehler. Schau mal oben in meinen Quelltext bei der Leiste (weiter oben). Ich markier es gleich

Delphi-Quellcode:

{=====================================================================}
procedure TForm1.LeisteDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if Leiste.Cells[ACol,Arow] <> '-1'       [b]--> Fehler wird hier angezeigt !!!!!!!!!!!!!!!!!!!!!![/b]
  then
    case Leiste.Cells[ACol,ARow][1] of
      '0' : Leiste.Canvas.Brush.Color := clRed;
      '1' : Leiste.Canvas.Brush.Color := clBlue;
      '2' : Leiste.Canvas.Brush.Color := clYellow;
      '3' : Leiste.Canvas.Brush.Color := clGreen;
      '4' : Leiste.Canvas.Brush.Color := clWhite;
      else Leiste.Canvas.Brush.Color := clBlack;  // Farbe für "gelöscht"
      end; // endcase
  Leiste.Canvas.Pen.Color := clBlack;
  Leiste.Canvas.Rectangle(Rect);
end;
{=====================================================================}