| ( |
|
|
|||
| Puts string into TextField | |||
 |
|
| Parameters: | |
| String to be put in to TextField | |
| any Vc record, in example EMailQueVc type record | |
|
|
procedure TextMailToEMailQue(record MailVc Mailp,record EMailQueVc EMailQuep)
BEGIN
string 255 tstr;
Integer pos,textsize;
textsize = SizeTextCnt(Mailp);
while (pos<textsize) begin
tstr = StringFromText(Mailp,pos,255);
pos = pos + len(tstr);
if (len(tstr)==0) then begin
pos = pos + 1;
end;
AddToText(tstr,EMailQuep);
end;
RETURN;
END;
|
|
| Related topics: | |