Delphi массив

[world12_tk]

Здраствуйте уважаемые форуманины!!!!
Возник такой вопрос.
Есть массив с типом string.
Нам не известно, есть ли в ячейках данные или нет.
Как мне организовать проверку????
Я попробовал вот так, но почему то не работает....

 if name[j]='' then begin
              position_name_massiv:=j;
              exit;
            end;

Заранее спасибо!

[MyLastHit]

Всмысле не работает? У меня работает. j-ая ячейка вообще существует или нет? Хотя бы пустая?

Вот это name[j]=''; эквивалентно вот этому length(name[j])=0;

[world12_tk]

Да. j-ая ячейка существует. Т.е. скажем так: она прописана как:

var
  name:array[0..count] of string;

Когда я прописываю вот такое условие:

if length(name[j])=0 then

То меня выкидывает из процедуры....

[ipaSoft]

Все вроде нормально работает. Попробуйте указать размер типа

procedure TForm1.FormCreate(Sender: TObject);
var a: array [0..5] of string[20];
begin
a[2] := 'Привет'    ;
label1.Caption := inttostr(length(a[2]));
end;

[MyLastHit]

Покажите полный код, со всякими варами и константами. Может ошибка и не в этом вовсе.

PS: из процедуры может exit выкидывать.

[world12_tk]

MyLastHit! Вы оказались правы.... там действительно стоит exit...
Просто мне нужно, чтобы когда я находил пустой эл-нт, то выходил бы из цикла....

const
  count=150;
var
   name: array [0..count] of string;
begin
   for I := 0 to count do  begin
      if length(name[i])=0 then begin
             position_name_massiv:=i;
             exit;
          end;
    end;
.................
end;

[MyLastHit]

Break - выходит из цикла, exit - завершает подпрограмму. Ставьте вместо exit - break. И зачем вам столько операторных скобок?

const
  count=150;
var
   name: array [0..count] of string;
begin
   for i := 0 to count do
   if length(name[i])=0 then
   begin
      position_name_massiv:=i;
      break;
   end;
.................
end;

[world12_tk]

MyLastHit Спасибо.....
Просто в цикле несколько условий.....