دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  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

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

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

مُساهمة  alla في 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 على طرح الموضوع


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

alla
مبرمج مجتهد

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

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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