[DELPHI]字元串列表使用

◇[delphi]在form或其他容器上畫線

var x,y:array [0..50] of integer;

canvas.pen.color:=clred;

canvas.pen.style:=psdash;

form1.canvas.moveto(trunc(x[i]),trunc(y[i]));

form1.canvas.lineto(trunc(x[j]),trunc(y[j]));

◇[delphi]字元串列表使用

var tips:tstringlist;

tips:=tstringlist.create;

tips.loadfromfile(''filename.txt'');

edit1.text:=tips[0];

tips.add(''last line addition string'');

tips.insert(1,''insert string at no 2 line'');

tips.savetofile(''newfile.txt'');

tips.free;