Удаления пробелов в строке.

← →
aka (2012-06-27 11:09) [0]

Как будет быстрее:

1)
procedure TForm1.Button1Click(Sender: TObject); var str, rez : String; i,k: Integer; begin k := 0; str := "q w er t y try"+#13+"as df"+#13+"z x c v"; SetLength(rez, Length(str)); for i := 1 to Length(str) do if ((str[i] in ["a".."z", "A".."Z", "0".."9"])) then rez[i-k] := str[i] else Inc(k); SetLength(rez, Length(rez)-k); end;

или

2)

procedure TForm1.Button1Click(Sender: TObject); var str, rez : String; i,k: Integer; begin str := "q w er t y try"+#13+"as df"+#13+"z x c v"; for i := 1 to Length(str) do if ((str[i] in ["a".."z", "A".."Z", "0".."9"])) then rez := rez + str[i]; end;

← →
AV © (2012-06-27 11:20) [1]

как быстрее - можно замерить самому
а понятнее будет юзать StrUtils.ReplaceString

← →
AV © (2012-06-27 11:24) [2]

т.е. StringReplace

uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
begin
str := "q w er t y try"+#13+"as df"+#13+"z x c v";
ShowMessage( StringReplace(str," ","",[rfReplaceAll]) );

← →
Anatoly Podgoretsky © (2012-06-27 11:53) [3]

> aka (27.06.2012 11:09:00) [0]

Ты просишь нам измерить

← →
Anatoly Podgoretsky © (2012-06-27 11:54) [4]

> aka (27.06.2012 11:09:00) [0]

И обе функции работают не так как заявлено.

> aka (27.06.12 11:09)

К гадалке не ходи - ясно, что с предварительным выделением памяти быстрее.
А ещё можно "пробелы" вырезать грубо, вместе со всеми служебными символами (< #33):

function StripSpasesAndSpecChars(const s: AnsiString): AnsiString; var i, n: integer; begin n := 0; SetLength(Result, Length(s)); for i := 1 to Length(s) do begin if PByte(@s[i])^ > 32 then begin inc(n); PByte(@Result[n])^ := PByte(@s[i])^; end; end; SetLength(Result, n); end;

А можно вообще не выделять доп. память, если есть возможность модифицировать исходную.

Удаления пробелов в строке. Найти похожие ветки