UC知道Delphi 中For 循环问题
来源：百度知道 编辑：UC知道 时间：2024/06/18 00:06:41
haoren初中一年级
xixha初中三年级
adfdaf初中二年级
sd8563初中一年级
lidf初中二年级
x666初中二年级
qhkun初中一年级
MC5113515初中一年级
我想得到前初中前边的用户名,用了两种循环..第一种正确.第二种得出折结果不正确..为何呢?downto 和 to 一个降一个升,错在哪里?
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
s,ss:string;
begin
{for i:=memo1.lines.count downto 0 do
begin
ss:=memo1.Lines.strings[i];
s:=LeftStr(ss,Length (ss)-10);
memo1.lines.Delete(i);
memo1.lines.Add(s);
end;}
for i:=0 to Memo1.Lines.Count do
begin
ss:=memo1.lines.Strings[i];
s:=LeftStr(ss,Length (ss)-10);
memo1.lines.Delete(i);
Memo1.lines.Add(s);
end;
end;
我用正提取的话.会出错..能修改一下代码吗?
xixha初中三年级
adfdaf初中二年级
sd8563初中一年级
lidf初中二年级
x666初中二年级
qhkun初中一年级
MC5113515初中一年级
我想得到前初中前边的用户名,用了两种循环..第一种正确.第二种得出折结果不正确..为何呢?downto 和 to 一个降一个升,错在哪里?
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
s,ss:string;
begin
{for i:=memo1.lines.count downto 0 do
begin
ss:=memo1.Lines.strings[i];
s:=LeftStr(ss,Length (ss)-10);
memo1.lines.Delete(i);
memo1.lines.Add(s);
end;}
for i:=0 to Memo1.Lines.Count do
begin
ss:=memo1.lines.Strings[i];
s:=LeftStr(ss,Length (ss)-10);
memo1.lines.Delete(i);
Memo1.lines.Add(s);
end;
end;
我用正提取的话.会出错..能修改一下代码吗?
删除的是默认的首行...
但是却是在后面追加的.
不过,我不喜欢这样写.
我比较喜欢直接用正则来提取.
for i:=0 to Memo1.Lines.Count-1 do
begin
ss:=memo1.lines.Strings[i];
s:=LeftStr(ss,Length(ss)-10);
memo1.lines.Strings[i]:=s;
end;