Fehler ermitteln und Ausgeben

[Andidreas]

danke für denn hinweis...


so gehts mit der komponente mysqldac:

Delphi-Quellcode:

procedure TMain_Form.prAddDat1(aErgebnis : Array of String; sRow : String);

var
s, sMySQLError  : String;

begin

  Try
    With (dbm.Dat1Query) Do
    Begin
      Application.ProcessMessages;
      SQL.Clear;
      s :=    ('Insert Into db.Dat1 (ID, Style, PT, SalesOrg, ErstDate, Row_ID, '
        +'                        Color, Style_No, Old_Color, TextilCD1, Per1, '
        +'                        TextilCD2, Per2, TextilCD3, Per3, TextilCD4, '
        +'                        Per4, TextilCD5, Per5, PSID1, PSID2, PSID3, '
        +'                        PSID4, PSID5, PSID6) '
        +'Values('''+aErgebnis[0]+''','''+aErgebnis[1]+''', '''+aErgebnis[2]+''', '''+aErgebnis[3]+''', '
        +'       '''+aErgebnis[4]+''', '''+aErgebnis[5]+''', '''+aErgebnis[6]+''', '
        +'       '''+aErgebnis[7]+''', '''+aErgebnis[8]+''', '''+aErgebnis[9]+''', '
        +'       '''+aErgebnis[10]+''', '''+aErgebnis[11]+''', '''+aErgebnis[12]+''', '
        +'       '''+aErgebnis[13]+''', '''+aErgebnis[14]+''', '''+aErgebnis[15]+''', '
        +'       '''+aErgebnis[16]+''', '''+aErgebnis[17]+''', '''+aErgebnis[18]+''', '
        +'       '''+aErgebnis[19]+''', '''+aErgebnis[20]+''', '''+aErgebnis[21]+''', '
        +'       '''+aErgebnis[22]+''', '''+aErgebnis[23]+''', '''+aErgebnis[24]+''') '
        +'       ');
      SQL.Add(s);
      dbm.Dat1Query.ExecSQL;
    End;
  Except
    On E:EmySQLDatabaseError Do
    Begin
      sMySQLError := E.Message;
      sMySQLError := sMySQLError + #13;
      sRow := sRow + #13 + #13;
      Writeln(txtFileError, sMySQLError);
      Writeln(txtFileError, sRow);
      If sError = ' ' Then
      Begin
        sError := 'X';
      End;
    End;
  End;

end;

weiß jemand wies mit ZEOS geht???

und wie kann ich allgemeine fehler (also die jetzt nichts mit db's zu tun haben) festestellen, auch so wies oben hoika gepostet hat????