+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : هل يمكنني حذف جزء معين من نص (/showthread.php?tid=6297)
هل يمكنني حذف جزء معين من نص - haroun03 - 07-07-2014
السلام عليكم
مثال: ABC موجودة في مربع نص edit1
َA و B و C نصوص
السؤال : هل يمكنني أن أجعل زر يقوم بحذف النص A و النصC و ترك النص A مهما كان حجم النص
هل يمكنني حذف جزء معين من نص - karika2 - 07-07-2014
أخى الكريم انا طارح سؤال بنفس الصيغة ولكن مع متغير رقمى ..
ولم يتأخر الاخ عبد العزيز عن الرد
كود :
var
i:integer;
begin
i:=25438;
Edit1.Text:=Copy(IntToStr(i),3,1);
end;كود
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
i:string;
begin
i:=Edit1.Text;
Edit2.Text:=Copy((i),3,1);
end;Copy((i),3,1
3 = الحرف المراد بقائة
هل يمكنني حذف جزء معين من نص - haroun03 - 07-07-2014
شكرا أخي الكريم على الرد :
مشكلة سءالي ، ان النص غير معروف حجمه ، لكن بدايته و نهايته ثابتة
سأجرب أن أعدل على ما أعطيتني و أجرب ريثما يوضع الحل الأنجح
بارك الله فيك
هل يمكنني حذف جزء معين من نص - Agmcz - 07-07-2014
وعليكم السلام
إذا كانت البداية والنهاية ثابتة
إستعمل شيء مثل
PHP كود :
var
Text: string;
begin
Text := 'ABC';
Text := StringReplace(Text, 'A', '', [rfReplaceAll]);
Text := StringReplace(Text, 'C', '', [rfReplaceAll]);
ShowMessage(Text);
end;
هل يمكنني حذف جزء معين من نص - haroun03 - 07-07-2014
شكرا لك أخي الكريم
طريقتك ساعدتني أحسنت و بارك الله فيك
لو أردت الإبقاء على النصين a و c ؟
هل يمكنني حذف جزء معين من نص - Agmcz - 08-07-2014
haroun03 كتب :لو أردت الإبقاء على النصين a و c ؟
PHP كود :
var
Text: string;
begin
Text := 'ABC';
Text := StringReplace(Text, 'B', '', [rfReplaceAll]);
ShowMessage(Text);
end;