Как разделить текстовую строку

[Аватар]

Зацени что быстрей с конечнsм результатом в стринглист. Copy выграёт)

procedure TForm1.Button1Click(Sender: TObject);
const Count = 10000000;
      Len = 10;
      Line = #13#10;
var s1,s2: String;
    List: TStringList;
    i,j,i1,k1: Integer;
begin
  s1:=StringOfChar('D',Count);

  //здесь пресловутый copy и add в стрингист
  List:=TStringList.Create;
  k1:=GetTickCount;
  for i:=1 to Count div Len do List.Add(Copy(s1,(i-1)*Len+1,Len));
  Edit1.Text:=IntToStr(GetTickCount-k1);
  List.Free;

  //здесь побайтная пересылка в буфер и затем целиком в стринглист
  List:=TStringList.Create;
  SetLength(s2,Count+(Count div Len)*2);
  j:=0; i1:=1;
  k1:=GetTickCount;
  for i:=1 to Count do begin
    s2[i1]:=s1[i];
    Inc(j);
    Inc(i1);
    if j=Len then begin s2[i1]:=#13; Inc(i1); s2[i1]:=#10; Inc(i1); j:=0; end;
  end;
  List.Text:=s2;
  Edit2.Text:=IntToStr(GetTickCount-k1);
  List.Free;

  //здесь move в буфер и затем целиком в стринглист
  List:=TStringList.Create;
  SetLength(s2,Count+(Count div Len)*2);
  i1:=1;
  k1:=GetTickCount;
  for i:=1 to Count div Len do begin
    Move(s1[(i-1)*Len+1],s2[i1],Len);
    Inc(i1,Len);
    Move(Line[1],s2[i1],2);
    Inc(i1,2);
  end;
  List.Text:=s2;
  Edit3.Text:=IntToStr(GetTickCount-k1);
  List.Free;

end;

[leoparrd]

Что это было? Что вообще за бред?

[Аватар]

Не признанный гений?

[leoparrd]

Вот функция. Сомневаюсь чтоб она была медленнее Copy

function DivString(st:string):string;
var
tmp_:string;
i1,i2,ln:DWORD;
work: Boolean;

begin
  i1:= 0;
  i2:= 0;
  ln:= Length(st);
  work:= True;
  tmp_:= '';
  while work do
  begin

    i1:= i1+1;
    i2:= i2+1;
    tmp_:= tmp_ + st[i1];

    if i1 = ln then
    begin
    work:= False;
    Continue;
    end;
    if i2 = 10 then
    begin
      i2:= 0;
      tmp_:= tmp_ + Chr($D) + Chr($A);
    end;
  end;
  Result:= tmp_;


end;

Хоть к чёрту её совай

s:= '01234567890123456789012345';
Memo1.Text:= DivString(s);

[leoparrd]

Сообщение от Аватар

Не признанный гений?

По сравнению с тобой - да, многоуважаемый павлин в лампасах.

[Аватар]

Нужно не сомневаться, а проверить. Я не поленился, проверил, твоя функция как минимум в десять раз медленней чем любой способов из бреда в #11. B ней в цикле туча выделений памяти по текстовые строки. А за павлина в лампасах что имеешь, то имеешь )