Вставка символов через равные промежутки

[nibufep]

Добрый день!
Как через каждый 2 символа вставлять "-"?

[disbnt]

//  Возвращает переделанную строку
//  simvol - текст который нужно вставить
//  stroka - текст в который нужно вставить
//  n - отступ вставки

function insert_text(simvol,stroka : string;n : integer):string;
var
  i,len,kol,sim : integer;
begin
  len := length(stroka);
  sim := length(simvol);
  if len >= n then begin
    kol :=  trunc(len/n);
    for i := 0 to kol-1 do insert(simvol,stroka,n*i+n+1+(i*(sim)));
  end;
  result := stroka;
end;

//  Пример

showmessage(showmessage(insert_text('-','123456783hksdfb',2));

[eoln]

Можно несколько упростить подсчёт позиции, если двигаться с конца.

function insert_text(simvol,stroka : string;n : integer):string;
var
  pos, dpos : integer;
begin
  dpos := length(stroka) mod n;
  pos := length(stroka) - dpos + 1;
  while pos > n do begin
    insert(simvol, stroka, pos);
    dec(pos, n);
  end;
  result := stroka;
end;

[nibufep]

а почему в конце тоже ставится символ?
Например:

4444-4444-4444-4444-
а нужно так:
4444-4444-4444-4444

[eoln]

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

а почему в конце тоже ставится символ?
4444-4444-4444-4444-
а нужно так:
4444-4444-4444-4444

потому что

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

через каждый

Впрочем, ежели тебе того не надо, то я не против

[disbnt]

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

а почему в конце тоже ставится символ?
Например:

4444-4444-4444-4444-
а нужно так:
4444-4444-4444-4444

В конце ставится символ потому что ты написал (Как через каждый 2 символа вставлять "-"?) , если не нужно в конце символа то сделай проверку и если он там удаляй его.

b := copy(stroka,length(stroka)-(sim-1),sim);
if b = simvol then delete(stroka,length(stroka)-(sim-1),sim);

function insert_text(simvol,stroka : string;n : integer):string;
var
  i,len,kol,sim : integer;
  b : string;
begin
  len := length(stroka);
  sim := length(simvol);
  if len >= n then begin
    kol :=  trunc(len/n);
    for i := 0 to kol-1 do insert(simvol,stroka,n*i+n+1+(i*(sim)));
  end;
  b := copy(stroka,length(stroka)-(sim-1),sim);
  if b = simvol then delete(stroka,length(stroka)-(sim-1),sim);
  result := stroka;
end;

[min@y™]

Предложил сыну написать и эту лабу.
В основе - моя функция без 100500 перераспределений памяти. будет сильно быстрее.

uses math;

function InsertSymbol(const src: string;
                      const symbol: char;
                      const interval: integer): string;
var
  idx, icnt, lgt, rdx: integer;
begin
  lgt:= Length(src);

  if (lgt <= interval) or (interval < 1)
    then begin
           result:= src;
           exit;
         end;

  icnt:= (lgt - 1) div interval;
  result:= StringOfChar(symbol, lgt + icnt);
  idx:= 1;
  rdx:= 1;

  repeat
    move(src[idx], result[rdx], min(lgt - idx + 1, interval) * sizeof(char));
    inc(idx, interval);
    inc(rdx, interval + 1);
  until idx > lgt;
end;

Код рабочий!

[min@y™]

Заинтересовало количественное отношение.



Сынище допилил прогу. Тест честный, исходники вот.

[nibufep]

Сообщение от min@y™

Предложил сыну написать и эту лабу.
В основе - моя функция без 100500 перераспределений памяти. будет сильно быстрее.

uses math;

function InsertSymbol(const src: string;
                      const symbol: char;
                      const interval: integer): string;
var
  idx, icnt, lgt, rdx: integer;
begin
  lgt:= Length(src);

  if (lgt <= interval) or (interval < 1)
    then begin
           result:= src;
           exit;
         end;

  icnt:= (lgt - 1) div interval;
  result:= StringOfChar(symbol, lgt + icnt);
  idx:= 1;
  rdx:= 1;

  repeat
    move(src[idx], result[rdx], min(lgt - idx + 1, interval) * sizeof(char));
    inc(idx, interval);
    inc(rdx, interval + 1);
  until idx > lgt;
end;

Код рабочий!

Спасибо !!!