Количество элементов в массиве. Как?

Доброго дня. Прошу помощи в проблеме : Программа берет строку, в строке разделители '/'. Разделяет желменты и сует в массив. Нужно массив записать в listbox. не получается. код
fl := tinifile.Create('c:\datain\ppr-log.ini');
Mass := TStringList.Create;
Mass.Delimiter := '/';
  for x := 1 to 47 do begin
    if param = IDC[x] then begin
      temp :=  fl.ReadString(IDC[x],'set','...');
      Mass.DelimitedText := temp;
         [B]For s:=0 to Length(Mass)[/B] do begin
         form3.sListBox1.Items.Add(Mass[s])
        end;
    end;
  end;
----- По идее, в Mass[0] - 1 значение, Mass[1] - второе значение итп. Сколько значений неизвестно. Проблема в выделенной строке
3 ответа

+1, гугл сюда привёл Делаю вот так, но выводит "1024".
mdcode: array[1..1024,1..1024] of string;
...
mdcode[1,1]:='sdfsds';
mdcode[1,2]:='sdfsd';
showmessage(inttostr(High(mdcode[1])));
Сейчас решил проблему для себя. Особо не вчитывался в топик, но вот:
procedure TForm14.Button6Click(Sender: TObject);
var kol:integer;
begin
kol:=0;
for i:= 1 to 1024 do
begin
if mdcode[1,i]<>'' then
begin
kol:=kol+1;
end;
end;
showmessage(inttostr(kol));
end;
Подгоните для себя)


alexusankov, а где ты здесь массивы-то увидел? TStringList - это ни разу не массив. Это список строкТак вот Length применяется к массивам, а не к StringList-ам. У списков есть свойство Count:
For s:=0 to Mass.Count - 1 do
// ...
, или вообще без цикла:
form3.sListBox1.Items.AddStrings(Mass);


Проблема в выделенной строке
Mass.DelimitedText := temp;
form3.sListBox1.Text := form3.sListBox1.Text + Mass.Text;
end;
Mass.Free;