Mein Programm enthält eine
Paradox-Datenbank mit
Delphi-Quellcode:
Tbl.TableType := ttParadox;
Tbl.Active := false;
with Tbl.FieldDefs do begin
clear;
Add(A,ftString,4,true);
Add(B,ftString,4,false);
for i := 1 to Anzahl do Add(IntToStr(i),ftWord,0,false);
end;
Tbl.IndexDefs.add(A,A,[ixPrimary]);
...
bislang lief alles prima.
Nur nach:
for i := 1 to Anzahl do if not Tbl[IntToStr(i)].IsNull then ...
Im Projekt Bla.exe ist ein Exception der Klasse EOleError aufgetreten. Meldung: 'Variante referenziert kein Automatisierungsobjekt'.
Oder nach:
Delphi-Quellcode:
for i := 1 to (Anzahl-1) do begin
Tbl[IntToStr(i+1)] := Tbl[IntToStr(i)];
Tbl[IntToStr(i)] := Null // <-- hier der Fehler
end;
...
Tbl[B] := Null; // <-- falls es bis hierhin läuft, ist hier auch der Fehler...
...
Tbl[B].Clear; // hier gleiches Problem
...
if (Tbl[B] = '') then .. // das übliche...
Im Projekt Bla.exe ist ein Exception der Klasse EDatabaseError aufgetreten. Meldung: 'Ungültige Variant-Typumwandlung'.
dann hätte ich noch
ungültige Variantoperation auf Lager:
Delphi-Quellcode:
var WertA: variant;
begin
WertA := Tbl[B]; // hier: Tbl[B] = 'c';
...
Wäre sehr dankbar wenn ihr mir helft.