Пременная string и цыкл repiat ...until

___neznayka___
Дата: 30.11.2007 15:06:33
procedure TMainForm.FindFiles(Folder: string; BeginDate,
  EndDate: TDateInfo);
var
  filenm:string;
  kjbjh:string;
begin
  filenm:='';//нормально все
repeat
    kjbjh:='lmk';//access violation
    filenm:='ff';//access violation
until (False);
перед входом в цикл присваивается нормально
вхожу в цикл(пошагово)
навожу мышкой на переменную, пишет :inaccessable value
выполняю строку kjbjh:='lmk';
выкидывает access violation

в чем грабли?
Anatoly Podgoretsky
Дата: 30.11.2007 15:39:23
А без отладчика?
То что недоступно, так оптимизатор выбросил переменную и код.