madCollection مجموعة مجانية ومفيدة

[rm31]

السلام عليكم ورحمة الله وبركاته

كود :

http://madshi.net/madCollection.exe

مجموعة لطيفة من الإظافات.
لمزيد من المعلومات عنها يمكنك زيارة.

كود :

http://madshi.net/

الذي أهمني هو : madExcept 3.0k
متتبع الأخطاء في برامجك لزبائنك حيث ينشئ ملفات نصية لجميع الأخطاء مع خيار إرسالها بالبريد الإلكتروني.
أليس جديرا بالتجربة؟

[me_delphi]

السلام عليكم ورحمة الله تعالى وبركاته
النسخة Basic مجانية
أترككم مع الموقع فيه جميع المعلومات

كود :

http://www.madshi.net/

[cargem]

وعليكم السلام

كود :

http://madshi.net/madCollection.exe

هل هذا من المقالب المضحكة؟
20mb وما وجدت سوى 1 components
يبدو انها تتمتع بمزايا نووية تفجيرية
صدمة كبيرة ما كنت اتوقعها ههه

[me_delphi]

عفوا اعتقدت ان المكون غير مطروح بالمنتدى

هل هذا من المقالب المضحكة؟

لا ياأخي ... هدا مسار النسخة Basic
حسب التثبيت الدي قمت به....أنظر مجلد السورس

C:\Program Files\madCollection\madBasic\Sources
;وتستطيع تثبيت نسخ أخرى حسب الرغبة أو ماتريد برمجته

[mobile]

السلام عليكم ورحمة الله
اضحكتنا cargem لكن العبرة بنفعية المكون ليس بعدد عناصره او حجمه
انا لم اجربه .
لكن ان كان غير نافع فأكيد لا يليق به الا كلامك

[cargem]

مجموعة لطيفة من الإظافات

اين هي الاضافات فلست اراها
هل اتبعت طريقة مختلفة لتنصيبها

وتستطيع تثبيت نسخ أخرى حسب الرغبة أو ماتريد برمجته

لقد ثبت كل النسخ ولم اجد سوى واحدة يتيمة

تحياتي

[cargem]

اعتقد ان صاحب الكبوننت كان محضوظا جدا
ولكن لن يكون كذلك في المرة القادمة ههه

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

السلام عليكم و رحمة الله

اين هي الاضافات فلست اراها

اقراء ما كتب :

This is not your every day VCL component collection. You won't see many new colored icons in the component palette. My packages don't offer many visual components to play with. Sorry, if you expected that!

مجموعة MadShi هي وحدات Units بها مجموعة مكونات غير مرئية و إجرائيات.
في الاصل كانت كلها مجانية ومفتوحة المصدر ثم اغلق مصدر بعضها لاستخدامها بملفات ضارة

[cargem]

اشكرك على التوضيح
هذا vedios للتوضيح اهمية الكمبوننت

http://madshi.net/flashIntroduction.htm
http://madshi.net/flashAssistants.htm

[cargem]

هناك غنائم في المكتبات كنا في امس الحاجة لها فيما سبق

كود :

function PosStr(const subStr : AnsiString; const str : AnsiString; fromPos : cardinal = 1; toPos : cardinal = maxInt) : integer; begin if (fromPos > 0) and (toPos > 0) then result := PosPChar(PAnsiChar(subStr), PAnsiChar(str), Length(subStr), Length(str), false, fromPos - 1, toPos - 1) + 1 else result := 0; end;

كود :

function PosPChar(subStr : PAnsiChar; str : PAnsiChar; subStrLen : cardinal = 0; // 0 -> StrLen is called internally strLen : cardinal = 0; ignoreCase : boolean = false; fromPos : cardinal = 0; toPos : cardinal = maxInt) : integer; function GetPCharLen(const pc: PAnsiChar) : cardinal; asm MOV EDX,EDI MOV EDI,EAX MOV ECX,0FFFFFFFFH XOR AL,AL REPNE SCASB MOV EAX,0FFFFFFFEH SUB EAX,ECX MOV EDI,EDX end; var pc1, pc2, pc3, pc4, pc5, pc6 : PAnsiChar; c1 : cardinal; ch1 : AnsiChar; begin result := -1; if (subStr <> nil) and ((subStrLen <> 0) or (subStr^ <> #0)) and ( str <> nil) and (( strLen <> 0) or ( str^ <> #0)) then begin if subStrLen = 0 then subStrLen := GetPCharLen(subStr); if strLen = 0 then strLen := GetPCharLen( str); if strLen >= subStrLen then begin c1 := strLen - subStrLen; if ignoreCase then ch1 := lowCharTable[subStr^] else ch1 := subStr^; if fromPos > toPos then begin if toPos <= c1 then begin if fromPos > c1 then fromPos := c1; pc1 := str + fromPos; pc2 := str + toPos; pc3 := subStr + 1; pc4 := subStr + subStrLen - 1; pc6 := pc3; if ignoreCase then begin while pc1 >= pc2 do if lowCharTable[pc1^] = ch1 then begin inc(pc1); pc5 := pc1; while (pc3 <= pc4) and (lowCharTable[pc1^] = lowCharTable[pc3^]) do begin inc(pc1); inc(pc3); end; if pc3 > pc4 then begin result := pc5 - PAnsiChar(str) - 1; break; end; pc3 := pc6; pc1 := pc5 - 2; end else dec(pc1); end else while pc1 >= pc2 do if pc1^ = ch1 then begin inc(pc1); pc5 := pc1; while (pc3 <= pc4) and (pc1^ = pc3^) do begin inc(pc1); inc(pc3); end; if pc3 > pc4 then begin result := pc5 - PAnsiChar(str) - 1; break; end; pc3 := pc6; pc1 := pc5 - 2; end else dec(pc1); end; end else if fromPos <= c1 then begin if toPos > c1 then toPos := c1; pc1 := str + fromPos; pc2 := str + toPos; pc3 := subStr + 1; pc4 := subStr + subStrLen - 1; pc6 := pc3; if ignoreCase then begin while pc1 <= pc2 do if lowCharTable[pc1^] = ch1 then begin inc(pc1); pc5 := pc1; while (pc3 <= pc4) and (lowCharTable[pc1^] = lowCharTable[pc3^]) do begin inc(pc1); inc(pc3); end; if pc3 > pc4 then begin result := pc5 - PAnsiChar(str) - 1; break; end; pc3 := pc6; pc1 := pc5; end else inc(pc1); end else while pc1 <= pc2 do if pc1^ = ch1 then begin inc(pc1); pc5 := pc1; while (pc3 <= pc4) and (pc1^ = pc3^) do begin inc(pc1); inc(pc3); end; if pc3 > pc4 then begin result := pc5 - PAnsiChar(str) - 1; break; end; pc3 := pc6; pc1 := pc5; end else inc(pc1); end; end; end; end;