Показать сообщение отдельно
  #1  
Старый 24.02.2008, 12:02
Gad99 Gad99 вне форума
Новичок
 
Регистрация: 21.02.2008
Адрес: мурманск
Сообщения: 72
Репутация: 10
По умолчанию Variable 'x' inaccessible here due to optimization

Немогу понять что от меня хочет компилятор. Не работает код:
Код:
procedure TForm2.Image3Click(Sender: TObject);
Type Ank = record
    FIO : array [1..3] of string[15];
    Login1 : string[8];
    Pass : string[8];
    foto : string[15];
    End;
    pass1 = 'a'..'z';
Var Anketa : Ank;
i, x : integer;
c : char;
begin
  with Anketa do
  Begin
  FIO[1] := Name1.Text;
  FIO[2] := Name2.Text;
  FIO[3] := Name3.Text;
  Login1 := Login.Text;
  For i:= 1 to length(pas) do
    Begin
    c := pas[i];  // а конкретнее вот эти 2 строки, компилятор просто 
    x := ord(c); // их не видит.
    End;
  Pass := Pas;
  End;
end; 
Еще пишет что переменные X, C не используются, как так ???
Так же во время Trace в WATCHES на переменные I, C, X пишет "Variable '_' inaccessible here due to optimization"
Ответить с цитированием