新手学习delphi,TStringList简单问题求助,成功马上结贴。TStringList有如下数据
123
124
132
134
142
143
213
214
231
234
241
243
312
314
321
324
341
342
412
413
421
423
431
432取出每行字符串前两位字符进行对比 如果重复则删除 保留一行
如
123
124
只保留123 //遍历 错误
for i:= 0 to sjList.Count - 1 do
begin
sjTemp := sjList.Strings[0];
sjList.Delete(0);
left12 := copy(sjTemp,1,2);
for j:= 0 to sjList.Count - 1 do
begin
scTemp := sjList.Strings[j];
if left12=Copy(scTemp,1,2) then
begin
sjList.Delete(j);
scList.Add(sjTemp);
ShowMessage(sjList.Text);
end;
end;
end ;应该怎么写呢?只有20积分了。
123
124
132
134
142
143
213
214
231
234
241
243
312
314
321
324
341
342
412
413
421
423
431
432取出每行字符串前两位字符进行对比 如果重复则删除 保留一行
如
123
124
只保留123 //遍历 错误
for i:= 0 to sjList.Count - 1 do
begin
sjTemp := sjList.Strings[0];
sjList.Delete(0);
left12 := copy(sjTemp,1,2);
for j:= 0 to sjList.Count - 1 do
begin
scTemp := sjList.Strings[j];
if left12=Copy(scTemp,1,2) then
begin
sjList.Delete(j);
scList.Add(sjTemp);
ShowMessage(sjList.Text);
end;
end;
end ;应该怎么写呢?只有20积分了。
解决方案 »
- 谁有IDTCPClient/IDTCPServer或IDUDPClient/IDUDPServer发送消息的实例,D7+indy9
- Delphi人气狂飙群——Delphi技术咨询(群号:24819433)——正在狂飙中,欢迎各路豪杰加入!
- VCLSKIN是不是不支持框?我试用后,mdiChild类型的窗口没有完全被美化
- olecontainer.creatobject();
- 100求助。立刻给分
- 关于打印连续发票时出现的问题? 我在苦苦的等待!!
- 求套打解决方案
- 如何获得子窗口的句柄
- 请问大家用delphi都做过哪些软件呢?能否提供下载以便欣赏呢?(无源码也可)
- Toolbar1.Visible = False; & Toolbar1.Visible = True;
- TTreeView 的背景图片怎么弄啊。
- 高手搭救一下吧...................
var s:TStringList;
i:integer;
begin
s := TStringList.Create;
s.Sorted := true;
s.Text := Memo1.Lines.Text;
for i := s.Count - 1 downto 1 do
begin
if leftstr(s[i],2) = leftstr(s[i-1],2) then
s.Delete(i-1);
end;
Memo1.Lines.Text := S.Text;
end;