Delphi ongettext и onsettext не обновляют значение в поле базы данных
я новичок в Delphi, и у меня возникла проблема с сохранением значения TimeEdit в поле, которое является целым числом.Процедура OnGetText работает, но процедура OnSetText не обновляет целочисленное поле в базе данных.Это то, что я пробовал до сих пор
Что я уже пробовал:
procedure TForm1.TesttimeTableTimeStartGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin Str((Sender.AsInteger/60):6:2,Text); end;
procedure TForm1.TesttimeTableTimeStartSetText(Sender: TField; const Text: string); Var TempStr : String; TempVal : LongInt; TempTExt : String; begin TempText := Text; while Pos(' ', TempText) > 0 do TempText[Pos(' ', TempText)] := '0'; if Pos(':',TempText) > 0 then begin TempStr := Copy(TempText,1,Pos(':',TempText)); TempVal := StrToInt(Copy(TempText,Pos(':',TempText)+1,length(TempText) - Pos(':',TempText))); TempVal := TempVal + (StrToInt(TempStr)*60); end else begin TempVal := StrToInt(TempText)*60; end; Sender.AsInteger := TempVal; end;
Richard MacCutchan
Где находится код, который должен обновить базу данных?
gerhardlouis
Я прошу прощения.Я забыл упомянуть, что использую УДК FireDac с навигатором привязки.Я создал тестовую БД с одной таблицей и двумя полями
Richard MacCutchan
Извините, но я об этом ничего не знаю.
gerhardlouis
Я ценю ваше время, чтобы попытаться помочь мне.
0x01AA
"is not updating the integer field in the database": вы называете "Post" запроса?
gerhardlouis
Сори за то, что вернулся только сейчас.Пожалуйста, уточните, что вы называете "постом" запроса?"