Цитата:
|
Сообщение от dmdx
А если в памяти раскидывать то может лучше использовать TStringList?
|
Я думаю тебе надо сначала объявить тип:
type FileInfo = record
FileName: string;
FileSize: integer;
end;
Затем объявить переменную: var Files: array of FileInfo, естественно размер массива укажешь с помошью SetLength(Files, N) и по ходу выполнения процедуры заполнить массив, а затем я думаю сам дагадаешься как избавиться от пустых файлов.