Свойство Lines поля Memo

[Jaga_89]

Можно ли его использовать в операторе case?

L: array[1..100,1..100] of Tmemo;

for i:=1 to 100 do
    for f:=1 to 100 do
      begin
        for s1:=0 to 15 do
          case L[i,f].Lines[s1] of
            'точение черновое':           Np1:=0.69;
            'точение чистовое':           Np1:=0.69;
            'точение тонкое':             Np1:=0.73;
            'шлифование':                 Np1:=0.80;
            'полирование':                Np1:=0.80;
            'притирка':                   Np1:=0.92;
            
          end;
      end;

Пишет ошибку несовместимости типов: String и Integer.

[D@rkArt]

Что это за муть ты написал? поподробней давай. зачем 3 цикла?что прога делает?
весь текст проги напиши

[Jaga_89]

Есть двумерный массив элементов Memo, в каждом из них хранится список (точение черновое, точение чистовое и т.д.).
Для каждого элемента списка(т.е. для каждой технологической операции) нужно определить себестоимость. Затем их сложить и получить себестоимость каждого списка.
Но суть в том, что не работает case..

Весь текст на нескольких модулях, а это будет отдельный модуль селекции полей Memo по себестоимости, пишу с нуля, в исходных данных только массив L.

Два цикла для того, чтобы перебирать элементы массива. Третий - чтобы перебирать элементы списка.

[ViToTiV]

для case нужен ordinal types:
Ordinal types are the predefined types Integer, Char, WideChar, Boolean, and declared enumerated types.

но ты можешь использовать индексы строк, например

[Аватар]

Стринговый тип с CASE не совместим. Но 10000 Memo это что-то

[D@rkArt]

не пробовали сделать так L: array[1..100,1..100] of Tmemo=( 'точение черновое': Np1:=0.69;
'точение чистовое': Np1:=0.69;
'точение тонкое': Np1:=0.73;
'шлифование': Np1:=0.80;
'полирование': Np1:=0.80;
'притирка'
не знаю это сработает или нет попробуйте вместо memo написать string

[Jaga_89]

D@rkArt, спасибо!

[vovk]

Я не знаю как вы пришли к решению запихать всё это в мемо, но подход явно не тот, тут скорее надо решать с помощью БД.


2D@rkArt

Сообщение от D@rkArt

не пробовали сделать так L: array[1..100,1..100] of Tmemo=( 'точение черновое': Np1:=0.69;
'точение чистовое': Np1:=0.69;
'точение тонкое': Np1:=0.73;
'шлифование': Np1:=0.80;
'полирование': Np1:=0.80;
'притирка'
не знаю это сработает или нет попробуйте вместо memo написать string

шедеврально

[D@rkArt]

да,да,да знаю ступил с кем не бывает?