08-04-2009, 08:42 AM
السلام عليكم
كيف يمكن أن اعمل تعديل في الركورد خلال الكتابه به ؟
يعني كل ما اكتب كلمه في الركورد يعمل بروسيجر معين CheckWord لكي يقارن الكلمات من اكبر او اصغر من الكلمة المعطاه ثم يستخدم seek function واحتاج ايضا لتوضيح عمل السيك لأنها ما تنط للمكان المتوقع
كيف يمكن أن اعمل تعديل في الركورد خلال الكتابه به ؟
يعني كل ما اكتب كلمه في الركورد يعمل بروسيجر معين 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);