delphi4arab منتديات دلفي للعرب

الصفحات : 1 2 3

شكرا جزيلا لمساعدتكم [size=small]اخواني الاكارم [/size]

لم تحل المشكلة بعد ..

ما ابحث عنه هو كتابة الاسم المكرر مرة واحد وذكر كم مرة تكرر

خارج الموضوع، الملف التنفيذي المرفق في هذا الموضوع مصاب بــ Virus:Win32/Induc.A

راجع هذا الموضوع الأصلي:
https://delphi4arab.net/forum/showthread.php?tid=1132

(31-01-2021, 08:32 AM)FiREWORKS كتب : [ -> ]الملف التنفيذي المرفق في هذا الموضوع مصاب بــ Virus:Win32/Induc.A

شكرا للتنبه اخي ع.
هذا احد اسباب منع ارفاق ملفات تنفيذية بالمنتدى.
تم خذف الexe وعادة ارفاق الملفات المصدرية فقط

شكرا لك اخي محمد على اصلاح الملف Smile

تلك مشكلة اعاني منها كثيرا
عندما تجربة البرنامج واحيانا اوقف برنامج الحماية ..
المشكل فقط على دلفي 7
اما النسخ الاخرى من xe فما فوق يشتغل بدون مشاكل

بعت التحميل وقعت في مشكلة
أصبح الدلفي 10.3.3 يتجمد ولا يفتح أي مشروع Angry

أردت المساعدة وقعت في مشكل ما الحل

اسف كثيرا اخي الكريم ALG2009
لانني كنت سبب في تجمد الدلفي بجهازك
لكن مثلما قال الاخ في الردود السابقة
تابع هذا الموضوع تجد حل لمشكلتك ان شاء الله
https://delphi4arab.net/forum/showthread.php?tid=1132

[attachment=4452]
لقد قمت بحذف الملف الذي حملته أعطاني هذه الرسالة عند فتح الدلفي

هل أقوم بحذف الدلفي
عندما اريد إختيار قرص لذهاب إلى مشروع يتشنج الجهاز
[attachment=4453]

وعند الدخول من السايف مود النمط المحمي

[attachment=4454]

[attachment=4455]

(31-01-2021, 07:33 PM)ALG2009 كتب : [ -> ]لقد قمت بحذف الملف الذي حملته أعطاني هذه الرسالة عند فتح الدلفي

هل أقوم بحذف الدلفي
عندما اريد إختيار قرص لذهاب إلى مشروع يتشنج الجهاز

وعند الدخول من السايف مود النمط المحمي

هناك بعض الخيارات قبل أن تبدأ في الحذف:

أعد الدخول في Safe mode, بعدها أدخل في cmd بصلاحيات المدير, ثم الأمر "sfc /scannow", أو قم بعملها من خلال usb أو dvd به نظام تشغيل.
حاول إرجاع النظام إلى نقطة رجوع قديمة "System Restore".

هل هناك كود واضح حتى اظبط التكرار واعرضه باحد المكونات مثل ListBox او Memo
للن المشكل لا زال قائم كما هو موضح في الصورة السابقة ..(

السلام عليكم
حل على السريع... ليس أنيق لكنه يفي بالغرض.

كود :
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;

الصفحات : 1 2 3

Ibn Battuta

FiREWORKS

محمد عبد العزيز

Ibn Battuta

ALG2009

Ibn Battuta

ALG2009

sofiane201

Ibn Battuta

محمد عبد العزيز