| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не могу понять где ощибка [D5, Paradox]

Ulugbek ©   (2002-06-05 08:51:00) 

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

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

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

---

Bond   (2002-06-05 10:10:00) [1]

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

---

Ulugbek   (2002-06-05 09:41:00) [2]

Всем спасибо

---

AlexPotemkin   (2002-06-05 09:40:00) [3]

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

---

Lord Warlock   (2002-06-05 09:26:00) [4]

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


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

---

Ulugbek   (2002-06-05 09:22:00) [5]

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

---

Praco   (2002-06-05 09:21:00) [6]

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

---

boogier   (2002-06-05 09:15:00) [7]

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

---

Наверх