Форум: "Базы";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];

Вниз

DBGrid   Найти похожие ветки 

← →
VIB   (2003-05-07 18:32) [0]

Как при выводе данных в DBGride програмно заменять
значения полей.
Если можно примерчик. Спасибо.

---

← →
Anatoly Podgoretsky   (2003-05-07 18:43) [1]

OnGetText

---

← →
VIB   (2003-05-07 18:47) [2]

Пробывал не могу разобратся.
Пожалуйста примерчик напишите.
Например у меня есть значение в базе "х"
и я хочу чтобы в Gride показало "xx"

---

← →
Zacho   (2003-05-07 19:18) [3]

> VIB (07.05.03 18:47)

Ну вот простейший примерчик:
TMyFormMyFieldGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
Text:=Text+"x";
end;

---

← →
VIB   (2003-05-07 19:25) [4]

Попробывал Ваш пример выводит только х а Текст не выводит

---

← →
Zacho   (2003-05-07 19:32) [5]

> VIB (07.05.03 19:25)

Ну можно попробовать так:
TMyFormMyFieldGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
Text:=Sender.AsString+"x";
end;

---

← →
sniknik   (2003-05-07 22:22) [6]

пример из дельфей (ADOTEST.DPR)
перевод интеджера в отображаемую строку

procedure TADODBTest.FieldSchemaDATA_TYPEGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
case FieldSchemaData_TYPE.Value of
$00000000: Text := "adEmpty";
$00000010: Text := "adTinyInt";
$00000002: Text := "adSmallInt";
$00000003: Text := "adInteger";
$00000014: Text := "adBigInt";
$00000011: Text := "adUnsignedTinyInt";
$00000012: Text := "adUnsignedSmallInt";
$00000013: Text := "adUnsignedInt";
$00000015: Text := "adUnsignedBigInt";
$00000004: Text := "adSingle";
$00000005: Text := "adDouble";
$00000006: Text := "adCurrency";
$0000000E: Text := "adDecimal";
$00000083: Text := "adNumeric";
$0000000B: Text := "adBoolean";
$0000000A: Text := "adError";
$00000084: Text := "adUserDefined";
$0000000C: Text := "adVariant";
$00000009: Text := "adIDispatch";
$0000000D: Text := "adIUnknown";
$00000048: Text := "adGUID";
$00000007: Text := "adDate";
$00000085: Text := "adDBDate";
$00000086: Text := "adDBTime";
$00000087: Text := "adDBTimeStamp";
$00000008: Text := "adBSTR";
$00000081: Text := "adChar";
$000000C8: Text := "adVarChar";
$000000C9: Text := "adLongVarChar";
$00000082: Text := "adWChar";
$000000CA: Text := "adVarWChar";
$000000CB: Text := "adLongVarWChar";
$00000080: Text := "adBinary";
$000000CC: Text := "adVarBinary";
$000000CD: Text := "adLongVarBinary";
$00000088: Text := "adChapter";
$00000040: Text := "adFileTime";
$00000089: Text := "adDBFileTime";
$0000008A: Text := "adPropVariant";
$0000008B: Text := "adVarNumeric";
else
Text := "<Unknown>";
end;

end;

---

← →
NAlexey   (2003-05-08 09:10) [7]

>end;
Чур, чур меня. Спаси, сохрани и помилуй меня господи... :)

---

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

Форум: "Базы";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];

Наверх

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