[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;