+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استفسار حول القيم المكررة (/showthread.php?tid=11192)
RE: استفسار حول القيم المكررة - Ibn Battuta - 30-01-2021
شكرا جزيلا لمساعدتكم [size=small]اخواني الاكارم [/size]
لم تحل المشكلة بعد ..
![[صورة: 479183673.jpg]](https://www2.0zz0.com/2021/01/30/23/479183673.jpg)
ما ابحث عنه هو كتابة الاسم المكرر مرة واحد وذكر كم مرة تكرر
RE: استفسار حول القيم المكررة - FiREWORKS - 31-01-2021
خارج الموضوع، الملف التنفيذي المرفق في هذا الموضوع مصاب بــ Virus:Win32/Induc.A
راجع هذا الموضوع الأصلي:
https://delphi4arab.net/forum/showthread.php?tid=1132
RE: استفسار حول القيم المكررة - محمد عبد العزيز - 31-01-2021
(31-01-2021, 08:32 AM)FiREWORKS كتب : الملف التنفيذي المرفق في هذا الموضوع مصاب بــ Virus:Win32/Induc.Aشكرا للتنبه اخي ع.
هذا احد اسباب منع ارفاق ملفات تنفيذية بالمنتدى.
تم خذف الexe وعادة ارفاق الملفات المصدرية فقط
RE: استفسار حول القيم المكررة - Ibn Battuta - 31-01-2021
شكرا لك اخي محمد على اصلاح الملف
تلك مشكلة اعاني منها كثيرا
عندما تجربة البرنامج واحيانا اوقف برنامج الحماية ..
المشكل فقط على دلفي 7
اما النسخ الاخرى من xe فما فوق يشتغل بدون مشاكل
RE: استفسار حول القيم المكررة - ALG2009 - 31-01-2021
بعت التحميل وقعت في مشكلة
أصبح الدلفي 10.3.3 يتجمد ولا يفتح أي مشروع
أردت المساعدة وقعت في مشكل ما الحل
RE: استفسار حول القيم المكررة - Ibn Battuta - 31-01-2021
اسف كثيرا اخي الكريم ALG2009
لانني كنت سبب في تجمد الدلفي بجهازك
لكن مثلما قال الاخ في الردود السابقة
تابع هذا الموضوع تجد حل لمشكلتك ان شاء الله
https://delphi4arab.net/forum/showthread.php?tid=1132
RE: استفسار حول القيم المكررة - ALG2009 - 31-01-2021
114.jpg (الحجم : 61.52 ك ب / التحميلات : 10)
لقد قمت بحذف الملف الذي حملته أعطاني هذه الرسالة عند فتح الدلفي
هل أقوم بحذف الدلفي
عندما اريد إختيار قرص لذهاب إلى مشروع يتشنج الجهاز
110.jpg (الحجم : 65.91 ك ب / التحميلات : 9)
وعند الدخول من السايف مود النمط المحمي
114.jpg (الحجم : 41.07 ك ب / التحميلات : 8)
115.jpg (الحجم : 18.39 ك ب / التحميلات : 7)
RE: استفسار حول القيم المكررة - sofiane201 - 01-02-2021
(31-01-2021, 07:33 PM)ALG2009 كتب : لقد قمت بحذف الملف الذي حملته أعطاني هذه الرسالة عند فتح الدلفي
هل أقوم بحذف الدلفي
عندما اريد إختيار قرص لذهاب إلى مشروع يتشنج الجهاز
وعند الدخول من السايف مود النمط المحمي
هناك بعض الخيارات قبل أن تبدأ في الحذف:
- أعد الدخول في Safe mode, بعدها أدخل في cmd بصلاحيات المدير, ثم الأمر "sfc /scannow", أو قم بعملها من خلال usb أو dvd به نظام تشغيل.
- حاول إرجاع النظام إلى نقطة رجوع قديمة "System Restore".
RE: استفسار حول القيم المكررة - Ibn Battuta - 16-02-2021
هل هناك كود واضح حتى اظبط التكرار واعرضه باحد المكونات مثل ListBox او Memo
للن المشكل لا زال قائم كما هو موضح في الصورة السابقة ..(
RE: استفسار حول القيم المكررة - محمد عبد العزيز - 17-02-2021
السلام عليكم
حل على السريع... ليس أنيق لكنه يفي بالغرض.
كود :
Var
NN: Boolean;
Max, i,j,k,m : integer;
St: String;
begin
ListBox1.Clear;
Max:= StringGrid1.RowCount-1;
For i:=1 to Max Do begin
K:=1;NN:=False;
For j:=i+1 to Max Do
if StringGrid1.Cells[1, i]=StringGrid1.Cells[1, j] then inc(k);
if K>1 then begin
For m:=0 to ListBox1.Items.Count-1 do
if copy(ListBox1.Items[m],1,pos('=',ListBox1.Items[m])-1)=StringGrid1.Cells[1,i] then NN:=True;
if not NN then ListBox1.Items.Add(StringGrid1.Cells[1,i]+'='+IntToStr(k));
end;
end;
//////////////////////////////////////
ListBox2.Clear;
For i:=1 to Max Do begin
K:=1;NN:=False;
For j:=i+1 to Max Do
if StringGrid1.Cells[3, i]=StringGrid1.Cells[3, j] then inc(k);
if K>1 then begin
For m:=0 to ListBox2.Items.Count-1 do
if copy(ListBox2.Items[m],1,pos('=',ListBox2.Items[m])-1)=StringGrid1.Cells[3,i] then NN:=True;
if not NN then ListBox2.Items.Add(StringGrid1.Cells[3,i]+'='+IntToStr(k));
end;
end;
end;