Mal ne andere Frage
Code:
procedure TForm1.Button4Click(Sender: TObject);
var
i: Integer;
begin
If OpenDialog1.Execute then Begin
Table2.Active := false;
Table2.TableName := OpenDialog1.FileName ;
Table2.Active := True;
for i := 0 to Table2.FieldCount - 1 do begin
Table1.Append;
Table1.Fields.Fields[i].AsString := Table2.Fields.Fields[i].AsString;
Table1.Post;
end;
end;
end;
Was is den Hier Falsch
Der gibt "IndexFehler" beim ausführen zurück.
[Message=Sakura]Kein Problem - Doppelposting entfernt[/Message]