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

[hanipino]

السلام عليكم

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

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; 


2-

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;