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

Вниз

наследник TBlobField   Найти похожие ветки 

← →
TPersistent   (2014-08-22 14:33) [0]

Написал наследника от TBlobField:


TStrBlobField = class(TBlobField)
protected
 procedure SetAsString(const Value: string); override;
 {$IFNDEF NEXTGEN}
 procedure SetAsAnsiString(const Value: AnsiString); override;
 {$ENDIF !NEXTGEN}
 procedure SetAsWideString(const Value: string); override;
end;

когда назначаю значение, в мой переопределенный обработчик SetAsString не заходит. Что не так делаю?

TStrBlobField(DataSet.FieldByName("blobstr")).AsString := "test";

---

← →
junglecat   (2014-08-22 15:19) [1]

а реальный тип DataSet.FieldByName("blobstr") какой?

---

← →
KilkennyCat ©   (2014-08-22 15:19) [2]

а почему ! в окончании условия? и  {$IFNDEF IOS} нагляднее.

---

← →
TPersistent   (2014-08-22 15:27) [3]

> а реальный тип DataSet.FieldByName("blobstr") какой?
>


В этом и проблема, там TBlobField. не пойму как в DataSet его динамически создать.

делаю как-то так:


F := TStrBlobField.Create(DataSet);
     try
       F.DataSet := DataSet;
       F.FieldName := "strblob";
       F.Name := "sbstrblob";
       DataSet.FieldDefs.Add(F.Name, ftBlob);
     except
       F.Free;
       raise;
     end;


когда потом обращаюсь к DataSet - AccessViolation. Что не так?

---

← →
junglecat   (2014-08-22 20:00) [4]

http://delphiworld.narod.ru/base/create_table_and_fields.html

---

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

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

Наверх

Память: 0.45 MB
Время: 0.002 c