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

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

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

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


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

الكود:

procedure TForm1.Button1Click(Sender: TObject);
var
 i,j: integer;
 s: string;

begin

  Memo2.Lines.Clear;
  for i := 0 to Memo1.Lines.Count-1 do begin
 //i:=0;

// label1.caption:=Memo1.Lines.Strings[i];

 for j := 0 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
    d1.Text[i] := d1.text[i]+copy(Memo1.Lines.Strings[i],j,1);
  Memo2.Lines.Add(d1.Text);
  //
  //caption:=inttostr(j);

  end;


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
مبرمج مجتهد

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

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

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


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