On 1/12/2012 14:11, waldo kitty wrote:
but yet i find this in my debug output...
03597 5.04184917406000E+003 ..................... ** inserting record
[...]
03597 1.20109577665600E+004 ..................... ** inserting record
i was looking at the wrong compare... i had thought i'd be "smart" and use
strcomp but it has bit me arse! :lol:
function TTLEColl.Compare(key1, key2: pointer): sw_integer;
begin
if PString(key1)^ = PString(key2)^ then
compare := 0
else if PString(key1)^ < PString(key2)^ then
compare := -1
else
compare := 1;
// compare := strcomp(PChar(key1),PChar(key2));
end;
i wonder why the difference?? reverting to the original code as above (note the
commented out strcomp) and it is working... now, after scrolling thru a side by
side diff) there are no dupes at all, YAAAAY!
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal