◇[DELPHI]在FORM或其他容器上画线
var x,y:array [0..50] of integer;
r:=clred;
e:=psDash;
to(trunc(x[i]),trunc(y[i]));
to(trunc(x[j]),trunc(y[j]));
◇[DELPHI]字符串列表使用
var tips:tstringlist;
tips:=te;
fromfile('''');
:=tips[0];
(''last line addition string'');
rt(1,''insert string at NO 2 line'');
tofile('''');
;