Текущий архив: 2006.10.29;
Скачать: CL | DM;

Вниз

try except и присвоение значения переменной   Найти похожие ветки 

← →
Pavelkq   (2006-09-19 12:19) [0]

Имею такой код (или он меня):
Procedure StringToKeys (DocKeys: string);
var
PStr: string;
begin
  try
    PStr := DocKeys;
  except
    Form1.Memo1.Lines.Add(PStr);
  end;
end;
До входа в try переменная DocKeys имеет переданное значение. Во время входа значение переменной исчезает и попытка присовить это значение переменной PStr оканчивается неудачей. После этого процедура, естественно завершается. Если сделать:
Procedure StringToKeys (DocKeys: string);
var
PStr: string;
begin
    PStr := DocKeys;
    Form1.Memo1.Lines.Add(PStr);
end;
, то все работает на ура. В чем проблема?

---

← →
Dmitrij_K   (2006-09-19 12:24) [1]

Включена оптимизация. Бесполезный код удаляется
begin
 try
   PStr := DocKeys;
   shwomessage(PStr); //***
   shwomessage(DocKeys);//***
 except
   Form1.Memo1.Lines.Add(PStr);
 end;
end;

---

← →
Pavelkq   (2006-09-19 12:36) [2]

Спасибо! Все работает! Проблема ясна!

---

Страницы: 1 вся ветка

Текущий архив: 2006.10.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.05 c