عمليه الجمع مع تجاهل الحروف

[elzawey2020]

السلام عليكم ورحمه الله وبركاته
شباب معلهش اسئلتي كثيرة بس لابد منها في برنامجي
عندي حوالي 5 edit  اريد ان اجمع 4 edit ووضع الناتج في edit5
بس هناك مشكلة ان ال edit الاربعه قد يكون في اي منها حرف وليكن a  اي حرف a  مش ثابت في edit  معين ممكن يكون في الاول أو الثاني وهكذا  اريد من البرنامج تجاهل الحرف وجمع باقي الاعداد الموجوده في باقي edit الثلاثة
ووضعها في edit5
بارك الله فيكم

[ع الحليم]

أرجو أن يكون هذا ما أردت 
ضع 
function TrimIt2(const S: string): string;
var
  str: string;
  x: byte;
begin
  for x := 1 to Length(S) do
  begin
    if S[x] in ['0'..'9'] then
      str := str + S[x];
  end;

  Result := str;
end;



ثم ضع عند الضغط على الزر هذا الأمر 
edit5.Text:=inttostr(strtoint(TrimIt2(edit1.Text))+ strtoint(TrimIt2(edit2.Text))+strtoint(TrimIt2(edit3.Text))+strtoint(TrimIt2(edit4.Text)));

[elzawey2020]

كيف اضع واين اضعها اخي

function TrimIt2(const S: string): string;
var
str: string;
x: byte;
begin
for x := 1 to Length(S) do
begin
if S[x] in ['0'..'9'] then
str := str + S[x];
end;

Result := str;
end;

[bassem_43]

كيف اضع واين اضعها اخي

function TrimIt2(const S: string): string;
var
 str: string;
 x: byte;
begin
 for x := 1 to Length(S) do
 begin
   if S[x] in ['0'..'9'] then
     str := str + S[x];
 end;

 Result := str;
end;

السلام عليكم

ضع هده الدالة  في وحدة المشروع في مكان وليكن مثلا قبل حدث الضغط على الزر الدي يقوم بالجمع

[Agmcz]

بإستعمال الدالة StringReplace

PHP كود :

var
  s1, s2, s3, s4: string;
begin
  s1 := StringReplace(Edit1.Text, 'A', '',[rfReplaceAll, rfIgnoreCase]);
  s2 := StringReplace(Edit2.Text, 'A', '',[rfReplaceAll, rfIgnoreCase]);
  s3 := StringReplace(Edit3.Text, 'A', '',[rfReplaceAll, rfIgnoreCase]);
  s4 := StringReplace(Edit4.Text, 'A', '',[rfReplaceAll, rfIgnoreCase]);
  Edit5.Text :=  IntToStr(StrToInt(s1) + StrToInt(s2) + StrToInt(s3) + StrToInt(s4));
end; 


[ع الحليم]

ضعها بعد 

implementation

{$R *.dfm}

---

إتبع الحل في الملف المرفق

[elzawey2020]

اخي Agmcz بارك الله فيك
لقد نفع الكود ولم الاحظ '' فقمت بكتابة 0 بداخلها وعمل الكود وظهرت النتيجة المطلوبة
شكرا لك