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

[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;

السلام عليكم

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