Printable View
سلام به دوستان عزیز برنامه نویس
والله بنده یک برنامه کوچولو با دلفی میخوام بنویسم که یک قسمت داره که بهش شماره موبایل ها رو اضافه میکنیم!
مثلا 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 . شما باید خط اول کد بالا(تعریف تابع) رو به صورت زیر تغییر بدید:
و بعد با کدی مانند کد زیر و استفاده از 2 listbox به نتیجه دلخواه برسید:کد:function RemoveDuplicateItem(SrcList,DestList:TStringList):TStringList;
موفق باشیدکد: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 دیگه میپرند در کد نویسی
بعد از نوشته زیر:نقل قول:
وبعد تعریف تابع رو اضافه کنید و یا تمام کد تابع رو بعد از خط زیر بنویسید:کد:public
{ Public declarations }
کد:implementation
{$R *.dfm}
سلام دوست عزیز. خوش آمدیدنقل قول:
لطفا سوالاتتون رو در جاهای مرتبط با موضوع تاپیک مطرح کنید و یا تاپیک جدید ایجاد کنید
موفق باشید
آقا ممنون ولی باز این ارور رو داد:
کد:[Error] Unit1.pas(19): Unsatisfied forward or external declaration: 'TTForm1.RemoveDuplicateItem'
ممنون میشم کمکم کنید
احتمالا هر دو کاری رو که گفتم انجام دادید. فقط کار دوم رو انجام بدیدنقل قول:
آقا من این سورس رو save کردم و اینجا میزارم تا یک نگاه بهش بندازی!
ممنونت میشم
کد:http://rapidshare.com/files/200272475/delphi_test_.rar.html
شما که اصلا بدنه تابع رو ننوشته بودی! اصلاحش کردم، از لینک زیر دانلود کنید:
کد:http://rapidshare.com/files/200288065/delphi_test_.rar
واقعا ممنون
ان شاالله اگه بازم سوال داشتم مزاحمت میشم
ممنون