CField:TEield; - Общие вопросы Delphi

voron.kz · 04.12.2009, 20:47

БАЗА ДАННЫХ

не подскажите в чем ошибка....и правильно ли написано CField:TEield;....delphi говорит Undeclared identifier 'TEield'...

Alex Cones · 04.12.2009, 20:55

Цитата:

CField:TEield;

Эм.... Может CField:TField;?

voron.kz · 04.12.2009, 20:55

с предыдущим вопросом я разобрался....а что в fklntemalCalc не верно?как будет правильнее?

Alex Cones · 04.12.2009, 20:56

fkInternalCalc?

voron.kz · 04.12.2009, 20:57

Цитата:

Сообщение от Alex Cones

fkInternalCalc?

спасибо!помогло!)

куда функции писать?в type?

что надо сделать с CField:TField; ,если выдается ошибка <<[Error] Unit2.pas(34): Undeclared identifier: 'TField'>>

voron.kz · 05.12.2009, 14:44

что надо сделать с CField:TField; ,если выдается ошибка <<[Error] Unit2.pas(34): Undeclared identifier: 'TField'>>

Код:

procedure TForm2.ListBox1Click(Sender:  TObject);
var FKind: string;
CField:TField;
begin

Не в коня корм...
В правилах четко написано, как положено оформлять код!

mihali4 · 05.12.2009, 14:45

Ворон, у вас кнопа "Правка" видна?
Или - правила не для вас?
По теме.
Где вы делаете объявление CField:TField?
Приведите кусок кода (предварительно внимательно прочитав правила раздела).

З.Ы. А DB в uses у вас подключена?

voron.kz · 05.12.2009, 15:06

что надо сделать с CField:TField;?...если выдается ошибка <<[Error] Unit2.pas(34): Undeclared identifier: 'TField'>>

Код:

procedure TForm2.ListBox1Click(Sender:  TObject);
var FKind: string;
CField:TField;
begin
if  ListBox1.Itemindex=-1  then  Exit;
ListBox2.Items.Clear;
CField:=Forml.Queryl.FieldByName(ListBoxl.Items[ListBoxl.Itemlndex]);
ListBox2.Items.Add('Èìÿ  ïîëÿ  -'+CField.DisplayName);
ListBox2.Items.Add('Çíà÷åíèå ïîëÿ -'+CField.DisplayText);
case  CField.FieldKind  of
fkData:  FKind:='none  òàáëèöû ÁÄ';
fkCalculated:  FKind:='ðàñ÷åòíîå';
fkLookup:  FKind: ='ïîëå  ïîèñêà';
fklntemalCalc:  FKind:='ðàñ÷åòíîå  ñ  õðàíåíèåì ðåçóëüòàòîâ  â  íàáîðå';
fkAggregate:  FKind:='àããðåãèðîâàííîå';
else FKind:='íåèçâåñòíûé âèä ïîïÿ';
end;
ListBox2.Items.Add('Âèä - '+ FKind);
ListBox2.Items.Add('Òèï ïîëÿ - '+ FieldTypeNames[CField.DataType]);
ListBox2.Items.Add('Ðàçìåð (áàéò) - '+ IntToStr(CField.DataSize));
ListBox2.Items.Add('Íîìåð - '+ IntToStr(CField.FieldNo));
if CField.CanModify then ListBox2.Items.Add('ðåäàêòèðóåìîå')
else ListBox2.Items.Add('íå ðåäàêòèðóåìîå');
end;

DarkEvil · 05.12.2009, 18:09

модуль DB в uses добавлен?

04.12.2009, 20:47	#1
voron.kz Пользователь Регистрация: 24.09.2009 Сообщений: 43	CField:TEield; БАЗА ДАННЫХ не подскажите в чем ошибка....и правильно ли написано CField:TEield;....delphi говорит Undeclared identifier 'TEield'... Последний раз редактировалось voron.kz; 04.12.2009 в 20:53.

04.12.2009, 20:56	#4
Alex Cones Trust no one. Старожил Регистрация: 07.04.2009 Сообщений: 6,526	fkInternalCalc? SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА. МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ

05.12.2009, 14:44	#6
voron.kz Пользователь Регистрация: 24.09.2009 Сообщений: 43	что надо сделать с CField:TField; ,если выдается ошибка <<[Error] Unit2.pas(34): Undeclared identifier: 'TField'>> Код: `procedure TForm2.ListBox1Click(Sender: TObject); var FKind: string; CField:TField; begin` Не в коня корм... В правилах четко написано, как положено оформлять код! Последний раз редактировалось mihali4; 05.12.2009 в 15:01.

05.12.2009, 14:45	#7
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Ворон, у вас кнопа "Правка" видна? Или - правила не для вас? По теме. Где вы делаете объявление CField:TField? Приведите кусок кода (предварительно внимательно прочитав правила раздела). З.Ы. А DB в uses у вас подключена? Последний раз редактировалось mihali4; 05.12.2009 в 15:03.

04.12.2009, 20:55	#3
voron.kz Пользователь Регистрация: 24.09.2009 Сообщений: 43	с предыдущим вопросом я разобрался....а что в fklntemalCalc не верно?как будет правильнее?