gohje
asked on
Delphi 5 Define the tab width withi text in a memo field
Dear Experts,
The below codes will compute the string and put in into a temp table memo field . What is the tab ( #9) width by default and how do I redefine it ( I want to make it smaller width between column ) .
( Delphi 5 ,Paradox ) . The string consist of Chinese character , and I want to put string in memo field .
************************** *******
with sqlMaster do begin
while (not Eof) do begin
iCount :=iCount +1;
s1 := s1 + Trim(SubStr(sqlMasterName. AsString ,iLen +1,6))+#9;
if iCount =12 then s1:= Trim(s1) + #13;
Next;
end;
end;
with tbltemp do begin
Append;
fieldByName('MemoField').A sstring := s1;
post;
end;
The below codes will compute the string and put in into a temp table memo field . What is the tab ( #9) width by default and how do I redefine it ( I want to make it smaller width between column ) .
( Delphi 5 ,Paradox ) . The string consist of Chinese character , and I want to put string in memo field .
**************************
with sqlMaster do begin
while (not Eof) do begin
iCount :=iCount +1;
s1 := s1 + Trim(SubStr(sqlMasterName.
if iCount =12 then s1:= Trim(s1) + #13;
Next;
end;
end;
with tbltemp do begin
Append;
fieldByName('MemoField').A
post;
end;
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Forced accept.
Computer101
EE Admin
Computer101
EE Admin
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/editcontrols/editcontrolreference/editcontrolmessages/em_settabstops.asp
or
http://tinyurl.com/34fhqj
"The EM_SETTABSTOPS message sets the tab stops in a multiline edit control. When text is copied to the control, any tab character in the text causes space to be generated up to the next tab stop.
This message is processed only by multiline edit controls. You can send this message to either an edit control or a rich edit control."