نزع تشكيل حروف النص
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
نزع تشكيل حروف النص
نزع تشكيل حروف النص
اذا أدخلت نص مشكل أقصد الفتحةوالضمة الكسرة و السكون سيتم
نزعهم من النص أو حذفهم من النص،
يتم الحصول على نص بدون تشكيل.
اذا أدخلت نص مشكل أقصد الفتحةوالضمة الكسرة و السكون سيتم
نزعهم من النص أو حذفهم من النص،
يتم الحصول على نص بدون تشكيل.
- الكود:
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;
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى