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

;