Приветствую! Подскажите, сложение строк я правильно делаю? Нужно сложить строки,

Question

Приветствую! Подскажите, сложение строк я правильно делаю? Нужно сложить строки,

чтобы получилось так:
ss := ss + s1;
Я делаю так:
SetLength(ss, Length(ss) + Length(s1));
Move(s1[1], ss[Length(ss)-Length(s1)], Length(s1));

#lazarus #programming #russian

0

28.10.2021

8 ответов

14 просмотров

Meatbeat Автор вопроса

долго работает

0

28.10.2021

zamtmn

program Project1; {$IFDEF FPC} {$ELSE} {$APPTYPE CONSOLE} {$ENDIF} uses SysUtils; const maxstrings=15000000; var TestData:array[0..maxstrings]of String; s:String; i,len:Integer; myTime:TDateTime; SB:TStringBuilder; begin myTime:=now; for i:=0 to high(TestData) do //setlength(TestData[i],11); TestData[i]:=inttostr(i); writeln(format('Generate strings %.4fsec',[(now-myTime)*10e4])); myTime:=now; len:=0; for i:=0 to high(TestData) do len:=len+length(TestData[i]); setlength(s,len); len:=1; for i:=0 to high(TestData) do begin Move(TestData[i][1],s[len],length(TestData[i])); len:=len+length(TestData[i]); end; //writeln(s); writeln(format('setlength and copy %.4fsec',[(now-myTime)*10e4])); myTime:=now; SB:=TStringBuilder.Create; for i:=0 to high(TestData) do SB.Append(TestData[i]); s:=SB.ToString; SB.Free; //writeln(s); writeln(format('TStringBuilder %.4fsec',[(now-myTime)*10e4])); myTime:=now; s:=''; for i:=0 to high(TestData) do s:=s+TestData[i]; //writeln(s); writeln(format('s:=s+TestData[i]; %.4fsec',[(now-myTime)*10e4])); readln; end.

0

28.10.2021

Meatbeat Автор вопроса

zamtmn
program Project1; {$IFDEF FPC} {$ELSE} {$APPTYPE...

с мувом быстрее всего

0

28.10.2021

zamtmn

Meatbeat
с мувом быстрее всего

проморгал, для делфи наверно надо length(TestData[i])*sizeof(s[1])

0

28.10.2021