массивы

[ribka]

создаю массив из символов (беру из строки), далее в ходе работы мне надо будет обращаться к массиву. Массив создаю в FormCreate. Потом хочу его вывести, но он заполнен 0. Что ни так? Массив задан как глоб.переменная.

рrocedure TForm1.FormCreate(Sender: TObject);
var MasDerevo: array [1..15] of char;
S: string;
i: integer;
begin
S:='+//-b+*ad00ad2c';
for i:=1 to length(S) do
MasDerevo[i]:=S[i];
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i:=1 to 15 do
Form1.LB1.Items.Add(MasDerevo[i]);
end;

[vitalik007]

В коде у тебя массив задан только для oncreate

[DemonDragonClik]

Объяви массив не в процедуре а выше, для всех процедур.