Aşağıdaki şekilde okuma ve yazma işlemi gerçekleştirebilirsiniz.

Sub SetStringMemo()
    a=["Sample Memo String line1","Sample Memo String line2","Sample Memo String line3"]
    SetStrings("LMemo1", a)
End Sub

Sub ReadStringMemo()
    ' Type is unique memo ID
    typ=1
    ' Ref is reference to memo string
    StringRef = 12
    Application.ReadStrings(typ, StringRef, b)
    SetStrings("LMemo1", b)
End Sub

Sub WriteStringMemo()
    ' Type is unique memo ID
    typ=1
    ' Ref is reference to memo string
    StringRef = 12
    GetStrings("LMemo1", c)
    Application.WriteStrings(typ, StringRef, c)
End Sub

 

---

20/10/15 10:07