Исходное сообщение
"Релиз компилятора Free Pascal 2.4.0" Отправлено dq0s4y71, 03-Янв-10 20:12
>[оверквотинг удален] >    Code: Integer; >  end; > >  TLocoCodeTable = array of TLocoRec; > >var > >myarray: TLocoCodeTable; > >function LoadTableFromCSV(filename: string): TLocoCodeTable; Зачем? Мне всего лишь нужно описать массив констант, а вы предлагаете мне вместо этого загружать CVS, который я должен буду таскать везде вместе с экзешником или прилинковывать к нему в виде ресурса. К тому же, мне не надо чтобы к этой таблице имел доступ любой чайник. >И вообще, для связок name = value есть StringList. Там уже все реализовано тыщу лет назад. А инициализировать его как? Опять загружать из внешнего файла? Или писать 166 раз LocoCodeTable.Values['...'] := '...'? А чтобы получить целое значение Code каждый раз вызывать StrToInt? Я уже не говорю о том, что это будет работать медленнее чем с обычным массивом... >А csv можно править через Excel/ОО. Так, имхо лучше. Ага, а еще это можно сделать как-нибудь через собственный COM-объект... :) Вот о чем я и говорю! Как только не приходится извращаться в Паскале вместо того, чтобы просто написать: locorec_t mytable[] = {     "2М62", 539,     "2М62У", 579,     //... }; >Но от возможности писать >const >  LocoCodeTable: array of TLocoRec (...) >я бы тоже не отказался. ;) Да я и не против. Но зачем указывать размерность массива! Это же константы! У студентов, может быть, время есть их пересчитывать, а мне семью кормить надо! :)