ich kann mir gerade mal net helfen.
Ich bin aktuell dabei ein Komblettes Programm so zu schreiben, das alle Kombonenten zur LZ erstellt werden.
Soweit passt auch alles, nur diese Zeile macht mir gerade etwas Ärger.
Code: Alles auswählen
SetLength(DB, 3);
hier mal noch ein weiterer Auszug aus meiner Definistion.
Code: Alles auswählen
public
{ public declarations }
CheckBox : TCheckBox;
Logo : TImage;
Col : Array of TColumn;
Datum : Array of TDateEdit;
DB : Array of TDBGrid;
Directory : Array of TDirectoryEdit;
LEdit : Array of TLabeledEdit;
TB : Array of TComboBox;
_Label : Array of TLabel;
Code: Alles auswählen
procedure TForm1.FormCreate(Sender: TObject);
begin
SetLength(Col, 30);
SetLength(Datum, 2);
SetLength(Directory, 2);
SetLength(LEdit, 20);
SetLength(TB, 2);
SetLength(_Label, 20);
SetLength(DB, 3); // <--- Hier wird der Fehler "cannot assign a nil to a font" ausgelöst!
end;
Wäre ich da ggf besser beraten wenn ich diese 3 Datentabellen einzeln erstelle? Sprich das Array so ändere
Code: Alles auswählen
// DB : Array of TDBGrid;
ADB : TDBGrid;
MDB : TDBGrid;
RDB : TDBGrid;