Где мой кося в динамическом массиве?

[Utkin]

Собственно строки:

x:=Data[Count].Name;
Data[i].Name:=x;

Слегка перегрелся на солнце, вот и не могу найти проблему
Это элемент копирования, вызывающий Access Violation.
Даю вводные:
Массив динамический
x - String;
Name - String;
Count в данной точке равен 2, всего элементов в массиве 3 (пока что).
i в данной точке равен нулю.
Оба элемента (Data[Count].Name и Data[i].Name) существуют на данный момент и в бреакпоинте видны их значения (запланированные).
Вопрос: Па-а-а-чему? Почему при выполнении второй строки возникает такая кама-сутра?

[Stilet]

Что такое Data?

[Utkin]

type
TVector = record
Data: Array of TVectorElem;
Name: String; // Имя вектора
Link: Integer; // Количество ссылок на данный вектор
end;

Такая вот беда

type
TVectorElem = record
AType: Boolean; // Тип элемента - False строка, True вектор
Link: Integer; // Сыслка на соответствующий элемент
Index: String; // Обозначение индекса элемента
end;

Чисто на всякий случай...

Смысл возни - эта сложная структура и ее тяжело удалить без крови. Вот я его и пытаюсь перекопировать из любого участка массива в конец, что бы там уже над ним надругаться по полной программе. И все бы ничего, но при переписывании имени такая вот оказия.

[zumm]

Косяк в названии темы

[Utkin]

Сообщение от zumm

Косяк в названии темы

Это я знаю, и надеюсь на Стилета . Меня больше интересует динамический массив.

[mid]

http://www.delphibasics.ru/SetLength.php

такую бяку использовал?

type
  TData = record
    Name : String;
  end;

var
  X : String;
  Data : array of TData;

begin
    X:= 'hello';
    SetLength(Data,1);
    Data[1].Name:= X;
end.

Выполняется без ошибок.

[Utkin]

Да, у меня почти в каждой процедуре такие игры .
Смысл в том, что в данной процедуре они еще не наступили . Я уже объяснил, что сначала элемент должен быть переписан из любого участка в конец, вся структура будет проинициализирована, и только тогда наступит SetLength.

[zumm]

Какие то косячные эти динамические массивы...У меня вот только что тоже возник странный глюк, значение вообще не присваивается, хотя ясно написано ':='...будем бить в бубен...

[Utkin]

Сообщение от zumm

Какие то косячные эти динамические массивы...У меня вот только что тоже возник странный глюк, значение вообще не присваивается, хотя ясно написано ':='...будем бить в бубен...

Уже проверил пути к модулям в *.dpr (знаю, такой прикольный косячок, когда правишь один модуль, а подключен другой, одноименный ). Аномалия не прошла . Я не знаю чей это глюк, мой или Дельфи и главное как ето победить?
Самое обидное, поля-то одинаковые. Из последнего элемента я могу читать поле, а в первом элементе переписать не судьба.

ЗЫ. Попробовал такой фокус с другим элементом. Прошло на ура. Чувствую постепенное изменение мировозрения....

ДОБАВЛЕНО:
На тот случай если это все же я, вот полный код

// Удаляем все вектора, ненужные в системе
procedure TVectors.EraseDust();
var
      i, Count: Integer;
      x: String;
begin

      // Определим общее число векторов
      Count:=Length(Data);

      // В системе есть вектора?
      if Count<1 then Exit;

      // Сканим линки векторов
      Dec(Count);
      for I := 0 to Count do
      begin

            // Вектор нужен?
            if ((Data[i].Name='') and (Data[i].Link=0) or (Data[i].Link<0)) then
            begin

                  // Внесем новое имя
                  x:=Data[Count].Name;
                  Data[i].Name:=x;

                  // Сделаем данный вектор нулевым
                  ZeroVector(i);

                  // Скопируем на его место последний из векторов
                  CopyVector2(Count, i); 
                  
                  // Уничтожим последний вектор
                  EraseLastVector();
            end;
      end;

end;
////////////////////////////////////////////////////////////////////////////////

Пока не дописано, но собственно дальнейшие действия на артефакт влиять уже не должны (там должны следовать обновления ссылок в структурах).

[Stilet]

procedure TVectors.EraseDust();
var
      i, Count: Integer;
      x: String;
begin

      for I := Low(data) to high(data) do
      begin

            // Вектор нужен?
            if ((Data[i].Name='') and (Data[i].Link=0) or (Data[i].Link<0)) then
            begin

                  // Внесем новое имя
{$o-}
                  x:=Data[Count].Name;
                  Data[i].Name:=x;
{$o+}
                  // Сделаем данный вектор нулевым
                  ZeroVector(i);

                  // Скопируем на его место последний из векторов
                  CopyVector2(Count, i); 
                  
                  // Уничтожим последний вектор
                  EraseLastVector();
            end;
      end;

end;

Это я знаю, и надеюсь на Стилета

А зря. Я сейчас не солидарен с тобой.