- السلام عليكم
- لنفرض ان لدينا المكون (Memo) ويوجد به اكثر من سطر , كيف كيف وضع كل كلمة على حدة في مصفوفة ...
- لنفرض اننا كتبنا في الميمو (بسم الله الرحمن الرحيم) السطر الاول والثاني (الحمد لله ربي العالمين) .. وقمنا بتعريف مصفوفة حرقية ..
- اريد الان كل كلمة في عنصر بالمصفوفة ....
ArrayCon : array[1..100] of string; ArrayCon[1] := 'بسم' ArrayCon[2] := 'الله'
وهكذا .....
- ومشكورين........
تم تعديل هذه المشاركة بواسطة أحمد_ليبيا في 19 أغسطس 2010 في 08:52
------
السلام عليكم،
هذا يفي بالغرض: :P
procedure TForm1.Button1Click(Sender: TObject); var i:integer; str:TStringList; Input: String; begin str:= TStringList.Create; Input:= Memo1.Lines.Text; ExtractStrings([' '], [], PChar(Input), str); for i := 0 to str.Count - 1 do showmessage(str.Strings); end;
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…