◇[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('''');
;