Has Lazarus acquired new ftXXX TFieldType values?

[vfclists]

When I look in Db I see TFieldType defined as

Code: Pascal  [Select][+][-]

1.   TFieldClass = class of TField;
2.  
3.   // Data type for field.
4.   // The order is determined by Delphi compatibility
5.   TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
6.     ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate,  ftTime, ftDateTime,
7.     ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
8.     ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar,
9.     ftWideString, ftLargeint, ftADT, ftArray, ftReference,
10.     ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface,
11.     ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, ftFixedWideChar, ftWideMemo);
12.  

I don't see any special field to specify a field which is Utf8 in the list of field types, so which is it likely to be ftString, ftWideString,ftMemo, ftWideMemo or what?

How does the database library decide the TFieldType for a database text type? It is up to the library designer?

[JuhaManninen]

I don't see any special field to specify a field which is Utf8 in the list of field types, so which is it likely to be ftString, ftWideString,ftMemo, ftWideMemo or what?

It would be ftString.

[vfclists]

I don't see any special field to specify a field which is Utf8 in the list of field types, so which is it likely to be ftString, ftWideString,ftMemo, ftWideMemo or what?

It would be ftString.

Is this irrespective of length, even if it is a Postgres Text column?

[JuhaManninen]

I don't know really. You must study the Postgres documentation.

[vfclists]

I don't know really. You must study the Postgres documentation.

I suspect it may be down to the libraries used.

It seems that Zeos treats any varchar column which doesn't specify a length as a text field and causes them all to show as (memo) in the controls.

[marcov]

That's true, and that can be fixed using the ongettext

So I have a function like this in my main datamodule

Code: Pascal  [Select][+][-]

1. procedure TDataModuleBase.defaultGetText(Sender: TField; var Text: string;
2.   DisplayText: Boolean);
3. begin
4.   if DisplayText then
5.      Text := Copy(sender.AsString, 1, 50)
6.   else
7.      text:=sender.AsString;
8. end;
9.  

and assign ongettext of every twidememofield to this function.