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