30-01-2021, 09:10 PM
(آخر تعديل لهذه المشاركة: 31-01-2021, 09:23 AM بواسطة محمد عبد العزيز.)
شكرا جزيلا لمساعدتكم [size=small]اخواني الاكارم [/size]
لم تحل المشكلة بعد ..
![[صورة: 479183673.jpg]](https://www2.0zz0.com/2021/01/30/23/479183673.jpg)
ما ابحث عنه هو كتابة الاسم المكرر مرة واحد وذكر كم مرة تكرر
delphi4arab منتديات دلفي للعرب
›
منتديات دلفي للعرب التعليمية
›
سؤال و جواب حول دلفي
استفسار حول القيم المكررة
استفسار حول القيم المكررة
|
استفسار حول القيم المكررة
|
31-01-2021, 08:32 AM
خارج الموضوع، الملف التنفيذي المرفق في هذا الموضوع مصاب بــ Virus:Win32/Induc.A
راجع هذا الموضوع الأصلي: https://delphi4arab.net/forum/showthread.php?tid=1132 
31-01-2021, 09:28 AM
(31-01-2021, 08:32 AM)FiREWORKS كتب : الملف التنفيذي المرفق في هذا الموضوع مصاب بــ Virus:Win32/Induc.Aشكرا للتنبه اخي ع. هذا احد اسباب منع ارفاق ملفات تنفيذية بالمنتدى. تم خذف الexe وعادة ارفاق الملفات المصدرية فقط
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
31-01-2021, 05:21 PM
(آخر تعديل لهذه المشاركة: 31-01-2021, 05:23 PM بواسطة Ibn Battuta.)
شكرا لك اخي محمد على اصلاح الملف
 تلك مشكلة اعاني منها كثيرا عندما تجربة البرنامج واحيانا اوقف برنامج الحماية .. المشكل فقط على دلفي 7 اما النسخ الاخرى من xe فما فوق يشتغل بدون مشاكل
31-01-2021, 06:46 PM
بعت التحميل وقعت في مشكلة
أصبح الدلفي 10.3.3 يتجمد ولا يفتح أي مشروع  أردت المساعدة وقعت في مشكل ما الحل
31-01-2021, 07:21 PM
(آخر تعديل لهذه المشاركة: 31-01-2021, 07:22 PM بواسطة Ibn Battuta.)
اسف كثيرا اخي الكريم ALG2009
لانني كنت سبب في تجمد الدلفي بجهازك لكن مثلما قال الاخ في الردود السابقة تابع هذا الموضوع تجد حل لمشكلتك ان شاء الله https://delphi4arab.net/forum/showthread.php?tid=1132 
114.jpg (الحجم : 61.52 ك ب / التحميلات : 10)
لقد قمت بحذف الملف الذي حملته أعطاني هذه الرسالة عند فتح الدلفي هل أقوم بحذف الدلفي عندما اريد إختيار قرص لذهاب إلى مشروع يتشنج الجهاز
110.jpg (الحجم : 65.91 ك ب / التحميلات : 9)
وعند الدخول من السايف مود النمط المحمي
114.jpg (الحجم : 41.07 ك ب / التحميلات : 8)
115.jpg (الحجم : 18.39 ك ب / التحميلات : 7)
01-02-2021, 03:24 PM
(31-01-2021, 07:33 PM)ALG2009 كتب : لقد قمت بحذف الملف الذي حملته أعطاني هذه الرسالة عند فتح الدلفي هناك بعض الخيارات قبل أن تبدأ في الحذف:
16-02-2021, 09:45 PM
هل هناك كود واضح حتى اظبط التكرار واعرضه باحد المكونات مثل ListBox او Memo
للن المشكل لا زال قائم كما هو موضح في الصورة السابقة ..(
17-02-2021, 02:23 PM
السلام عليكم حل على السريع... ليس أنيق لكنه يفي بالغرض. كود : 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;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
|
|
|
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)
يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم