Hallo,
mal schmutzig hingeschrieben:
Delphi-Quellcode:
var
iTest : Integer;
...
repeat
edit;
Fieldbyname('ID').AsString:= ActiveSheet.Cells.Item[x, 'A'].Value;
Post;
Inc(x, 1);
// Eine Zahl in Value sollte eigentlich auch als String gelesen werden können,
// so dass hier eine Konvertierung String nach Integer möglich sein sollte.
// Ist diese nicht möglich, so wird -1 geliefert, was wir als Abbruchbedingung
// nutzen können.
iTest := StrToIntDef(ActiveSheet.Cells.Item[x, 'A'].Value,-1);
until iTest = -1;
Achso: Nicht getestet, nur mal so als Workaround gedacht, eventuell hilfts ja.