Delphi 提取用户名

来源：百度知道 编辑：UC知道 时间：2024/06/06 04:38:34
haoren初中一年级
xixha初中三年级
adfdaf初中二年级
sd8563初中一年级
lidf初中二年级
x666初中二年级
qhkun初中一年级
MC5113515初中一年级

如果我想将以上初中前的用户名提取出来怎么编写代码?
如果是循环的话呢?
我用for i:=0 to Memo1.lines.count do
这样显示的数据错误
但用For i:=Memo1.lines.count downto 0 do
这样显示正确...不知道为什么!

首先for循环有错
for i := 0 to Memo1.lines.count - 1 do

or

for i := Memo1.lines.count - 1 downto 0 do
接着如果这问题是你之前问的那个For循环问题的后续的话,那用for i := 0 to Memo1.lines.count - 1 do的话,只会处理一半的数据,你单步运行就知道问题在哪啦!因为你add和delete使得i所指向的行不准确啦

var
str:string;
n:integer;
begin
str:='MC5113515初中一年级';
n:=pos('初',str);
str:=copy(str,1,n-1);
showmessage(str);
end;

先uses StrUtils
然后
Label1.Caption:=LeftStr('haoren初中一年级',Length('haoren初中一年级')-10);

a:='haoren初中一年级 ';
copy(a,1,length(a)-10);