for i := 0 to strs.Count-1 do if length(strs[i])<> 0 then begin
Writeln(F,strs.strings[i]); end;
该部分的内容含义是将strings中的内容以“，”为单位 逐行打印出来 即格式为： …..
商品号：条形码 商品名称：****** 商品号：条形码 商品名称：******** ………
条形码扫描仪是比较完善的技术，自动扫描后的条码在其后自动加了一个回车符，所以在delphi中只需拖入一个文本框选对文本框的选中焦点即 Form1.setfoucs
就可以把条形码接受进来到文本框中由于条形码扫描仪自动在其后面加了一个回车符 所以可以对文本框的onKeyPress编程 ……..
if(key=#13) then begin
…..
//如果接受到条形码，就…….
我们做一个系统都想要对其进行管理操作，对不同的人有不同的要求，这就需要做一个登录系统，往往我们登录一个系统的时候先弹出一个窗口让我们输入密码和用户名，输入正确则进入，用户名或密码储存于计算机的内部或一个表中，当输入后程序进行相应的查找。在delphi中虽然可以调用很多个窗体，但是主窗体只有一个，在执行的时候，主窗体必须处于可视状态或已经在执行，这里讲讲怎样实现这样的功能。 设计思想：
1在Access中新建一个数据库，在数据库中新建一个表将其命名为登录，有两个字段，第一个字段名称为用户名，字段属性为文本。 第二个字段名称为密码，字段属性为文本，前一个字段用于查出是否含有该用户名，后者是为了查出对应的密码。为放便起见 我们预先在登录表中输入两条记录：小明 0000；小华 1111。 2
打开
delphi7.0
后
新建
一个
DataModule1
（File—>New?Other-?Data Module）
3 向DataModule1中添加用到的控件，这里用到的控件（ADOConnection，ADOQuery）在控件菜单栏ADO中，向其中添加一个ADOConnection1 在左下方的Object Inspector 用鼠标单击ADOConnection1 设置它的属性 点击Connectionstring旁边的按钮如图所示
选择Microsoft Jet4.0 OLE DB Provider 选择下一步进入
点击三点按钮选择所建数据库的位置后点击测试连接，如果测试连接成功后 则如下图所示，在连接数据库的时候要把数据库先关闭，否则就会出错，然后依次点击确定，OK 这个过程即连接到数据库中的表中。
4.单击ADOConnection1，在 Object Inspector中修改Connected的属性为True，意思即允许被连接
5.向DataModule1中添加一个ADOQuery1修改它的Connection为ADOConnection1 意思即添加一个查询控件。 6.新建一个窗体form2 ，修改caption为 用户登录 执行File-?Use Uint 如图所示
7. 为窗体添三个标签Label1，Label2，Label3，两个Button1 Button2，一个Edit1文本框（控件栏Standard），在Data Controls 控件栏中向form2 中添加DBLookupComboBox1，在Data Access控件栏中向form2 添加DataSource1 在ADO中向form2中添加ADOTable1具体如下图二所示
8.