Witam serdecznie po długim czasie. Mam do Was pytanie jak zamienić dużą ilość pętli for w jedną. Chodzi mi o to żeby uprościć i przyspieszyć kod. Mam takie coś. Wycinam ze stringa PodzielNaCzesci wartości a następnie za pomocą pętli sprawdzam czy istnieje i dodaje. wartość kopiowana jest stała i wynosi 4.
for i := 0 to sl.count -1 do
if Pos(copy(PodzielNaCzesci,0,2), sl[i]) > 0 then
sl[i] := sl[i]+' '+copy(PodzielNaCzesci,0,2);
for i := 0 to sl.count -1 do
if Pos(copy(PodzielNaCzesci,4,2), sl[i]) > 0 then
sl[i] := sl[i]+' '+copy(PodzielNaCzesci,4,2);
for i := 0 to sl.count -1 do
if Pos(copy(PodzielNaCzesci,7,2), sl[i]) > 0 then
sl[i] := sl[i]+' '+copy(PodzielNaCzesci,7,2);
for i := 0 to sl.count -1 do
if Pos(copy(PodzielNaCzesci,10,2), sl[i]) > 0 then
sl[i] := sl[i]+' '+copy(PodzielNaCzesci,10,2);
for i := 0 to sl.count -1 do
if Pos(copy(PodzielNaCzesci,13,2), sl[i]) > 0 then
sl[i] := sl[i]+' '+copy(PodzielNaCzesci,13,2);
(...)
itd. pętli jest około 40. Pozdrawiam