كيفية حذف الاحرف المتحركة من النص

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

كيفية حذف الاحرف المتحركة من النص

مُساهمة  kamal في 26/7/2016, 10:20 pm

حذف الاحرف المتحركة من النص

الكود:


  procedure TForm1.Button1Click(Sender: TObject);
    var
    i,j: integer;
    s: string;
    begin
    Edit1.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)<>' ')
      then
        Edit1.Text := Edit1.text+copy(Memo1.Lines.Strings[i],j,1);
    end;
    Memo2.Lines.Add(Edit1.Text);
    end;


kamal

عدد المساهمات : 1
تاريخ التسجيل : 27/04/2016

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

رد: كيفية حذف الاحرف المتحركة من النص

مُساهمة  ali1 في 29/7/2016, 9:54 am


دالة حذف الحروف المحددة

الكود:


function copierstr(s: string):string;//delph.forumalgerie.net
var i:integer;
begin result:='';//delph.forumalgerie.net
 for i := 1 to length(s) do
 if(copy(s,i,1)<>'ا')and(copy(s,i,1)<>'ي')and
 (copy(s,i,1)<>'و')and(copy(s,i,1)<>'أ')and
 (copy(s,i,1)<>'ئ')and(copy(s,i,1)<>'ى')and
 (copy(s,i,1)<>' ')then result:=result+copy(s,i,1);//delph.forumalgerie.net
end;//delph.forumalgerie.net


استدعاء الدالة

الكود:


var
 i: integer;//delph.forumalgerie.net
 s: string;//delph.forumalgerie.net

begin

 Memo2.Lines.Clear;//delph.forumalgerie.net
 for i := 0 to Memo1.Lines.Count-1 do begin
  s := Memo1.Lines.Strings[i];//delph.forumalgerie.net
  Memo2.Lines.Add(copierstr(s));
  end;//delph.forumalgerie.net
 end;//delph.forumalgerie.net


مشكور أخي kamal على طرح الموضوع


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

ali1
مبرمج مجتهد

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

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

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


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