主页
Top.Mail.Ru Yandeks.Metrika
论坛:“基地”;
当前存档:2002.04.25;
下载:[xml.tar.bz2];

向下

问候大师! 如何删除基础2中的相同行? 找到类似的分支


IronHawk   (2002-04-02 11:34) [0]

但是:您无法对数据进行排序,在删除数据库末尾之前不能移动相同的行 留空行 搬家后!
给定2:
有一个基本GUP.dbf(带有12列,从1到80行)和一个带有idkey.ndx索引的文件!
这应该简化任务!

...提前谢谢!



sniknik   (2002-04-02 11:50) [1]

搜索每个记录的选项卡以及相同性的比较。 但是Locate和其他人使用索引即使你不想要它。 更软的要求,否则问题没有解决方案



IronHawk   (2002-04-02 11:54) [2]


> sniknik©(02.04.02 11:50)

我无法软化“BUT”之后和之前“给定2”不可忽视的事情,否则任务没有意义!



sniknik   (2002-04-02 12:16) [3]

简单的胸围
RecNo:= 1;
而不是Table.eof开始
...保存记录
Table.Next;
而不是eof开始
if(记录等于保存)然后删除;
Table.Next;
结束
RecNo:= RecNo + 1;
Table.Goto(RecNo);
Table.Next;
结束
这样的事情。 完全没有指数,但在一张不太大的桌子上犹豫不决。



sniknik   (2002-04-02 12:24) [4]

抱歉小错误,我认为这个含义很明确。



fnatali   (2002-04-02 12:28) [5]

除了sniknik:
您可以进行查询选择DISTINCT ....
然后
query1.first;
而不是query1.eof开始
...
也许快一点。



IronHawk   (2002-04-02 12:36) [6]


> sniknik©(02.04.02 12:16)

谢谢大家!

> sniknik©(02.04.02 12:24)
>抱歉小错误,我觉得意思很清楚。

我也这么认为...... :-)

> fnatali©(02.04.02 12:28)

稍快一点,但这种基础上的速度是不加批判的。
更多的磁盘操作比内存消耗更好!



IronHawk   (2002-04-02 13:18) [7]

谢谢大家!
善良的人们解决了麻烦!

如果有毛刺,我肯定会写:-)))!



panov   (2002-04-04 10:54) [8]

下面是在不使用TQuery和索引的情况下删除仅包含文本字段的表中的相同记录的示例。

procedureTForm1.Button1Click(Sender: TObject);
var
index,i: Integer;
s: String;
tL1 : TStringList;
begin
tL1 := TStringList.Create;
try
Table1.First;
while not Table1.Eof do
begin
s := "";
for index := 0 to Table1.FieldCount-1 do
begin
s := s + Table1.Fields[index].AsString;
end;
tL1.Add(s);
Table1.Next;
end;

for index := 0 to tL1.Count-1 do
begin
if Integer(tL1.Objects[index]) <> 0 then Continue;
tL1.Objects[index] := Pointer(2);
for i := 0 to tL1.Count-1 do
begin
if ( (tL1[i] = tL1[index]) and (index<>i)) then tL1.Objects[i] := Pointer(1);
end;
end;

Table1.Last;
index := tL1.Count-1;
while not Table1.Bof do
begin
if Integer(tL1.Objects[index]) <> 1 then
begin
Table1.Prior;
end
else Table1.Delete;
Dec(Index);
end;
finally
tL1.Free;
end;
end;




IronHawk   (2002-04-04 12:32) [9]


> panov©(04.04.02 10:54)

班级工作真棒!
快速,简单,正确!
啊是主持人啊,干得好啊:-)!

伟大的,rulny variat!

谢谢大家!



Страницы: 1 整个分支

论坛:“基地”;
当前存档:2002.04.25;
下载:[xml.tar.bz2];

楼上





内存:0.57 MB
时间:0.081 c
1-80864
菲利波夫斯塔斯
2002-04-13 18:22
2002.04.25
替换编辑中的字符


14-81062
FELLINI
2002-03-20 07:24
2002.04.25
阻止程序


3-80787
丹尼斯大师
2002-04-04 17:35
2002.04.25
如何在DBStringGrig中更改字段名称


1-80845
konusov
2002-04-13 00:37
2002.04.25
如何更改文件创建日期?


14-81078
VATERMAN
2002-03-20 19:51
2002.04.25
mp3播放器





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский