18-02-2012, 06:37 PM
السلام عليكم
جرب احدى الطريقتين ... تقريبا متكافئتين
1-
2-
جرب احدى الطريقتين ... تقريبا متكافئتين
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;