хачу усавершенствовать код загрузки значений с мемо полей. Как быстро можно загнать из 2-х мемо полей одной таблы в 2-ый массив?

массив я не использую пока. но думал. чтоб в массив загнать значения из 2-х мемо полей и вставить в курсор.

как быстро с мемо вставить в курсор? через aline у меня прописано. может есть что-то еще уникальнее?

задача такова. нужно загрузить данные из 2-х мемо полей в курсор. как можно более эффективным способом.
в моем коде названия полей и таблиц находяться в массиве и поочередно исполняються:

for rep_memo_zagr = 3 to 4
rep_znach1 = rep_load_array(1,rep_memo_zagr) && название мемо-поля
rep_znach2 = rep_load_array(2,rep_memo_zagr) && название курсора
rep_znach4 = rep_load_array(4,rep_memo_zagr) && название поля курсора

rep_lnRow = ALINES(laLines,&rep_znach1,.t.)
*set step on
if empty(&rep_znach1)
rep_lnRow = 0
endif
if mod(rep_memo_zagr,2) = 0
Go Top In &rep_znach2
endif

FOR rep_lnI=1 TO rep_lnRow

select &rep_znach2
if mod(rep_memo_zagr,2) = 1
append blank
else
if eof() = .t.
append blank
endif
endif

ValLine1 = alltrim(laLines[rep_lnI])

select &rep_znach2
REPLACE &rep_znach4 with ValLine1

if mod(rep_memo_zagr,2) = 0
skip
endif
ENDFOR
endfor

задача требует. В мемо храняться список значений которые используються для фильтра. и мне нужно из мемо в курсор забросить.
В мемо я их програмно закидываю записывая каждое значение с новой строки chr(13)
rep_znach1, rep_znach2, rep_znach3 - принимают только символьные, эти значения загружаються из массива который объявлен public. и в нем храняться названия полей и таблиц. этот массив я использую для сохранения значений в мемо.

по-поводу переменной я согласен. но факт в том что циклы у меня для разных полей одинаковы и повторно копировать код .... нето. так за счет for автоматом считываеться нужные значения из массива

поповоду переключения на другую область нету я согласен

поповоду if спасибо. даже не подумал вот так.

2 Igor Korolyov
Это ж какая тогда таблица получиться. В моем случае юзер должен иметь возможность добовлять сколько угодно фильтров для каждого поля которые я пропишу. и как же их в строки заносить. Ведь в мемо заноси - нихачу, любое кол-во строк. а код считывания я изменил. вот новый


**загрузка из мемо
create cursor sav_rep_curs (for_list1 C(40),list1_nomer C(10), for_list2 C(40), list2_nomer C(10))
create cursor rep_vibor_filtr (filtr_user C(200), filtr_admin C(200))
local rep_load_name, c_srv, rep_lnRow , rep_lnI, laLines(1),laLines2(1)

store '' to rep_load_name,rep_znach1 , rep_znach2 , rep_znach3
c_srv = 0
select urep_saves_spis
go top
for rep_nCnt = 1 to THISform.list1.ListCount
IF THISform.list1.Selected(rep_nCnt)
rep_load_name = alltrim(THISform.list1.List(rep_nCnt))
ENDIF
endfor

**поиск и загрузка в курсор
LOCATE FOR ALLTRIM(urep_saves_spis.name_user) = rep_name_user .and. ALLTRIM(urep_saves_spis.name_rep) = rep_load_name
DO WHILE FOUND()
c_srv=RECNO()
if !Found()
exit
else
go c_srv
endif
CONTINUE
ENDDO
*******************
if c_srv > 0
select urep_saves_spis
go c_srv

rep_lnRow = ALINES(laLines,urep_saves_spis.name_list1,.t.)
FOR rep_lnI=1 TO rep_lnRow
ValLine1 = laLines[rep_lnI]
ValLine2=val(ValLine1)
select naimen from urep_filter where nrec=ValLine2 into cursor rep_ttemp
select sav_rep_curs
append blank
REPLACE for_list1 with alltrim(rep_ttemp.naimen), list1_nomer with alltrim(ValLine1)
endfor

go top in sav_rep_curs

rep_lnRow = ALINES(laLines,urep_saves_spis.name_list2,.t.)
FOR rep_lnI=1 TO rep_lnRow
if eof() = .t.
append blank
endif
ValLine1 = laLines[rep_lnI]
ValLine2=val(ValLine1)
select naimen from urep_filter where nrec=ValLine2 into cursor rep_ttemp
select sav_rep_curs
REPLACE for_list2 with alltrim(rep_ttemp.naimen), list2_nomer with alltrim(ValLine1)
skip
endfor

rep_lnRow = ALINES(laLines,urep_saves_spis.filtr_user,.t.)
rep_lnRow2 = ALINES(laLines2,urep_saves_spis.filtr_adm,.t.)
if empty(alltrim(urep_saves_spis.filtr_user))
rep_lnRow= 0
endif
FOR rep_lnI=1 TO rep_lnRow
ValLine1 = alltrim(laLines[rep_lnI])
ValLine2 = alltrim(laLines2[rep_lnI])
select rep_vibor_filtr
append blank
REPLACE filtr_user with ValLine1 , filtr_admin with ValLine2
endfor

endif

thisform.release


может посоветуете внести еще какие нить изменения? меня еще интересует вопрос по locate. Можете предложить что-то еще лучше для поиска записей или этот алгоритм вполне нормальный?

2 Igor Korolyov
просто в одной строчке в мемо все можно занести и не разводить кучу строк. я так думаю