نزع تشكيل حروف النص

اذهب الى الأسفل

نزع تشكيل حروف النص

مُساهمة  ali1 في 1/6/2018, 3:09 am

نزع تشكيل حروف النص

اذا أدخلت نص مشكل أقصد الفتحةوالضمة الكسرة و السكون سيتم
نزعهم من النص أو حذفهم من النص،
يتم الحصول على نص بدون تشكيل.


الكود:


procedure TForm1.Button1Click(Sender: TObject);
    var
     i,j: integer;
     s: string;
    begin
  d1.Clear;
  Memo2.Lines.Clear;
  for i := 0 to Memo1.Lines.Count-1 do begin
  for j := 1 to length(Memo1.Lines.Strings[i]) do
      if(copy(Memo1.Lines.Strings[i],j,1)<>'َ')
      and(copy(Memo1.Lines.Strings[i],j,1)<>'ُ')
      and(copy(Memo1.Lines.Strings[i],j,1)<>'ِ')
      and(copy(Memo1.Lines.Strings[i],j,1)<>'ٌ')
      and(copy(Memo1.Lines.Strings[i],j,1)<>'ً')
      and(copy(Memo1.Lines.Strings[i],j,1)<>'ٍ')
      and(copy(Memo1.Lines.Strings[i],j,1)<>'ْ')
      and(copy(Memo1.Lines.Strings[i],j,1)<>'ّ')
      and(copy(Memo1.Lines.Strings[i],j,1)<>'ّ')
      then  ///d1.Text[i] := d1.text[i]+copy(Memo1.Lines.Strings[i],j,1);  +' - '
        d1.Text := d1.text+copy(Memo1.Lines.Strings[i],j,1);
  end;
    Memo2.Lines.Add(d1.Text);

end;

_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى