Patch level : 10.0
Files correlati : ve0.exe Ricompilazione Demo : [ ] Commento : Corretto azzeramento dei sottocampi es: RAGSOC[30,50] git-svn-id: svn://10.65.10.50/trunk@20216 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
ea2f334517
commit
0d6f84b6f7
@ -2451,11 +2451,8 @@ void TFieldref::write(const char* val, TRectype& rec) const
|
||||
buffer = rec.get(_name);
|
||||
if (_to <= _from)
|
||||
((TFieldref*)this)->_to = rec.length(_name);
|
||||
if (val && *val)
|
||||
{
|
||||
buffer.overwrite(val, _from, _to - _from);
|
||||
rec.put(_name, buffer);
|
||||
}
|
||||
buffer.overwrite(val, _from, _to - _from);
|
||||
rec.put(_name, buffer);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
@ -975,9 +975,10 @@ TString& TString::overwrite(
|
||||
//
|
||||
// @xref <mf TString::insert>
|
||||
{
|
||||
if (lung == 0 && s != NULL)
|
||||
if (s == NULL) s = "";
|
||||
if (lung <= 0 && *s)
|
||||
lung=strlen(s);
|
||||
if (s || lung)
|
||||
if (lung > 0)
|
||||
{
|
||||
const int l = len();
|
||||
if (pos < 0) pos = l;
|
||||
|
Loading…
x
Reference in New Issue
Block a user