30-12-2012, 02:19 PM
[FONT="Arial Narrow"]السلام عليكم
اخواني كنت أحاول تقسيم نص الى كلمات .. ثم تخزين الكلمات داخل array
يعني اقرأ النص من ملف كلمة كلمة ، واخزن الكلمات بدون تكرار في array
ثم اقوم بعرض هذه array للتأكد من صحتها .
لكني لم استطع التوصل للشرط الصحيح !
وهذه اولى محاولاتي :
بانتظار اقتراحاتكم
اخواني كنت أحاول تقسيم نص الى كلمات .. ثم تخزين الكلمات داخل array
يعني اقرأ النص من ملف كلمة كلمة ، واخزن الكلمات بدون تكرار في array
ثم اقوم بعرض هذه array للتأكد من صحتها .
لكني لم استطع التوصل للشرط الصحيح !
وهذه اولى محاولاتي :
كود :
const size=1000;
var
myFile:TextFile;
text:string;
I:integer;
MyArray:Array [1..size] of string;
begin
AssignFile(myFile, 'concepts.txt');
Reset(myFile);
repeat
Readln(MyFile,text);
// here should be write a condition to check a if the word between 2 spaces then take it and store in Array but I don't know HOW ? :(
// if the condition is True .. do this :
Begin
MyArray [I] := text;
I := I+1;
Until eof(MyFile);
End;بانتظار اقتراحاتكم