Zeoslib Portal

Hi Doug,

What does it say here?:
viewtopic.php?f=3&t=44184

Michał

Hi kjteng, This way you can force formatting: procedure TForm1.Button5Click(Sender: TObject); var i:Integer; begin with ZMemTable1 do for i := 0 to FieldCount-1 do begin case Fields[i].DataType of ftFloat, ftBCD: TNumericField(Fields[i]).DisplayFormat := '0.000'; ftCurrency: TNumericField(Fields[i])...

Hi kjteng, all, You can operate between many different ZMemTable. It would be more interesting and relatively simple to write/read parts (from-to) of the ZMemTable to/from disk, and merge data. Though it might actually be useful to copy the definitions of the specified fields and data to the ZMemTab...

Hi aehimself, With your patch from an hour ago(for Zeos8_trunk7715): L606: - AStream.Read(buf, Length(buf)); + AStream.Read(buf, fsize); My test on FirebirdSQL database tables passed for: - Delphi 2007 - Delphi XE2-Win32/Win64 - Delphi 10.3.3-Win32/Win64 - Delphi 11sp1-Win32/Win64 - Lazarus 2.0.8-Wi...

Hi aehimself,

For D10.3.3-Win32 and LoadFromFile still 'Out of memory' sometimes 'Stream read error'.

Michał

Also works with Delphi 2007 but sometimes with LoadFromStream the error 'Invalid floating point operation' pops up and the stop is on: ZSysUtils.pas: procedure DecodeDateTimeToDate(const Value: TDateTime; var Date: TZDate); begin DecodeDate(Value, Date.Year, Date.Month, Date.Day); Date.IsNegative :=...

Hi aehimself, Now in D10.3.3-Win32 it works in my testing. In Lazarus 2.0.12-Win64 crashes when trying to SaveToFile for any table with non-empty MEMO field This is best seen by downloading: https://sourceforge.net/projects/lazarus/files/Lazarus%20Windows%2064%20bits/Lazarus%202.0.12/ or other: http...

Hi aehimself, Does your comment mean that the current in-place implementation does not work on Lazarus? It works, but with a (critical) Date error which is not present in the uploaded 'kjteng' version (it only has a problem with zeroing empty numbers). Therefore, I asked for a correction as an alter...

Hi aehimself,

The 'kjteng' version seems to be better at ftDate and works with Lazarus 2.0.12-Win64. But it also has a problem with inserting zeros.
You could take a peek, maybe you can correct it. I send.
Michał

Hi aehimself,

aehimself wrote: ↑10.11.2021, 20:31

Code: Select all

function TZDateField.GetDataSize: Integer;
begin
  Result := SizeOf(TDateTime);
end;

Where to use it, because I'm already lost?

Michał

Hi aehimself,

I came across this by cloning zTable, so the data comes from the zeos table where it behaves normally.

Michał

Hi aehimself, There is one more bug with ftDate. Wrong writes or reads from the stream. Wrong writes or reads (0 probably). You can see it in dbgrid. procedure TForm1.Button20Click(Sender: TObject); var ms:TMemoryStream; cp:TZControlsCodePage; begin ZMemTable2.Close; ZMemTable2.FieldDefs.Clear; ZMem...

Hi aehimself,

It seems that with this version of yours from a moment ago, both bugs are gone.
But it keeps testing.

Michał

Hi,

After entering your table, the duplication of the string is gone but the numeric ones are still set to zero.
Michał

Hi aehimself, Yes. but I don't know if and not earlier. I am enclosing an example(D10.3.3-Win32). At the top, the original at the bottom after clone-save-load. dup1.png SET SQL DIALECT 3; CREATE TABLE TEST_PERSON ( ID INTEGER, NAME CHAR(20), SURNAME CHAR(20), BIRTH_DATE TIMESTAMP, NOTE BLOB SUB_TYPE...