ما هي طريقة حدف النص والإحتفاظ بالرقم فقط من مكون Memo

[sky19]

السلام عليكم
ما هي طريقة حدف النص والإحتفاظ بالرقم فقط (القيمة 6230.00)
من Memo1

+CUSD: 0,"Votre credit est de: 6230.00 ",15

[الياس الدويرة]

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

[sky19]

دالة البحث

[Agmcz]

هذا مثال

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
  B, E: Integer;
begin
  S := 'CUSD: 0,"Votre credit est de: 6230.00 ",15';
  B := Pos('de: ', S) + Length('de: ');
  E := Pos(' ",', S);
  ShowMessage(Copy(S, B, E - B));
end; 


سبق وطرح نفس سؤال ابحث في المنتدى دائما
بالتوفيق