gerhardlouis Ответов: 0

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

Сори за то, что вернулся только сейчас.Пожалуйста, уточните, что вы называете "постом" запроса?"

0 Ответов