Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2012.01.22;
Скачать: [xml.tar.bz2];

Вниз

Вывод данных в DBGrid   Найти похожие ветки 

 
jacksotnik   (2011-10-13 12:02) [0]

Вобщем есть DBGrid в который выводится таблица через MyTable. Всё класно работает но вот вопрос у меня есть один столбец типа boolean я хочу чтоб в гриде отображались значения не true или false а какой либо тексто(типа true - нал, false-безнал). Можно-ли както подменить значение?


 
Anatoly Podgoretsky ©   (2011-10-13 12:03) [1]

OnGetText


 
jacksotnik   (2011-10-13 12:04) [2]

А можно поподробнее


 
Медвежонок Пятачок ©   (2011-10-13 12:07) [3]

TField.OnGetText


 
Плохиш ©   (2011-10-13 12:11) [4]


> jacksotnik   (13.10.11 12:04) [2]
>
> А можно поподробнее


Das Ereignis OnGetText wird ausgelöst, wenn die Feldeigenschaften DisplayText oder Text referenziert werden.

Delphi-Syntax:

property OnGetText: TFieldGetTextEvent;

C++ Syntax:

__property TFieldGetTextEvent OnGetText = {read=FOnGetText, write=FOnGetText};

Beschreibung

Mit einer OnGetText-Ereignisbehandlungsroutine können Sie Eigenschaften DisplayText und Text individuell verarbeiten. Mit OnGetText kann der Wert Value des Feldes für die Anzeige oder die Bearbeitung unterschiedlich formatiert werden. Alternativ dazu kann mit OnGetText auch etwas anderes als der Feldwert dargestellt werden.

Wenn keine OnGetText-Ereignisbehandlungsroutine vorhanden ist, entsprechen die Werte der Eigenschaften DisplayText und Text dem Wert der Eigenschaft AsString.


 
jacksotnik   (2011-10-13 12:25) [5]

Сделал так:
procedure Tfrm_klients.MyTable1korpGetText(Sender: TField; var Text: string;
 DisplayText: Boolean);
begin
if DisplayText = true then
text:="Нал";
if DisplayText = false then
text:="Безнал";
end;

Но насколько я понял оно не для каждой записи проверку условия делает. Как правильно организовать чтоб прошло по всем записям?


 
Медвежонок Пятачок ©   (2011-10-13 12:29) [6]

оно прошло по всем записям.


 
Германн ©   (2011-10-13 12:30) [7]


> jacksotnik   (13.10.11 12:25) [5]
>
> Сделал так:

Лучше б значение поля проверял.


 
jacksotnik   (2011-10-13 12:37) [8]


> Лучше б значение поля проверял.

А как проверить значение поля?


 
Медвежонок Пятачок ©   (2011-10-13 12:40) [9]

сравнить его значение с чем нибудь


 
jacksotnik   (2011-10-13 12:42) [10]

Та это я понимаю, вопрос в том как правильно обратиться к значению поля?


 
Inovet ©   (2011-10-13 12:42) [11]

if Sender.AsBoolean then text:="Нал";
else text:="Безнал";


 
Медвежонок Пятачок ©   (2011-10-13 12:46) [12]

Но лучше только внутри if DisplayText


 
jacksotnik   (2011-10-13 12:48) [13]

Спасибо всё получилось


 
Anatoly Podgoretsky ©   (2011-10-13 15:27) [14]

> jacksotnik  (13.10.2011 12:25:05)  [5]

Для этого надо ничего не делать.


 
icWasya ©   (2011-10-14 13:53) [15]

Вообщето для этого есть DisplayValues

 (MyTable.FieldByName("PayType").As TBooleanField).DisplayValue:="нал;безнал";



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

Форум: "Начинающим";
Текущий архив: 2012.01.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.004 c
3-1269545592
ruslan_as
2010-03-25 22:33
2012.01.22
Как скопировать таблицу Oracle в другую базу Oracle


15-1317227550
Alik
2011-09-28 20:32
2012.01.22
Delphi - Параллельные вычисления в многоядерных машинах


3-1269873300
Ольга
2010-03-29 18:35
2012.01.22
Генерация скрипов типа ALTER VIEW


4-1243546594
imprezident
2009-05-29 01:36
2012.01.22
Работа с компонентами стороннего приложения


15-1317980974
Scott Storch
2011-10-07 13:49
2012.01.22
Понятия "сфера" и "область".





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский