delphi4arab منتديات دلفي للعرب

السلام عليكم

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

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

كود :
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 = الحرف المراد بقائة

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

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

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

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

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

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

haroun03

karika2

haroun03

Agmcz

haroun03

Agmcz