end.
там остатки моих экспериментов с работой с excel из delphi, т.е. у препода могут возникнуть вопросы и подозрения
uses
System.JSON.Serializers;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
var Serializer := TJsonSerializer.Create;
try
for var i in Serializer.Deserialize<TArray<integer>>(Edit1.Text) do
Memo1.Lines.Add(i.ToString);
finally
Serializer.Free;
end;
end;
(*
В Edit1 нужно вводить массив целых чисел вида [1,2,3,4,5]
*)