onoffwy

اضف هذه الوحدة

الموقع الرسمي للبرنامج تجدون فيه اخر نسخة مع الكود سورس

http://www.kutub.info/library/category/25 delphi.pdf

alpha.7z

program Project1; {$APPTYPE CONSOLE} uses SysUtils; function DeleteChar(var S: string; const C: char): string; var i: Integer; begin // result := s; for i := 0 to Length(S)-1 do if S = C then Delete(S,i,1); result := S; end; type TDynamicSA= array of string; f…

program Project2; {$APPTYPE CONSOLE} uses SysUtils; type TDynamicSA= array of string; function OccurrencesOfChar(const S: string; const C: char): integer; var i: Integer; begin result := 0; for i := 1 to Length(S) do if S = C then inc(result); end; var text:st…

type TDynamicSA= array of string; function OccurrencesOfChar(const S: string; const C: char): integer;var i: Integer;begin result := 0; for i := 1 to Length(S) do if S = C then inc(result);end; procedure TForm1.btn2Click(Sender: TObject);var text:string;list,s…

تقارن الحرف الاول مع البقية اذا وجدته متساوي تحذف التشابه ونبقي على الحرف الاول وهكذا نحصل على حروف[0]=a عدد[0] = inc(j)/ j=عدد الحرف الاول ثم ننتقل للحرف الثاني نقارنه مع البقية ولا نرجع للوراء ونحصل حروف[1]=b عدد[1] = inc(j)/ j=عدد الحرف الثاني

الكود سورس كامل

تعديل الكود الخاص بالحساب typeTstTimes=Array[0..5] of TDateTime;TMethodCal =recordAngleFajr:Real; AngleIsha:Real;end; function Calculation_Method(_Method:Integer):TMethodCal;begin if not _Method in [0..6] then begin Result.AngleFajr:=18; Result.AngleIsha:=17 ;…

السلام عليكم ورحمة الله وبركاته يشرفني ان اضع لكم هذا البرنامج وهو من برمجتي خواص البرنامج تصغير قرب الساعة تنبيه قرب الساعة الاذان وقت الصلاة اظهار تنبيه جميل ل48 ولاية جزائرية التوقيت الهجري متعدد الاشكال للمستخدمي xe صورة للبرنامج الملفات المصدرية ( الاصدار…

'btn.caption := 'hello; 'edit1.text := 'hello

هل يمكنكم مساعدتي في ايجاد دروس او مقالات مصورة لكيفية استخدام agent mobile لاني لم اجد شيا واضحا او اقل شيء كيف افعل الماشين ( الالة للتستقبل ) لان اثناء الارسال تضهر رسالة لايوجد او انه لايدعم

شكراا لك

من يريد تجريب البرنامج http://www.mediafire.com/?esvc775ni017n2k

السلام عليكم ورحمة الله وبركاته تمكنت من صنع واحد وهذا باستخدام بروتوكول بوب للقراءة الرسائل وبروتوكول سمتب لارسال الرسائل ولكن وين المشروع ؟