السلام عليكم
كيف استطيع ان اقطع النص المدخل الى جمل بالاعتماد على النقطة التي تفصل بين جملة واخرى؟
وعليكم السلام
استعمل الدالة
PHP كود :
Classes.ExtractStrings();
السلام عليكم
هل اضع هذا الكود في الbutton
هذا كود اخر
كود :
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
قم بوضع Memo و Button في الفورم و اكتب الكود اعلاه في Button
شكرا لك على هذا الكود الجميل