Fehlermeldung in try - except protokollieren

[MAVERIK]

Hallo Leute,

ich habe eine SQL-Anweisung in einem try - except - end Block untergebracht. Somit werden evtl. Fehlermeldungen dem Benutzer nicht angezeigt. Jedoch möchte ich die unterdrückten Fehlermeldungen in einer ListBox protokollieren. Wie muss ich da vorgehen? Ich hab mir schon den Kopf darüber zerbrochen, wie ich die Meldung im except-Abschnitt abgreifen kann? Vielleicht hat ja jemand eine Idee...

Delphi-Quellcode:

while not (qrWWS2.Eof) do
          begin
               frmDBReWriter.lblDatensatz.Caption := 'Datensatz ' + IntToStr(qrWWS2.RecNo) + ' von ' + IntToStr(qrWWS2.RecordCount);
               try
                  qrWWS3.SQL.Clear;
                  qrWWS3.SQL.Text:='INSERT INTO `tblBarVK_2` '+
                   '(`ID`, `ReNr`, `Anzahl`, `ArtikelNr`, `Artikel`,'+
                   ' `Brutto`, `MwSt`)'+
                   ' VALUES '+
                   '('''+qrWWS2.FieldByName('ID').AsString+''', '''+qrWWS2.FieldByName('ReNr').AsString+''', '''+qrWWS2.FieldByName('Anzahl').AsString+
                   ''', '''+qrWWS2.FieldByName('ArtikelNr').AsString+''', '''+qrWWS2.FieldByName('Artikel').AsString+''', '''+Trim(StringReplace(qrWWS2.FieldByName('Brutto').AsString, '.', ',', [rfReplaceAll,rfIgnoreCase]))+
                   ''', '''+Trim(StringReplace(qrWWS2.FieldByName('MwSt').AsString, '.', ',', [rfReplaceAll,rfIgnoreCase]))+''')';
                  qrWWS3.ExecSql;
               except
                     inc(iError);
                     frmDBReWriter.lblError.Caption := 'Fehler: ' + IntToStr(iError);

//Hier muss die Meldung abgefangen werden
ListBox1.Items.Add(...);


               end;
               qrWWS2.Next;
               frmDBReWriter.pbConvert.Position := frmDBReWriter.pbConvert.Position + 1;
          end;

[Olli]

Wie wäre das?:

Delphi-Quellcode:

ListBox1.Items.Add(frmDBReWriter.lblError.Caption);

[MAVERIK]

In dem Label frmDBReWriter.lblError.Caption zählt er nur die Anzahl der aufgetretenen Fehler. Die Fehlermeldung selber muss ich aber abgreifen. Und die steht da nicht drin!
Z.B. "Fehler in der SQL-Syntax bei '12345'...". Diese Meldung wird ja durch try,except unterdrückt, aber ich möchte sie dennoch protokollieren!

[Flocke]

Etwa so:

Delphi-Quellcode:

try
  //...
except
  on E: Exception do
  begin
    ListBox1.Lines.Add(E.Message);
  end;
end;

[MAVERIK]

Das isses. Allerding muss dass so aussehen.

Delphi-Quellcode:

try 
  //... 
except 
  on E: Exception do 
  begin 
    ListBox1.Items.Add(E.Message); 
  end; 
end;

Danke für den Tipp.

[sakura]

Für Privatanwender kostenfrei und fürs Gewerbe sehr, sehr preiswert. MadExcept - hier ist ein Tutorial. Nur genial!

...:cat:...