delphi useful functions دوال و إجراءات دلفي مفيدة
#11
دالة كثيرة الاستعمال :
استخراج الارقام من النص 

كود :
function ExtractNumberInString( sChaine: String ): String ;
var
i: Integer ;
begin
Result := '' ;
for i := 1 to length( sChaine ) do
begin
if sChaine[ i ] in ['0'..'9'] then
Result := Result + sChaine[ i ] ;
end ;
end ;
[-] كل من 2 users say قال شكرا ل rahiche على المشاركة المفيدة
  • S.FATEH, wadoud
الرد
#12
لارجاع النص بين علامتين "text"
PHP كود :
uses System.SysUtils;

function 
TForm1.DoubleQuotedStr(Strstring): string;
begin
  Result 
:= AnsiQuotedStr(Str'"');
end
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف