一个数组里的数据是这样的.
1
2
3
4
2
3
1
6
7用for从第一个往下找
需要找到第5行的时候,发现2在之前出现过.就跳过去继续找下一条,
到第6行时发现3之前也出现过,那继续下一条,
到第8行的时候,发现6之前没有,那么把这个6取出来.
依此类推....
1
2
3
4
2
3
1
6
7用for从第一个往下找
需要找到第5行的时候,发现2在之前出现过.就跳过去继续找下一条,
到第6行时发现3之前也出现过,那继续下一条,
到第8行的时候,发现6之前没有,那么把这个6取出来.
依此类推....
解决方案 »
- 年终双薪当奖金,算算回家一趟就没了,郁闷,散分!
- 有哪位大哥幫幫忙?
- 激活关闭屏保问题
- dbgrid的小问题,up者有分。
- 有约束条件的两个表如何insert数据?
- Delphi编译到最后Linking时,总是出现与ntdll.dll有关的错误
- 怎样在程序运时弹出一对话框或窗体,持续5秒后再自动消失?
- hi,我又遇到困难了,帮我解答解答好吗?我在线等着,谢谢了.
- filter的问题
- ado中如何创建数据表?
- 求助!!求助!!帮帮忙了!用到了DBGRID想做修改功能,发现能在DBGRID上直接修改,原本是想做个修改按键的,可是直接在DBGRID上修改就会出现问题,我不
- ActiveX Form里不能放ocx控件?
var a:array of Integer;
t:TStringList;
i:integer;
begin
t := TStringList.Create;
SetLength(a,9);
a[0]:= 1;
a[1] := 2;
a[2] := 3;
a[3] := 4;
a[4] := 2;
a[5] := 3;
a[6] := 1;
a[7] := 6;
a[8] := 7;
for i := 0 to Length(a) - 1 do
begin
if t.IndexOf(IntToStr(a[i])) = - 1 then
t.Add(IntToStr(a[i]));
end;
Memo1.Text := t.Text;
t.Free;
end;
是一个在TObjectList<T>里
T是一个类,有N个字段,
比如T.ID,T.Name,等等.
BillDetails : TObjectList<TRec_billdetail>;
for I := 0 to BM.BillDetails.Count-1 do
begin
if (tmpType = BM.BillDetails.Items[i]._ItemID) then
begin
continue;//如果相邻的两个是一样的话,这个方法可以,但有可能就是两个不相邻!
end;
tmpType := BM.BillDetails.Items[i]._ItemID;
end;
t := TStringList.Create;
for I := 0 to BM.BillDetails.Count-1 do
begin
if t.indexof(BM.BillDetails.Items[i]._ItemID)<>-1 then
begin
continue;//如果相邻的两个是一样的话,这个方法可以,但有可能就是两个不相邻!
end;
t.add(BM.BillDetails.Items[i]._ItemID);
end;