08-09-2015, 03:51 PM
09-09-2015, 11:05 AM
السلام عليكم و رحمة الله
يمكنك كتابة دالة بسيطة مثل TrimIt بهذه الطريقة:
يمكنك كتابة دالة بسيطة مثل TrimIt بهذه الطريقة:
PHP كود :
function TrimIt(const S: string): string;
var
str: string;
x: byte;
begin
for x := 1 to Length(S) do
begin
if S[x] <> '-' then
str := str + S[x];
end;
Result := str;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := TrimIt(MaskEdit1.text);
end;
09-09-2015, 12:40 PM
بارك الله فيك يا أخي وزادك من علمه لقد نجحت العملية وشكرا
كيف يمكن استخراج قيمة نقدية من نص مثال :
give me 1500 DA
كيف يمكن أخد 1500 DA فقط
كيف يمكن استخراج قيمة نقدية من نص مثال :
give me 1500 DA
كيف يمكن أخد 1500 DA فقط
09-09-2015, 01:25 PM
الفكرة بسيطة حلقات تكرار تقوم تقوم بالمرور على كل حرف في حال كان رقم يتم اضافتة الى متغير ويتم تمريرة كناتج في دالة
09-09-2015, 05:17 PM
لم أفهم جيدا ممكن مثال؟
09-09-2015, 06:38 PM
PHP كود :
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', 'D', 'A'] then
str := str + S[x];
end;
Result := str;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := TrimIt2(Edit2.text);
end;
09-09-2015, 10:45 PM
شكرا أخي بارك الله فيك ، ذلك ما طلبت لقد نجحت العملية
هل يمكن أن تعلمني أكثر عن لدالة trim أو هل هناك درس مفصل عنها.
وهل يمكن أخذ القيمة المالية فقط إذا كان هناك عدة أرقام مع النص
هل يمكن أن تعلمني أكثر عن لدالة trim أو هل هناك درس مفصل عنها.
وهل يمكن أخذ القيمة المالية فقط إذا كان هناك عدة أرقام مع النص
10-09-2015, 08:32 AM
ع الحليم كتب :هل يمكن أن تعلمني أكثر عن لدالة trimسميتها دالة TrimIt لانها شبيهة لما تفعله دالة SysUtils@Trim
أو هل هناك درس مفصل عنها.
و بالنسبة لعملها فهو واضح، انها تقوم بتمرير معلومات و مقارنتها بقيم ثابتة ثم تحديد ما ترجعه بناءا على ما تم مقارنته.
إقتباس :وهل يمكن أخذ القيمة المالية فقط إذا كان هناك عدة أرقام مع النصما يجب ان تعرفه اولا هو انك ما تحاول ان تنجزه يسمى Parsing او syntactic analysis و كتابة اوامره محصورة بين السهل جدا مثل ما تم عمله فوق الى المعقد حسب تنوع ما تريد ان تعالجه.
المعطيات في هذه المشاركات لا تكفي لحصر المهمة (سهلة او معقدة)
10-09-2015, 12:19 PM
هذا ملف عن ما أريده
أي أخد القيمة المالية فقط من النص الموجود في memo1 ووضعها في edit
أي أخد القيمة المالية فقط من النص الموجود في memo1 ووضعها في edit