[Admin]

Необходимо перевести код работы с массивом из PHP на Delphi

PHP код:

$files['qaz1.txt'][] = array('20kb,' 'readonly');
$files['qaz1.txt'][] = array('30kb,' 'archive');
 $files['qaz1.txt'][] = array('40kb,' 'readonly'); 


Т.е. на PHP мы можем очень просто получить значение 30кб:

PHP код:

$d = $files['qaz1.txt'][1][0]; 


А как сделать подобное на Delphi?

Код:

1

?

Пробовал TDictionary, но там не допускаются дубли ключей, на ПХП же они являются ключами множества $files['qaz1.txt'][]


С записями тоже не совсем понятно как это провернуть.

Мне вот как-то так нужно

[товар1][0] = array('10', '20')
[товар1][1] = array('15', '30')
[товар1][2] = array('12', '10')

[товар2][0] = array('11', '20')
[товар2][1] = array('25', '30')
[товар2][2] = array('32', '10')

ну в крайнем случае так, но это избыточно

[0][0] = array('name1', '')
[0][1] = array('10', '20')
[0][2] = array('15', '30')
[0][3] = array('12', '10')

[1][0] = array('name2', '')
[1][1] = array('10', '20')
[1][2] = array('15', '30')
[1][3] = array('12', '10')

[lmikle]

Ну так и делай. Собственно, как известно, многомерные массивы в Delphi это вложенные одномерные массивы. Указание нескольких индексов это просто синтаксический сахар.

Соответсвенно. Если ты хочешь иметь доступ по первому индексу по ключу, а далее по индексу, то храни в TDictionary массив:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

uses System.Generics.Collections;   type   TA = Array Of String;   procedure TForm1.Button1Click(Sender: TObject); var   MyMap : TDictionary<String,TDictionary<String,TA>>;   a : TDictionary<String,TA>; begin   MyMap := TDictionary<String,TDictionary<String,TA>>.Create;   a := TDictionary<String,TA>.Create;   a.Add('1',['10','20']);   MyMap.Add('товар1',a); end;

Должно работать. Ну с поправкой на то, что надо использовать соотв. методы TDictuonary.

В принципе, можно написать свой класс-враппер, что бы упростить синтакс. Что-то типа:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

type   TMyMap = class   private     FMyMap : TDictionary<String,TDictionary<String,Array Of String>>;   public     constructor Create;     destructor Destroy; override;       function Get(Key1 : String; Key2 : String) : Array Of String;     procedure Set(Key1 : Stringl Key2 : String; Values : Array Of String);   end;   ...   var   MyMap : TMyMap; begin   MyMap := TMyMap.Create;   MyMap.Set('товар1','0',['10','20']);   MyMap.Set('товар1','1',['30','40']);

Можно использовать вложенные объекты. Тогда можно воспольщоваться индесным свойством и объявить его по умолчанию. Тогда синтакс упростится до использования квадратных скобок.

[Admin]

Сообщение от lmikle

Ну так и делай...

Наваял пример, однако осталось не совсем понятно, как получить число дочерних элементов например товара 1, и как их перебрать в цикле.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

var   key: string;     MyFiles: TDictionary<String,TDictionary<Integer,TA>>;   fl: TDictionary<Integer,TA>; begin   MyFiles := TDictionary<String,TDictionary<Integer,TA>>.Create;     fl := TDictionary<Integer,TA>.Create;   fl.Add(0, ['120','20']);   fl.Add(1, ['10','20']);   fl.Add(2, ['10','20']);     MyFiles.Add('Товар 1', fl);     fl.Free;     fl := TDictionary<Integer,TA>.Create;   fl.Add(0, ['15','25']);   fl.Add(1, ['15','25']);     MyFiles.Add('Товар 2', fl);     fl.Free;     {fl := TDictionary<Integer,TA>.Create;   fl.Add(3, ['20','30']);     MyFiles.Add('Товар 1', fl);     fl.Free;}     Memo1.Lines.Clear;   Memo1.Lines.Add('Items count: ' + IntToStr(MyFiles.Count));     if MyFiles.ContainsKey('Товар 1') then   begin     Memo1.Lines.Add('Objecs count: ' + IntToStr(MyFiles['Товар 1'].Count));     // Memo1.Lines.Add('Objecs count: ' + IntToStr(MyFiles.Items['Товар 1'].Keys.Count));       fl := TDictionary<Integer,TA>.Create;     fl := MyFiles['Товар 1'];       Memo1.Lines.Add('"Товар 1" оjecs count: ' + IntToStr(fl.Count));       fl.Free;       Memo1.Lines.Add('');       for key in MyFiles.Keys do       Memo1.Lines.Add(key + ': ' + IntToStr(MyFiles[key].Count));   end;     MyFiles.Free; end;

Используя Count также получаю что-то несуразное для дочерних элементов первого товара.

Items count: 2
Objecs count: 16
"Товар 1" оjecs count: 0

Товар 1: 0
Товар 2: 0

Да и закоментированный "fl.Add(3, ['20','30']);" - у меня есть рекурсия - сканирование папок, в них файлы, так вот все дочерние элементы добавляются не за один раз, а при каждом проходе. Пока до этого не дошел даже.

PHP код:

if(mb_strpos($dir."/".$v, '/Фото/'))
    $files['/'.$shk][] = array($dir."/".$v, '[Фото]', $shk, $category);
else
    if(mb_strpos($dir."/".$v, '/Инфографика/'))
        $files['/'.$shk][] = array($dir."/".$v, '[Инфографика]', $shk, $category);
    else 


[lmikle]

Да там, вроде, не count надо использовать, а получать коллекцию ключей и уже у нее брать count. или использовать новый систаксит for each.

[Admin]

Доработанный исходник TDictionary https://delphisources.ru/pages/sourc...ictionary.html