Split Text

[ZuBy]

Привет всем!

Нужно доработать код, не получается сделать правильно.

Оригинальный текст:
00000000000000000000000000111111111 11111111111111111

Вывод:
00000000000000000000000000
11111111111111111111111111

procedure SplitText(const Str: string; const OffWidth: integer; Memo: TMemo);
var
  i, lng, ps: integer;
begin
  if (Length(Str) <> 0) and (Length(Str) > OffWidth) then
  begin
    Memo.Clear;
    lng := (Length(Str) div offWidth);
    for i := 1 to lng do
    begin
      ps := (Length(Str) - (Length(Str) div i));
      Memo.Lines.Add('         ' + Copy(Str, ps, ps + OffWidth));
    end;
  end else
  begin
    Memo.Clear;
    Memo.Lines.Add('         ' + Str);
  end;
end;

P.S. Если ставить разные значения во втором параметре, то разделение идет не совсем так как нужно.

[spamer]

А в чем собственно вопрос? А то я вот сижу смотрю на функцию и не понимаю, что в ней не так...

[ZuBy]

Сообщение от spamer

А в чем собственно вопрос? А то я вот сижу смотрю на функцию и не понимаю, что в ней не так...

>>P.S. Если ставить разные значения во втором параметре, то разделение идет не совсем так как нужно.

[spamer]

Ну оно то действительно разделять будет не ровно...хотя зачем вобще этот 2й параметр, если можно данную строку проще поделить, например вот так:

procedure SplitText(Str: string; Memo: TMemo);
var
  i, len : Integer;
begin
  if Length(str) <> 0 then
    begin
      len := Length(str);
      i := Pos('1', str) - 1;
      Memo.Lines.Add('         ' + Copy(str, 0, i));
      Memo.Lines.Add('         ' + Copy(str, i + 1, len - i));
    end;
end;

[ZuBy]

Оригинальный текст:
00000000000000000000000000111111111 11111111111111111

Вывод:
00000000000000000000000000
11111111111111111111111111

Это было для примера) текст может быть любым

[Serge_Bliznykov]

Это было для примера) текст может быть любым

странный Вы человек...
Вы хотите строчку разделить на две ровно пополам?!
Так зачем весь этот огород?

s1 := Copy(s,1,Length(s) div 2);
s2 := Copy(s,(Length(s) div 2)+1, Length(s) - Length(s));

а... кажется понял.
Если строчка длинее OffWidth, всё, что "вылазит" разнести построчно...

тогда так:

  while Length(Str) > 0 do begin
     if length(Str)>OffWidth 
          then ps := OffWidth
          else ps := length(Str);
     Memo1.Lines.Append(Copy(Str,1, ps));
     Delete(Str,1, ps)
  end;

[ZuBy]

Serge_Bliznykov, Спасибо!

тема закрыта!