تقطيع نص مدخل

[شمس الغروب]

السلام عليكم
كيف استطيع ان اقطع النص المدخل الى جمل بالاعتماد على النقطة التي تفصل بين جملة واخرى؟

[hanipino]

وعليكم السلام

استعمل الدالة

PHP كود :

Classes.ExtractStrings(); 


[شمس الغروب]

السلام عليكم
هل اضع هذا الكود في الbutton

[format82]

هذا كود اخر

كود :

var words: TStringList; s: string; i: integer; begin s:='Delphi.is.my.world.and.i.like.it'; words := TStringList.Create; try words.text := StringReplace(s,'.', #13#10, [rfReplaceAll]); for i := 0 to pred(words.count) do memo1.Lines.Add(words[i]); finally words.free; end;

[شمس الغروب]

شكرا جزيلا على هذا الكود الرائع ساجربه حالا

[شمس الغروب]

السلام
لقد جربته لكنه يعترض على
words.text := StringReplace(s,'.', #13#10, [rfReplaceAll]) بانه غير معرفة بحثت عن هذة الاداة لاضعها لكني لم استطيع معرفتها(StringReplace) لكي اضعها على الفورم علما اني قد وضعت button ,memo

ماهي العناصر التي اضعها على الفورم عند استخدام النهج اعلاه؟
ولماذا يعترض علىfor i := 0 to pred(words.count) do

[format82]

قم بوضع Memo و Button في الفورم و اكتب الكود اعلاه في Button

[شمس الغروب]

شكرا لك على هذا الكود الجميل