07-02-2020, 03:31 PM
Also you can use .value in the assign:
UserSession.FDQryUsersMod.FieldByName('UserID').value := AnsiUppercase(inpUID.Text);
UserSession.FDQryUsersMod.FieldByName('PartID').value := UserSession.UsersSelectedPartId;
UserSession.FDQryUsersMod.FieldByName('Uppldat').value := now;
.value is a genetic type which will add the value as it is assigned, as long as the assigned and the assignee types are the same.
UserSession.FDQryUsersMod.FieldByName('UserID').value := AnsiUppercase(inpUID.Text);
UserSession.FDQryUsersMod.FieldByName('PartID').value := UserSession.UsersSelectedPartId;
UserSession.FDQryUsersMod.FieldByName('Uppldat').value := now;
.value is a genetic type which will add the value as it is assigned, as long as the assigned and the assignee types are the same.