کدی برای حذف کاملات تکراری

سلام به دوستان عزیز برنامه نویس
والله بنده یک برنامه کوچولو با دلفی میخوام بنویسم که یک قسمت داره که بهش شماره موبایل ها رو اضافه میکنیم!
مثلا 500 تا شماره موبایل هست!

09120000000
09120001234
09120004321
09120001234

و....

حالا میخوام این برنامه بگرده و شماره موبایل هایی که تکراری هستند رو از لیست حدف کنه! و یکیشون رو بگذاره!
یا لا اقل اعلام کنه که چه شماره هایی تکراری هستند!

ممنون میشم راهنماییم کنید
ممنون

سلام. برای نگهداری اطلاعات از دیتابیس استفاده می کنید؟ اگر پاسخ مثبته که فیلد شماره ها رو کلید بذارید وگر نه بگید از چه کنترل یا ابزاری برای ذخیره شماره ها استفاده میکنید

دوست عزیز من همه ی شماره ها رو در یک فایل txt ذخیره کردم ! و میخوام با یک کار ساده به یک ListBox ایمپورت کنم!

با کد زیر فایل رو در listBox لود کنید:

کد:

---

listbox.items.loadFromFile('filePath')

---

بعد با روشهای مختلف میتونید عناصر تکراری رو مشخص کنید و حذف کنید

ممنون
دوست عزیز من اینو بلد بودم!
فقط دنبال راهی میگردم تا عناصر تکراری رو مشخص کنم
ممنون میشم کمکم کنی

کدزیر داده های تکراری را حذف می کنه حالا شما می تونید به جای حذف کردن داده های تکراری را در یک جای دیگه نمایش بدید :

کد:

---

Procedure RemoveDuplicateItem(SrcList,DestList:TStringList);
var
  i:cardinal;
  index:longint;
  str:string;
begin
If not assigned(SrcList) then
  SrcList := TStringList.Create;
If not assigned(DestList) then
  DestList := TStringList.Create;
  SrcList.Sort;
for i:=0 to SrcList.Count-1 do begin
  str:=SrcList.Strings[i];
  DestList.Sort;
  index:=0;
  If not DestList.Find(str,index) then begin
    DestList.Insert(index,str);
  end;
end;             
end;

---

نقل قول:

---

حالا شما می تونید به جای حذف کردن داده های تکراری را در یک جای دیگه نمایش بدید

---

ممنون میشم یک مقدار توضیح بدید
ممنون

تشکر از دوست عزیزم as13851365 . شما باید خط اول کد بالا(تعریف تابع) رو به صورت زیر تغییر بدید:

کد:

---

function RemoveDuplicateItem(SrcList,DestList:TStringList):TStringList;

---

و بعد با کدی مانند کد زیر و استفاده از 2 listbox به نتیجه دلخواه برسید:

کد:

---

procedure TForm1.btn1Click(Sender: TObject);
var
  a,b:TStringList;
begin
a:=TStringList.Create();
b:=TStringList.Create();
a.AddStrings(lst1.Items);
lst2.Items:=RemoveDuplicateItem(a,b);
end;

---

موفق باشید

آقا من نمیدونم این تابع رو کجا بنویسم؟

نقل قول:

---

function removeduplicateitem(srclist,destlist:tstringlist): tstringlist;

---

ممنون

چطور از هر tabsheet به tabsheet دیگه میپرند در کد نویسی