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

[Protsv]

У меня были проги по 2000 строк в одном юните. и всё было ок.
Ещё я припомнил.
В этой же проге было и такое.
я ставил такой код

var Master : String;
begin
WITH SENDER AS TMenuItem DO
 BEGIN
  Label14.Caption:=Caption;
  Form2.LabelMaster.Caption:=Caption;
  Master:=Name;
 END;
Delete(Master,1,1);
end;

И прога тоже перестала нормально работать. Но не помню, как она умирала. Может даже и при вызове процедуры.
Потом я заменил на обычные строки для каждого пункта Popupmenu. И всё стало ОК.

[Altera]

Правдо вылетает! И 7 и 2006... Незнаю... И правда, у тебя столько там наворочено, что трудно разобраться. Сгрупируй процедуры и функции свои по назначению и расувай их но юнитам.

[alexBlack]

Посмотрим вот на это:

  peoples   : ARRAY[1..50] OF String[40];
  peoples2  : ARRAY[1..50] OF String[40];
  peoplesgr : ARRAY[1..50] OF Integer;

и ниже

  FOR i:=0 TO numb_of_people-1 DO
   BEGIN
    Peoples[i]:=basefile.ReadString(IntToStr(i),'name',' ');
    Peoples2[i]:=basefile.ReadString(IntToStr(i),'name2',' ');
    Peoplesgr[i]:=basefile.ReadInteger(IntToStr(i),'gr',0);
   END;

понятно что не так ?

и только по "счастливой" случайности ошибка вылезла при добавлении нового кода.

[Protsv]

ОФИГЕТЬ. Сто раз себе говорил: "Не отходи от стандартов, положено начинать с нуля. ВСЁ. Нечего выдумывать"
Видете как, там прописал. А при первом же цикле начал считать с нуля. Забыл задумку.
А почему же она тока сейчас проявилась. Почему раньше ничего не было.
Интересно. И всё работало блин. Не терялась нулевая строка.
Фигня какая-то...

Я балбес...

[Hamlet2k]

Короче, поубирал в конфликтных процедурах "Form1." и всё заработало. Вот файл. Надеюсь, что я не сильно там накуролесил. Переместил для удобства процедуру в ActionList. Если помог, то с тебя большая вкусная конфета к хорошему чаю!

...

Эх, не успел, не видать мне теперь сладкого

[Protsv]

Спасибо всем, хорошо что есть такой форум и такие люди.

[Stilet]

А-а-а хе-хе, я кажись понял в чем втык, Алекс действительно подметил.
Я чесно - впервые встречаюсь с кривонаписанным эксплойтом на делфе путающим карты в себе же.

И мне кажется я знаю ответ на вопрос

А почему же она тока сейчас проявилась. Почему раньше ничего не было.

А наверное потому что в цикле том ты ставил не функции (которые в стек пихают адрес для ret) а простые операторы.
Вот смотри такой код:

  FOR i:=0 TO numb_of_people-1 DO
   BEGIN
    Peoples[i]:='';//basefile.ReadString(IntToStr(i),'name',' ');
    Peoples2[i]:='';//basefile.ReadString(IntToStr(i),'name2',' ');
    Peoplesgr[i]:=1;//basefile.ReadInteger(IntToStr(i),'gr',0);
   END;  {}

Не дает той ошибки, и процедура выполняется, по крайней мере Диалог открывается.