[DELPHI]字串列表使用

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

;