Скачать: CL | DM;

Не могу понять где ощибка   Найти похожие ветки 

← →
Ulugbek   (2002-06-05 08:51) [0]

Здраствуйте Мастера!!!
В программе я делаю такую вешь

procedure TfrmAddTPM.cmdAddClick(Sender: TObject);
var
strMecode,strCheckPoint,strWorkContents,strTolerance,strPeriod,strWorkClass,strWorkerId,strCheckTime,strResult:string;
strDatePlanned,strDateResult: string;
begin
dm.dmMain.tblTPrevent.Filtered := true;
dm.dmMain.tblTPrevent.Filter := "MECode = "+#39+txtmecodefrom.Text+#39 ;
dm.dmMain.tblTPrevent.First;
strmecode:=dm.dmMain.tblTPrevent.fieldbyname("MeCode").value;
strCheckPoint:=dm.dmMain.tblTPrevent.fieldbyname("Check Point").value;
strWorkContents:=dm.dmMain.tblTPrevent.fieldbyname("Work_Contents").value;
strTolerance:=dm.dmMain.tblTPrevent.fieldbyname("Tolerance").value;
strPeriod:=dm.dmMain.tblTPrevent.fieldbyname("Period").value;
strWorkClass:=dm.dmMain.tblTPrevent.fieldbyname("Work Class").value;
strWorkerId:=dm.dmMain.tblTPrevent.fieldbyname("Worker_id").value;
strCheckTime:=dm.dmMain.tblTPrevent.fieldbyname("Check Time").value;
strResult:=dm.dmMain.tblTPrevent.fieldbyname("Result").value;
strDatePlanned:=datetostr(dm.dmMain.tblTPrevent.fieldbyname("Date_Planned").value);
strDateResult:=datetostr(dm.dmMain.tblTPrevent.fieldbyname("Date_Result").value);
end;

а программа дает следующую ощибку:
Invalid variant type conversion

Мастера помогите решить этот вопрос. Плиз

---

← →
boogier   (2002-06-05 09:15) [1]

вместо value примени AsString, AsInteger и т.п.

---

← →
Praco ©   (2002-06-05 09:21) [2]

Кстати,
Filtered := true;
лучше делать после
Filter := "MECode = "+#39+txtmecodefrom.Text+#39 ;

---

← →
Ulugbek   (2002-06-05 09:22) [3]

Спасибо за совет!
Но если я беру asdate дает ощибку

---

← →
Lord Warlock ©   (2002-06-05 09:26) [4]

> Но если я беру asdate дает ощибку


строковой переменной надо AsString, доже если поле - дата или число

---

← →
AlexPotemkin ©   (2002-06-05 09:40) [5]

Попробуй вместо DateToStr -> DateTimeToStr. Должно помочь.

---

← →
Ulugbek   (2002-06-05 09:41) [6]

Всем спасибо

---

← →
Bond   (2002-06-05 10:10) [7]

Вместо DateToStr или DateTimeToStr используй FormatDateTime
Очень полезная функция. Кроме того, что переводит дату и время в строку, делает еще много других полезных вещей. Не поленись, почитай Help.
И как уже было сказано выше, вместо Value используй asDateTime, asString, asInteger и т.д. Помогает избегать ошибок типа Invalid variant type conversion

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c