9. März 2009 16:53
10. März 2009 16:19
10. März 2009 18:59
Field := RecordSet.Fields().Item('Memo');
IF Field.ActualSize > 0 THEN BEGIN
AktFeldInhalt := Field.GetChunk(1024);
AnzahlMemoRec := ROUND(STRLEN(AktFeldInhalt) / 80, 1, '>');
FOR x := 1 TO AnzahlMemoRec DO BEGIN
Comment.INIT;
Comment."Table Name" := Comment."Table Name"::Contact;
Comment."No." := Contact."No.";
Comment."Line No." := NextCommentLineNo(Comment);
Comment.Date := WORKDATE;
Comment.Comment := COPYSTR(AktFeldInhalt, 1+((x-1)*80), 80);
Comment.INSERT;
END;
CLEAR(AktFeldInhalt);
END;
12. März 2009 08:48