Присвоить массив

← →
ply © (2011-12-28 12:13) [0]

Как присвоить динамическому массиву определенные значения

так не дает:
var a: array of string;
...
a:=["один","два"];

← →
Сергей М. © (2011-12-28 12:20) [1]

поэлементно.

← →
Медвежонок Пятачок © (2011-12-28 12:20) [2]

не дает потому что массив не может принять значение не массива.

← →
И. Павел © (2011-12-28 12:26) [3]

> [0] ply © (28.12.11 12:13)

Как вариант  напишите функцию, которая принимает первым аргументом динамический массив а вторым  вариантный массив (array of const). На вход функции подавайте массив «a» и открытый конструктор ([..., ..., ... и т.д.]), а внутри функции присваивайте элементам массива значения в цикле. Если массивов array of string много и всех их нужно инициализировать константами, то получится какая-то экономия кода.

← →
Anatoly Podgoretsky © (2011-12-28 12:40) [4]

> ply (28.12.2011 12:13:00) [0]

Используй индексы

F1 + Dynamic arrays

← →
Ega23 © (2011-12-28 13:01) [5]

> var a: array of string;
> ...
> a:=["один","два"];
>

var a: array of string; begin SetLength(a, 2); a[0] := "Один"; a[1] := "Локи"; end;

← →
ply © (2011-12-28 13:22) [6]

Спасибо. Надеялся что можно как-то обойтись одной строчкой

← →
Сергей М. © (2011-12-28 13:35) [7]

> Надеялся что можно как-то обойтись одной строчкой

Одной никак.
Но можно двумя, если тип элементов массива относится к базовым и фундаментальным типам данных, к коим string не относится.

← →
Anatoly Podgoretsky © (2011-12-28 13:44) [8]

> ply (28.12.2011 13:22:06) [6]

Можно - напиши процедуру

← →
MBo © (2011-12-28 13:45) [9]

Есть способ, но недокументированный, не во всех дельфях может работать, Error Insight на него ругается. Сам использую только для тестовых вещей.

type TStringArray = array of string; var a: TStringArray; ... a := TStringArray.Create("один", "два");

с XE вроде документированный

> Спасибо. Надеялся что можно как-то обойтись одной строчкой

Не надо пихать в одну строчку то, что делается двумя, но понятно.
А то потом такие уродцы возникают:

with SomeCollection.AddItem(TSomeCollectionItem.Create(dmMain.SomeDataSet.FieldByName ("SomeField").AsInteger)) do DoSomething;

Присвоить массив Найти похожие ветки