| ( |
|
|
|||
| Returns Number of characters in TextField | |||
 |
|
| Parameters: | |
| any Vc record, in example LTxtVc type record | |
|
|
global
procedure PasteLTxttoLet(record LetVc Letr)
BEGIN
record LTxtVc LTxtr;
string 255 tstr;
Integer pos,textsize;
LTxtr.Code = Letr.LTxtCode;
if (ReadFirstMain(LTxtr,1,true)) then begin
textsize = SizeTextCnt(LTxtr);
while (pos<textsize) begin
tstr = StringFromText(LTxtr,pos,80);
pos = pos + len(tstr);
if (len(tstr)==0) then begin
pos = pos + 1;
end;
AddToText(tstr,Letr);
end;
end;
RETURN;
END;
|
|
| Related topics: | |