09.02.2023, 08:50
|
Новичок
|
|
Регистрация: 18.03.2009
Сообщения: 71
Репутация: 10
|
|
спасибо
Спасибо!
Цитата:
function Reset(Rdx:string):string;
const
wLen : Integer = 5;
var
Src: String;
Idx : Integer;
begin
Src := Rdx; // исходная строка
Src := StringReplace(Src, #13, '',[rfReplaceAll]);
Src := StringReplace(Src, #10, '',[rfReplaceAll]);
Idx := 1;
While Idx < Length(Src) Do
Begin
result:=Copy(Src,Idx,wLen);
Inc(Idx,wLen);
End;
end;
|
функции изучаем = Спасибо! правда, я не знал, что так много времени 100 000 срок будет передавать Inc(Idx,wLen);, было 800 000
|