Try, except og finally for dummie

En hurtig gennemgang: http://delphi.about.com/od/objectpascalide/a/errorexception.htm

Ville det ikke være bedre at checke antallet af felter i stedet for at lade en try-except fange den?

Det kan du sådan set have ret i, men så er min næste opgave jo at finde ud af hvordan man lige gør det :-)

Jeg gætter på at du bruger TTable;

Antallet af felter i tabellen findes her:
Table.Fields.count

Navnene på de enkelte felter findes her:

for i:=0 to Table.FieldCount-1 do
Showmessage(Table.FieldDefs[i].Name);

Kunne du ikke helt slippe ved at lave en query op tabellerne der undlader de forkerte records?

Det simpleste var at sortere de fleste eller alle de dårlige registreringer fra i din Query. Det næstsimpleste er at kigge på data inden du kopierer.

Eksempelvis sådan her:

Query := TQuery.Create(nil);
try
  try
    Query.SQL.Text := ''; // Script der prøver at sortere dårlige records fra.
    Query.ParamByName('').AsInteger := 0; // Eventuelt parameter på scriptet
    Query.Open;
    while not Query.Eof do
    begin
      if Query.FieldByName('').AsInteger <> UlovligVaerdi then // Validér record
      begin
        // Kopiér til database
      end;
    end;
  except
    on e: exception do
      // Hvis den nedarver fra andet end Exception så typecast den og
      // se om ikke du får et fejlnummer at validere på
      // if (e as TOleException).ErrorMsg = -1230123780 then
      //  // et eller andet.
  end;
end;

Hvis du risikerer at bruge dårlige data ved insert (dvs. på linjen "// Kopiér til database") kan du pakke det ind i en try except

try
  // Kopiér til database
except
  on e: exception do
    if (e.errorcode <> -123123) then // Forskellig fra en fejl du vil ignorere
      raise;
end;

Problemet med de 'dårlige' data er at de maskiner der samler data op er nogle gamle anlæg og i dem kører der en ældre version af databasen hvor der simpelthen mangler nogle felter. De gode tabeller/filer indeholder 15 felter mens der er nogen med 13 og nogen med 12.
Maskinerne er meget apropo dagens begivenheder nogle infostandere i solcentre:-)

Jeg tror jeg har fået det problem løst ved at jeg checker antallet af felter som kroning foreslog og så tager jeg kun de tabeller der har de 15 felter jeg forventer (det er 218 ud af 231 filer)

Men mon ikke i alle har fortjent en håndfuld point?

At tælle felter vil sikkert fungere fint. Du kan også tjekke om feltet findes:

if Query.Fields.IndexOf('newfield') >= 0 then
begin
  // Kopiér data
end;

k

Jeg springer over :)

Jeg kunne selvfølgelig checke for hvert felt når jeg sætter parametrene her op
'Query.ParamByName('RecordID').Assign(Table.FieldByName('RecordID'));'
Men om det vil virke skal jeg lade være usagt. Men det kan da forsøges så jeg får data fra de gamle steder med også.