W
мне PDP-11 семейство, точнее 1801ВМ больше нравились всегда :( они логичнее. Z80 - это как С, в то время как 1801 был сродни паскалю. Точнее, больше оберону, наверное
👍
Size: a a a
2020 April 28
SV
Привет 👋🏻
АВ
Привет
SV
Кто нибудь пользовался функцией FastStringReplace?
АВ
Лично мне хватало всегда стандартных
SV
Который как говорят быстрее в разы чем стандартный. У меня короче имеется стринг лист из 4 тысяч строк, в нём нужно заменить в каждой новой строке подстроку из 16 символов, но цикл фор зависает при замене, можно как нибудь ускорить это?
АВ
А строки длинные?
SV
От ~20 до ~100 символов
АВ
А в стринг лист как их добавляешь?
SV
Из текстового файла
GB
Sasha V
Который как говорят быстрее в разы чем стандартный. У меня короче имеется стринг лист из 4 тысяч строк, в нём нужно заменить в каждой новой строке подстроку из 16 символов, но цикл фор зависает при замене, можно как нибудь ускорить это?
что значит зависает? навсегда?
SV
Неа, долгий процесс
АВ
И главное - stringreplace то один раз вызывается или там нагромождение в зависиости от того что в строках?
GB
Sasha V
Неа, долгий процесс
что-то не то. На 4К строк не должно долго работать
AS
Sasha V
Который как говорят быстрее в разы чем стандартный. У меня короче имеется стринг лист из 4 тысяч строк, в нём нужно заменить в каждой новой строке подстроку из 16 символов, но цикл фор зависает при замене, можно как нибудь ускорить это?
покажь код
SV
For i:=0 SL.Count do
Begin
SL.Text:=StringReplace(SL.Text, ‘old’, ‘TEdit.Text’, []);
End;
Begin
SL.Text:=StringReplace(SL.Text, ‘old’, ‘TEdit.Text’, []);
End;
SV
что-то не то. На 4К строк не должно долго работать
Ну, секунд 10 тянет
GB
Sasha V
Ну, секунд 10 тянет
ты уверен, что SL.text дает i-ю строку? или не это нужно?
АВ
sl.text по идее это все содержимое листа одном большим куском, и судя по коду он вызовется 4к раз.
GB
скорее всего тебе надо
SL.strings[i]:=StringReplace(SL.strings[i], ‘old’, TEdit.Text, []);
SL.strings[i]:=StringReplace(SL.strings[i], ‘old’, TEdit.Text, []);