حسين طياوي

ما دمت لم تمسي المشروع بهذا الإسم ولم تستخدم ملف ريسورس خارجي يعني بهذا التوجيه للمترجم implementation {$R *.dfm} {$R Dialogs.RES} فلا أعرف كيف حصلت على الخطأ أصلا لايوجد وحدة بالأسم Dialogs.RES بل Dialogs.Pas أو Dialogs.dcu ممكن QDialogs.RES وهي خاصة بالليونك…

السلام عليكــم ورحمـة الله وبركاتــه ،، الملفات من نوع Res هي ملفات موارد يوجد دائما واحد سحمل إسم المشروع ويحتوي على أيقونة المشروع حيث يعيد مترجم دلفي بناؤه في كل مرة بما يتناسب مع الصفحة Application في مربع الحوار project option أعتقد أنك إما قمت بتسمية مشر…

أخي سلامة مرحبا أولا أنا برجاء لا تكرر كلمة أستاذ لأني فعلا لست كذلك معظمكم هنا اكادمين إما في مجال علوم الحاسب أو مجال أخر يمت له بصلة أما أنا فعلا هاوي ومتطفل على هذا المجال :blush: بالنسبة للسؤال الأول var MyDate: TDate; begin ShortDateFormat:= 'yyyy/m/d'; …

السلام عليكم من الطبيعي أن تحصل على خطأ لأن الصيغة التي تكتبها ليست صيغة تأريخ dd/mm/yyyy الصيغة هي yyyy/mm/dd إذا كنت مصر فقلبه بهذه الطريقة var s, d, m, y: String; begin s:= Edit1.Text; d:= Copy(s, 1, 2); m:= Copy(s, 4, 2); y:= Copy(s, 7, 4); s:= y+'/'+m+'/'…

أعتذر منك لأني لم ألحظ أنك تريد إستخدام ComboBox هذا مثال ComboWithGrid.rar

السلام عليكم لاحظ هذا المقال http://www.bradtrupp.com/delphi-hax252.html

عيد مبارك للجميع إن شاء الله

وعليكم السلام هنالك حل لمشكلة دلفي7 ونطام الفيستا هنا في المنتدى إبحث عنه وستجده يمكن تجاوزه بتشغيل الدلفي ب Run as Administrator ولكني أعتقد أن المسألة مجرد تعريف مسار الوحدة tool->environment Option من التبويب Library إضغط زر الإستعراض بحانب Browsing Path وم…

أولا عيد مباوك إن شاء الله بالنسبة للسؤال الأول http://delphi.about.com/od/windowsshellapi...sword_login.htm السؤال الثاني ياريت توضح أكثر الفكرة السؤال الثالث من القائمة File إختر Save As وضع الإسم الذي تريده المسألة هي فقط أن يتطابق إسم الوحدة الخارجي مع إسم…

أخي أحمد لا أدري إن كنت فهمت عليك صح أنت تريد نسخ ملف لكن بشريط تقدم بمجرد إختياره من OpenDialog إن كان هذا ما قصدته فيجب أن تعرف حجم الملف المراد نسخه بعد ذلك يجب أن أن تربط القيمة Max إلى حجم الملف ومن ثم تقرأ الكتلة المراد نسخها على أجزاء procedure TForm1.B…

والله هذا التصوير من أحمل ما كتب في هذا الموضوع

مرحبا أخي زكيري لي الشرف بمساعدتك فقط عدل انسخ الكود cfFormat := CF_PENDATA ; لتصبح انسخ الكود cfFormat := CF_TEXT ; ويعمل إن شاء الله أرجو التوفيق

مرحبا أخي djaballah75 يمكن أنك لم تنتبه للكود جيدا لو دققت النظر للكود ثانية سوف تلاحظ أن الدالة Odd تنظر إلى قيمة المتغير i والمتغير i يستعمل للسطور ال Memo يعني على إعتبار أت الرقم موزع على أسطر Memo فكل سطر يشير إلى مرتبة ( خانة ) أليس كذلك , 4 8 0 2 5 5 0 …

var nOdd, nDoubles: Integer; r: Integer; i: Integer; begin nOdd:= 0; nDoubles:= 0; for i:=0 to Memo1.Lines.Count-1 do if not odd(i) then nOdd := nOdd+ StrToInt(Memo1.Lines) else nDoubles:= nDoubles+ StrToInt(Memo1.Lines); r:= 99 -((nOdd * 2)+ nDoubles); Memo1.…

أخي يمكنك أن تتعامل مع جميع المصادر بنفس الصيغة Rt_RCDATA ومن ثم إستخرجها بواسطة TResourceStream procedure TForm1.Button1Click(Sender: TObject); var rStream: TResourceStream; begin rStream:= TResourceStream.Create(hInstance, 'Sunset', Rt_RCDATA); rStream.SaveT…

السلام عليكــم ورحمـة الله وبركاتــه ،، أخي الكريم أعتقد أنه إذا قمنا بالبحث عن جميع الملفات ثم قمنا بنخب أنواع نتائج الحل بيمشي الحال var searchResult : TSearchRec; begin ListBox1.Clear; if FindFirst('C:\*.*', faHidden, searchResult) = 0 then begin repeat if …

وعليكــم السـلام ورحمة الله وبركاتـه.. لا أعرف دالة من أجل ذلك ولكن إذا قمنا بالبحث من خلال posEx نستطيع تحديد الفراغات وبالتالي تحديد الكلمات uses StrUtils; procedure TForm1.Button1Click(Sender: TObject); var S, S1, S2 : String; i_begin, i_end: Integer; begin…

النسبة للأمر اول يمكن إضافة الأعمدة زمن التنفيذ dbGrid1.Columns.Add; أما للعد الأعمد Columns ليست خاصية بالمعنى المتعارف عليه إنما هي كائن يمكن إنشائه وتهديمه وله خصائصه المستقلة مثل الخاصية Visible عند ضبطها على القيمة false للعمود المراد إخفائه يختفي dbGrid1…

و عليكم السلام لتغير النص للأعمد ة هناك Columns ومنها الخاصية Caption begin DBGrid1.Columns[0].Title.Caption:= 'الرقم'; DBGrid1.Columns[1].Title.Caption:= 'اللقب'; DBGrid1.Columns[2].Title.Caption:= 'الإسم'; DBGrid1.Columns[3].Title.Caption:= 'الهاتف'; DBGrid1…

أخي زكيري لا أعتقد أن المشكلة من المكون ClientDataSet لأنني جربت ذلك على ملف محلي ومشي الحال var mStream: TMemoryStream; begin mStream:= TMemoryStream.Create; mStream.LoadFromFile('C:\Program Files\Common Files\Borland Shared\Data\country.xml'); ClientDataSet1…