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

[Protsv]

Не пойму что происходит.
Написал прогу, нормально работает. Всё уже проверено.
Мне понадобилось сделать ещё пару вещей. Сохранение, и чтение с файлов. Но это не важно...
Главное в том, что я пишу новую процедуру, которая даже не где не запускается, т.е. код её вообще не выполняется. И моя програмуська вдруг начинает страшно шалить, перестаёт адекватно работать, в итоге критикал еррор и падение.
Тут же отправляю процедуру в комментарии. Всё начинает опять работать, исправно.

Я не пойму в чём дело. Повторяю, код процедуры не выполняется, она не прописана нигде.

Может вирусы. Или ошибка компилятора. Кто знает в чём дело ?
У кого-нибудь было так же?

[Баламут]

F5, F7, F8 тебе в помощь

[Stilet]

А ты код то выложи, может быть и компилятор глючный.

[Altera]

Кстате, я заметил, что если много юнитов в разделе uses, то при перестановки компилятор не видит например tBitmap, и на переменную этого типа говорит, что такого типа не существует!

Не пойму что происходит.
Написал прогу, нормально работает. Всё уже проверено.
Мне понадобилось сделать ещё пару вещей. Сохранение, и чтение с файлов. Но это не важно...
Главное в том, что я пишу новую процедуру, которая даже не где не запускается, т.е. код её вообще не выполняется. И моя програмуська вдруг начинает страшно шалить, перестаёт адекватно работать, в итоге критикал еррор и падение.
Тут же отправляю процедуру в комментарии. Всё начинает опять работать, исправно.

Я не пойму в чём дело. Повторяю, код процедуры не выполняется, она не прописана нигде.

Может вирусы. Или ошибка компилятора. Кто знает в чём дело ?
У кого-нибудь было так же?

А процедура как называется? Попробуй сначала поменять имя на " hteyffdgetop " ))) Таково точно нигде не будит и юниты лишние из юзес убери...

[Protsv]

Поменял название, кое-что убрал из uses.
но нихрена.
Если убираю запуск процедуры с кнопки. Прога работает.
Если процедура осталась в событии OnClick, прога глючит.
Но повторяю на Button я даже не нажимаю.


Вот код.

var numb_of_people : Integer; // общая переменная


PROCEDURE SFxxxProc;
var i : Integer;
    s : AnsiString;
begin
Form1.SaveDialog1.InitialDir:=CurD+'\Forms\';
IF Form1.SaveDialog1.Execute THEN
    BEGIN
     IF FileExists(Form1.SaveDialog1.FileName)=False THEN
       BEGIN
         //CreateFile(/////)
       END;
     Savefile:=TIniFile.Create(Form1.SaveDialog1.FileName);
     SaveFile.WriteString('FormContent','Pro',Form1.Label2.Caption);
     IF Form1.LabelCh1.Caption <> 'Нет' THEN
        BEGIN
         For i := 0 TO numb_of_people DO
          BEGIN
           IF Form1.LabelCh1.Caption=peoples[i] THEN
            BEGIN
              SaveFile.WriteInteger('FormContent','ch1',i);
              Break;
            END;
          END;
        END;
 
     IF Trim(Form1.EditPor.Text)<>'' THEN
       BEGIN
        IF Length(Form1.EditPor.Text)>255 THEN
         BEGIN
          S:=Form1.EditPor.Text;
          Delete(s,255,Length(Form1.EditPor.Text));
          SaveFile.WriteString('FormContent','Por1',s);
          S:=Form1.EditPor.Text;
          Delete(s,0,255);
          SaveFile.WriteString('FormContent','Por2',s);
         END
        ELSE SaveFile.WriteString('FormContent','Por1',Form1.EditPor.Text);
       END;

      IF Trim(Form1.EditMer.Text)<>'' THEN
       BEGIN
        IF Length(Form1.EditMer.Text)>510 THEN
         BEGIN
          S:=Form1.EditMer.Text;
          Delete(s,255,Length(Form1.EditMer.Text));
          SaveFile.WriteString('FormContent','Mer1',s);
          S:=Form1.EditMer.Text;
          Delete(s,0,255);
          Delete(s,510,Length(Form1.EditMer.Text));
          SaveFile.WriteString('FormContent','Mer2',s);
          S:=Form1.EditMer.Text;
          Delete(s,0,510);
          SaveFile.WriteString('FormContent','Mer3',s);
         END
        ELSE
          IF (Length(Form1.EditMer.Text))>255 THEN
            BEGIN
             S:=Form1.EditMer.Text;
             Delete(s,255,Length(Form1.EditMer.Text));
             SaveFile.WriteString('FormContent','Mer1',s);
             S:=Form1.EditMer.Text;
             Delete(s,0,255);
             SaveFile.WriteString('FormContent','Mer2',s);
            END
          ELSE
          SaveFile.WriteString('FormContent','Mer1',Form1.EditMer.Text);
       END;
     //////////////
      FOR i:=0 TO 2 DO
      IF Form1.Label14.Caption=Form1.Popupmenu3.Items[i].Caption THEN
        BEGIN
         SaveFile.WriteInteger('FormContent','Master',i);
        END;
     //////////////
     IF Form1.Radiobutton2.Checked=True THEN
        BEGIN
          SaveFile.WriteString('FormDate','Date',Form1.Edit2.Text);
        END;
     IF Form1.Radiobutton4.Checked=True THEN
        BEGIN
          SaveFile.WriteString('FormTime','Time',Form1.Edit3.Text);
        END;
   
  SaveFile.Free;
    END;

end;

[Serge_Bliznykov]

попробуй в процедуре сразу после begin
написать EXIT;

ещё точку останова в процедуре поставить и запустить программу. OnClick кнопки может вызывать КТО УГОДНО!
Ну, например, при FormShow он может вызываться..
в теле программы поищите OnClick...
кроме того, одна и та же процедура может быть назначена на разные события (поищите имя вашей процедуры внутри DFM файла.

[Stilet]

OnClick кнопки может вызывать КТО УГОДНО!

Ой-ли? Автор же сказал "код процедуры не выполняется, она не прописана нигде." - всмысле нигде не вызывается

Автор, прикрепи сюда архив всего проекта.

[Serge_Bliznykov]

Ой-ли? Автор же сказал "код процедуры не выполняется, она не прописана нигде."

угу. точно так. он именно так сказал.
Но я привык на слово никому не верить ;-))
И почему то у него же программа падает?..

Автор, прикрепи сюда архив всего проекта.

Вот с этим полностью согласен.

[Protsv]

Поставил точку останова на первой строчке...
Программа умерла как обычно... точка не сработала.
прикрепляю прогу.
Она сохранена в работающем режиме.
Советую посмотреть чё и как.
Потом можно убрать комментарии в 1330 строке Unit1 и посмотреть
хотя бы на выпадающие списки.
Я ещё думаю на вирусы.
И ещё. Не судите строго за реализацию. Я знаю что некоторые вещи можно сделать более простыми.
Мы лёгких путей не ищём.

[Stilet]

Такое впечатление что делфи просто давится такими огромнейшими файлами за 1000 строк.
Советую все же переписать более аккуратно.