如何把用户的输入的字符逐个断开，取出每一个字。 找金碟财务软件价格
库存管理软件版1楼: 各位delphi大侠,小弟Dephi初学者，还请各位多多提点，最好弄个函数来看看。
2楼: procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Edit1.Text[1] + #13 + Edit1.Text[2]);
end; 如金碟财务软件价格
3楼: 我也是新手，试了下，可以，不过中间那个字符是转行，如果是空格应该好一些
4楼: 空格是32
Copy不可以吗
5楼: 用copy+pos+Delete函数
看看帮助,很简单的.
6楼: 那只是个例子，回车是为了看的清楚，仅此而已！
库存管理软件版7楼: 但是有中文就不行了！！请指教！！
8楼: 各位delphi大侠,我是把这些字切开进行模糊查询呀，你们说怎么做？？？
9楼: l:=tstringlist.create;
procedure (l:TStringList,s:String);
var
j:integer;
begin
j:=0;
while j
if s[i]>128 then begin inc(j,2);end else inc(j);
l.add(s);
end;
end;
listbox1.items.assigned(l);
l.free;
联系我们
