做试验,从备注框里读取字段失败.大家帮我看看代码问题......(50)

备注里是从文本文件里导过去的...procedure TForm1.Button1Click(Sender: TObject); var s:string;begin OpenDialog1.Filter := '文本文件 '; OpenDialog1.FileName := '*.txt ';if Opendialog1.Execute then begin edit1.Text :=opendialog1.FileName; s:=Opendialog1.FileName; // memo1.Lines.Add(s); listbox1.Items.Add(ExtractFileName(s)); // memo1.Lines.Add(extractfilepath(s)); Memo1.lines.loadfromfile(OpenDialog1 .filename);end; end;procedure TForm1.Button2Click(Sender: TObject); vars,s1:integer; begins:=pos('样品编号:',memo1.text);s1:=pos('采样地点：',memo1.text);edit2.text:=copy(memo1.text,s,s1-s);edit3.Text:=copy(memo1.Text,s,s1-s );//采样地点取不过去....end;end.

修改了下,过了.edit3.Text:=copy(memo1.Text,s1,s1-s );有人回个贴,把分给散了.

来了

我发现出问题了...样品编号:TRQ-2008-10-016采样地点:柳屯配气站(大化 外销管线)检测设备: HP6890plus/us00032696我的代码执行完后,edit3框里是,采样地点:柳屯配气站(大化少了,"外销管线)"

szhcracker:帮我看下...有问题啊....