كيفية حذف الاحرف المتحركة من النص
2 مشترك
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
كيفية حذف الاحرف المتحركة من النص
حذف الاحرف المتحركة من النص
- الكود:
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
رد: كيفية حذف الاحرف المتحركة من النص
دالة حذف الحروف المحددة
- الكود:
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 على طرح الموضوع
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
مواضيع مماثلة
» مربع النص Edit
» نزع تشكيل حروف النص
» مربع النص متعدد السطور Memo
» كيفية ربط Excel مع Delphi
» كيفية ربط -Excel- مع -Delphi -
» نزع تشكيل حروف النص
» مربع النص متعدد السطور Memo
» كيفية ربط Excel مع Delphi
» كيفية ربط -Excel- مع -Delphi -
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى