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

[anf-b]

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

09120000000
09120001234
09120004321
09120001234

و....

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

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

[F A R H A D]

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

[anf-b]

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

[F A R H A D]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

[anf-b]

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

[as13851365]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[anf-b]

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

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

[F A R H A D]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

موفق باشید

[anf-b]

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

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

ممنون

[افسون پری]

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