+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : عمليه الجمع مع تجاهل الحروف (/showthread.php?tid=7664)
عمليه الجمع مع تجاهل الحروف - elzawey2020 - 28-03-2016
السلام عليكم ورحمه الله وبركاته
شباب معلهش اسئلتي كثيرة بس لابد منها في برنامجي
عندي حوالي 5 edit اريد ان اجمع 4 edit ووضع الناتج في edit5
بس هناك مشكلة ان ال edit الاربعه قد يكون في اي منها حرف وليكن a اي حرف a مش ثابت في edit معين ممكن يكون في الاول أو الثاني وهكذا اريد من البرنامج تجاهل الحرف وجمع باقي الاعداد الموجوده في باقي edit الثلاثة
ووضعها في edit5
بارك الله فيكم
RE: عمليه الجمه مع تجاهل الحروف - ع الحليم - 28-03-2016
أرجو أن يكون هذا ما أردت
ضع
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)));
RE: عمليه الجمه مع تجاهل الحروف - elzawey2020 - 28-03-2016
كيف اضع واين اضعها اخي
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;
RE: عمليه الجمه مع تجاهل الحروف - bassem_43 - 28-03-2016
(28-03-2016, 06:20 PM)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;
ضع هده الدالة في وحدة المشروع في مكان وليكن مثلا قبل حدث الضغط على الزر الدي يقوم بالجمع
RE: عمليه الجمه مع تجاهل الحروف - Agmcz - 28-03-2016
بإستعمال الدالة 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;
RE: عمليه الجمه مع تجاهل الحروف - ع الحليم - 28-03-2016
ضعها بعد
implementation
{$R *.dfm}
إتبع الحل في الملف المرفق
RE: عمليه الجمه مع تجاهل الحروف - elzawey2020 - 29-03-2016
اخي Agmcz بارك الله فيك
لقد نفع الكود ولم الاحظ '' فقمت بكتابة 0 بداخلها وعمل الكود وظهرت النتيجة المطلوبة
شكرا لك