Tdbf и GetText

[amateur]

Привет...
Почему в лазаре SetText GetText:
{procedure TForm1.Dbf1NAZB1GetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
//
end; }

вызывают ошибку :

Unit1.pas(29,52) Error: Duplicate identifier "Text"

Может есть какой финт???

[Padre_Mortius]

Потому что Text это зарезервированное слово в Lazarus'е. и Его необходимо заменить на другой идентификатор.

[alexs]

Потому что Text это зарезервированное слово в Lazarus'е. и Его необходимо заменить на другой идентификатор

не вводите в заблуждение - просто свойство Text есть у самой формы (единственное - оно не опубликованно) - поэтому и дубликат

это глюк объявления типа в модуле DB - просто перепиши процедуру по виду:

Код: Выделить всё

procedure TForm1.Dbf1NAZB1GetText(Sender: TField; var AText: string;DisplayText: Boolean);

и всё заработает
кстати - это скорее глюк дельфи VCL - и по наследству он перекочевал в FCL - на мой взгляд компилятор тут ругается совершенно справедливо

[Padre_Mortius]

не вводите в заблуждение - просто свойство Text есть у самой формы (единственное - оно не опубликованно) - поэтому и дубликат

Вот вы как раз и вводите в заблуждение. Такого свойства нет у TForm (можете посмотреть в модуле Forms.pp). Но в любом случае, данная переменная используется Lazarus и подлежит замене.

Lazarus очень не равнодушно относится к таким словам, как Name, Text.

[alexs]

берём букварь, долго его зубрим насчёт того, от чего происходит наследование TForm, в чём разница между свойстви Text и Caption.

у ЛЮБОГО потомка от TControl есть два свойства Text и Caption - фактически это одно и тоже
просто в зависимости от необходимости от типа компонента публикуется либо то свойство либо то.
в исходниках это объявлено как:
property Caption: TCaption read GetText write SetText stored IsCaptionStored;
property Text: TCaption read GetText write SetText;

[amateur]

alexs - спасибо, заработало.....

Вопрос возник из-за перекодировки в компоненте TDBF. Решил пойти через гет и сет... По другому я не знаю как сделать. Знаю, что проблема в лазаре, но какая - еще не дорос ... Форум перелопатил, попалась одна ветка, попробывал, не сработало. Хотя, обидно, в дельфине функция работает....

[alexs]

какая операционка?
в какой локале создан DBF
в какой локале запускается программа?

но в принципе направление верное
TDbf практически не умеет изменять локали текста

[amateur]

fpc-2.1.5-20070808-win32

DBF:
версия - 3
кодировка - дос

Жаль альтернативы нет . Сам компонент сравнительно нормальный, токо не хватает маленького свойства . В одних компонентах доступа (название не помню) - красота: кодировку модна выбирать. И ему одинаково. Но это в дельфине:(.

[alexs]

поробуй свойство OnTranslate
я правдо не уверен что оно работает как надо
но в коде вроде используется даже

[amateur]

я и скудноватую книжку прочитал. Фишка в том, что в дельфине все работает, а лазарь не очень хочет делать подобное.
Пробывал: OnTranslate и DBFGlobals и еще разный мазо...зм. Эмоций много, а работа стоит . Решил сделать все оочень простым способом.... (Хочу присмотреться к лазарю и потом перейти в лин... А для работы нуно обращаться к дбфникам да еще и в досе. Дык что пока, радосной новости себе я не устрою.) Дело хлопотное, но интересное .