+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : عمل تعديل في الركورد Record (/showthread.php?tid=787)
عمل تعديل في الركورد Record - NOna - 08-04-2009
السلام عليكم
كيف يمكن أن اعمل تعديل في الركورد خلال الكتابه به ؟
يعني كل ما اكتب كلمه في الركورد يعمل بروسيجر معين CheckWord لكي يقارن الكلمات من اكبر او اصغر من الكلمة المعطاه ثم يستخدم seek function واحتاج ايضا لتوضيح عمل السيك لأنها ما تنط للمكان المتوقع
كود :
Trec = Record
Word : string [15];
leftW:integer;
rightW: integer;
end;
Var
F:textfile;
L,w:string
RecF:file of Trec;
RecL:Trec;
Assignfile (Ttrec, 'RecordFile');
Rewrite (Ttrec);
Assignfile (f,'c:\Documents and Setting\Administrator\Desktop\file.txt');
Reset(f);
I:=0;
Repeat
Readln (f,l);
Repaet
I:=pos(' ',L);
If I=0 then
W:=copy(L,1,length(L)-I);
Else
Begin
W:=copy(L,1,I-1);
L:=copy(L,I+1,length(L)-I);
End;
RecL.word:=W;
RecL.LeftW:=-1;
RecL.RightW:=-1;
CheckWord (W, Result);
Until I=0
Until EOF(f);عمل تعديل في الركورد Record - TF6M - 08-04-2009
السلام عليكم ,,
1- الكود خطأ A(Assignfile ).
2- أوضح الهدف من العملية .
3- seek :
كود :
http://www.delphibasics.co.uk/RTL.asp?Name=Seekعمل تعديل في الركورد Record - NOna - 08-04-2009
أخ مبرمج هاوي ليش Assignfile خطأ؟ الرجاء تعديله
وبعدين المشكله انه كيف اعمل update او تعديل على الركورد في نفس الوقت الذي اكتب في ملف الركورد
مع الشكر على الرد
عمل تعديل في الركورد Record - TF6M - 08-04-2009
هذا الأخ المبرمج الهاوي هو من شكرته لمساعدتك في الأمور السابقة و عليه إنتظر يا عضو جديد لتصبح مبرمج و تفهم
لماذا Assignfile خطأ .
عمل تعديل في الركورد Record - AL-MOB4RM3G - 08-04-2009
إقتباس :أخ مبرمج هاوي
ههههههههه
صحكت كثيرا على هذه العبارة :p
منذ زمن لم استمتع بهذا الشكل
اخي الكريم NOna,, الأخ اسمه tf6mehboul وهو أخ فاضل,,,
بارك الله فيه,, وكلمة مبرمج هاوي ,, تظهر حسب مشاركات العضو ان لم اكن مخطئ,, والله تعلى اعلم
اخي tf6mehboul لا عليك.,, حسبك الله اخي الكريم,,
عمل تعديل في الركورد Record - NOna - 09-04-2009
الان تركتوا موضوع المنتدى الاساسي وطلبي الاساسي ومضايقين من كلمة (اخ مبرمج هاوي) عموما اسفة اذا كان يضايقك بس بصراحة ماعرفت اقرا اسمك tf6mehboul
والان اقول لكم شكرا على تعاونكم ورفع معنوياتي في التعامل مع منتدى عربي همه الاساسي هو احراج الناس وليس التعاون معهم
بس هذا هو المجتمع العربي ! مع الاسف
عمل تعديل في الركورد Record - AL-MOB4RM3G - 09-04-2009
عجيب ,, وهل نحن مجبرون على الجواب عليك اخي الكريم ؟
لو كنت اعلم الجواب لما ترددت.. ولكن السؤآل هو لك,, يعني انت الذي يجب ان تبحث عن الجواب بنفسك
ولا تلم احد ان لم تجد الجواب,, فنحن لسنا موظفين لخدمتك ,, بل هو مجهود نفسي يقوم به الإخوة جميعا في سبيل الله,,, لعل الله ينفع بنا الإسلام والمسلمين,,
إقتباس :منتدى عربي همه الاساسي هو احراج الناس وليس التعاون معهموالله يا اخي ان لم يعجبك المنتدى,,, فذهب,, لم نجبرك على ان تكون عضوى معنا هنا,,
بس هذا هو المجتمع العربي
ولن نخسر شئ ان ذهبت,, بل انت الذي تخسر,, وان لم تصدق,, ففعل..
عموما اخي الكريم.. راجع نفسك قليلا بارك الله فيك.,,
وهدئ من اعصابك... فنحن هنا نفيد بعضنا في ما يرضى الله
بارك الله فيكم والسلام عليكم ورحمة الله
عمل تعديل في الركورد Record - piratewar - 29-11-2012
عذراً و لكني أحببت الرجوع لهذه المشاركة المستفذة لأني ما بطلت ضحك
و يبدو من السائل(أعتقد أنها أنثى لطريقة الرد
) خبرتي في الطب والتعامل مع الآخرين:ptf6m@
لم أعلم أنك كنت مثلي مبرمج هاوي (ما شاء الله عليك فأنت ولدت لتكون أكثر من محترف)
@مشرفينا الله يخليكم أنتم في غنى عن مثل هذه الردود ووسعوا صدوركم (بارك الله فيكم)