هل يمكنني حذف جزء معين من نص

[haroun03]

السلام عليكم


مثال: ABC موجودة في مربع نص edit1
َA و B و C نصوص
السؤال : هل يمكنني أن أجعل زر يقوم بحذف النص A و النصC و ترك النص A مهما كان حجم النص

[karika2]

أخى الكريم انا طارح سؤال بنفس الصيغة ولكن مع متغير رقمى ..
ولم يتأخر الاخ عبد العزيز عن الرد

كود :

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]

شكرا أخي الكريم على الرد :
مشكلة سءالي ، ان النص غير معروف حجمه ، لكن بدايته و نهايته ثابتة
سأجرب أن أعدل على ما أعطيتني و أجرب ريثما يوضع الحل الأنجح
بارك الله فيك

[Agmcz]

وعليكم السلام
إذا كانت البداية والنهاية ثابتة
إستعمل شيء مثل

PHP كود :

var
  Text: string;
begin
  Text := 'ABC';
  Text := StringReplace(Text, 'A', '', [rfReplaceAll]);
  Text := StringReplace(Text, 'C', '', [rfReplaceAll]);
  ShowMessage(Text);
end; 


[haroun03]

شكرا لك أخي الكريم
طريقتك ساعدتني أحسنت و بارك الله فيك
لو أردت الإبقاء على النصين a و c ؟

[Agmcz]

لو أردت الإبقاء على النصين a و c ؟

PHP كود :

var
  Text: string;
begin
  Text := 'ABC';
  Text := StringReplace(Text, 'B', '', [rfReplaceAll]);
  ShowMessage(Text);
end;