تعديل الفراغات بين الكلمات في جملة

تعديل الفراغات بين الكلمات في جملة - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تعديل الفراغات بين الكلمات في جملة (/showthread.php?tid=3883)

الصفحات: 1 2

تعديل الفراغات بين الكلمات في جملة - hanipino - 18-02-2012

السلام عليكم

جرب احدى الطريقتين ... تقريبا متكافئتين

1-

PHP كود :
function FixStr(pStr: string): string;
var
  Sl: TStringList;
begin
  Sl := TStringList.Create;
  try
    ExtractStrings(
                    [' '],
                    [],
                    Pointer(pStr),
                    Sl
                  );

    Result := StringReplace(Sl.CommaText, ',', ' ', [rfReplaceAll, rfIgnoreCase]);
  finally
    Sl.Free;
  end;
end; 

PHP كود :
function FixStr(pStr: string): string;
var
  Loop: DWORD;
  Sl: TStringList;
begin
  Sl := TStringList.Create;
  try
    ExtractStrings(
                    [' '],
                    [],
                    Pointer(pStr),
                    Sl
                  );

    for Loop := 0 to Sl.Count - 1 do
    Result := Result + Sl[Loop] + ' ';
  finally
    Sl.Free;
  end;
end; 

تعديل الفراغات بين الكلمات في جملة - alouma - 18-02-2012

تمت التجربة
روعة بارك الله فيك وجزاك خيراً hanipino وبارك الله في الجميع على تفاعلهم وتعاونهم