Hm ja ich meinte Delphi 2009, hab es korrigiert.
Hier der Text der den Fehler verursacht:
Code:
---------------------------
Programm
---------------------------
object dsAuftrag: TDataSource Fields = < item Caption = 'Zeit_Vertrieb' FieldName = 'Zeit_Vertrieb' FieldType = 'double' DefaultValue = '0' ControlType = ctText ComboBoxItems = <> end item Caption = 'Zeit_Montage' FieldName = 'Zeit_Montage' FieldType = 'double' DefaultValue = '0' ControlType = ctText ComboBoxItems = <> end item Caption = 'Zeit_Lieferant' FieldName = 'Zeit_Lieferant' FieldType = 'double' DefaultValue = '0' ControlType = ctText ComboBoxItems = <> end item Caption = 'Zeit_Kunde' FieldName = 'Zeit_Kunde' FieldType = 'double' DefaultValue = '0' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Lieferant' FieldName = 'Verursacher_Lieferant' FieldType = 'logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Vertrieb' FieldName = 'Verursacher_Vertrieb' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Montage' FieldName = 'Verursacher_Montage' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Kunde' FieldName = 'Verursacher_Kunde' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Wetter' FieldName = 'Verursacher_Wetter' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Lieferant_Internorm1' FieldName = 'Verursacher_Lieferant_Internorm1' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Lieferant_Internorm2' FieldName = 'Verursacher_Lieferant_Internorm2' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Lieferant_Ideal1' FieldName = 'Verursacher_Lieferant_Ideal1' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Lieferant_Ideal2' FieldName = 'Verursacher_Lieferant_Ideal2' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Lieferant_Topic1' FieldName = 'Verursacher_Lieferant_Topic1' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Lieferant_Topic2' FieldName = 'Verursacher_Lieferant_Topic2' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Lieferant_Inotherm1' FieldName = 'Verursacher_Lieferant_Inotherm1' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Lieferant_Inotherm2' FieldName = 'Verursacher_Lieferant_Inotherm2' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Lieferant_Sonstige1' FieldName = 'Verursacher_Lieferant_Sonstige1' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Lieferant_Sonstige2' FieldName = 'Verursacher_Lieferant_Sonstige2' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Vertrieb1' FieldName = 'Verursacher_Vertrieb1' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Vertrieb2' FieldName = 'Verursacher_Vertrieb2' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Vertrieb3' FieldName = 'Verursacher_Vertrieb3' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Montage1' FieldName = 'Verursacher_Montage1' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Montage2' FieldName = 'Verursacher_Montage2' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Verursacher_Montage3' FieldName = 'Verursacher_Montage3' FieldType = 'Logical' DefaultValue = 'False' ControlType = ctText ComboBoxItems = <> end item Caption = 'Kosten_Material' FieldName = 'Kosten_Material' FieldType = 'Money' DefaultValue = '0' ControlType = ctText ComboBoxItems = <> end item Caption = 'Kosten_Montage' FieldName = 'Kosten_Montage' FieldType = 'Money' DefaultValue = '0' ControlType = ctText ComboBoxItems = <> end item Caption = 'Kosten_Info' FieldName = 'Kosten_Info' FieldType = 'Memo' ControlType = ctText ComboBoxItems = <> end> Left = 872 Top = 528 end
---------------------------
OK
---------------------------