[1.9.8 bug?] Orphaned Text lines

[Francois Van Lerberghe]

le 12-08-03 12:45, erne <ernestogiannotta at tiscalinet.it> a écrit :

> You mean update record or add record failure after having written data
> to Blob field?
> 
> Yes, this is known issue
> Valentina allocates segments to write those data in the Blob file
> but forgets to free them up in case of Update/Add failure
> or of course in case a crash occurs before issuing Update/Add commands.

This is during an add command that seems to work well (no database error)
The (simplified) code is

  myCursor.myVTextField.SetBlank
  if lenB(theString) > 0 then
    if existingRecord() then              // False if Adding a new record
      myCursor.myVTextField.DeleteData
    end if
    myCursor.myVTextField.value = theString
  end if

  ---------

  ok = myCursor.Add
  app.myDatabase.Flush

After that, I have an orphan segment.

François Van Lerberghe
Thier Monty, 15A
B-4570 Marchin
Belgique