Warning

[LeoN]

Почему вылазит: [Warning] Main.pas(213): FOR-Loop variable 'y' may be undefined after loop? Что я забыл?

  while u<List.Count do
   Begin
    Init(List.Strings[u]);
    if copy(list.Strings[u],sbo[y]+6,5)=DelNul(ECoor.Text) then with mem.Lines do
     Begin
      for y:=0 to br-1 do
       Begin
        Add('Игрок: '+copy(list.Strings[u],0,sbo[0]-1));
        Add('Система: '+copy(list.Strings[u],sbo[y]+17,sbc[y]-sbo[y]-17));
        Add('Номер системы: '+DelNul(copy(list.Strings[u],sbo[y]+11,6)));
        Add('Координаты: '+ShowCoor(copy(list.Strings[u],sbo[y]+1,10)));
        Add('');
        Add(copy(list.Strings[u],0,sbo[0]-1)+' '+copy(list.Strings[u],sbo[y]+17,sbc[y]-sbo[y]-17)+' '+DelNul(copy(list.Strings[u],sbo[y]+11,6))+' '+ShowCoor(copy(list.Strings[u],sbo[y]+1,10)));
        Add('');
       End;
      Add('===========');
     End;
    u:=u+1;
   End;

[Карась]

Сообщение от LeoN

Что я забыл?

Показать код.

[Sibedir]

до цикла "while" (строка листинга - 01) у вас определено значение переменной "y". В самом цикле это значение используется (04):

if copy(list.Strings[u],sbo[y]+6,5)=DelNul(ECoor.Text) then with mem.Lines do

Но дальше, в этом же цикле переменная "y" используется при определении вложенного цикла "for" (06). Когда наступит следующий виток цикла "while", значение переменной "y" будет не определенно. Для устранения этого предупреждения необходимо использовать еще одну переменную "y1":

while u<List.Count do
 Begin
  Init(List.Strings[u]);
  if copy(list.Strings[u],sbo[y]+6,5)=DelNul(ECoor.Text) then with mem.Lines do
   Begin
    for y1:=0 to br-1 do
     Begin
      Add('Игрок: '+copy(list.Strings[u],0,sbo[0]-1));
      Add('Система: '+copy(list.Strings[u],sbo[y1]+17,sbc[y1]-sbo[y1]-17));
      Add('Номер системы: '+DelNul(copy(list.Strings[u],sbo[y1]+11,6)));
      Add('Координаты: '+ShowCoor(copy(list.Strings[u],sbo[y1]+1,10)));
      Add('');
      Add(copy(list.Strings[u],0,sbo[0]-1)+' '+copy(list.Strings[u],sbo[y1]+17,sbc[y1]-sbo[y1]-17)+' '+DelNul(copy(list.Strings[u],sbo[y1]+11,6))+' '+ShowCoor(copy(list.Strings[u],sbo[y1]+1,10)));
      Add('');
     End;
    Add('===========');
   End;
  u:=u+1;
End;

[LeoN]

Почему не знаю.

procedure TMForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Data\config.ini');
 ini.WriteInteger('MForm','Left',MForm.Left);
 ini.WriteInteger('MForm','Top',MForm.Top);
 ini.WriteInteger('MForm','Width',MForm.Width);
 ini.WriteInteger('MForm','Height',MForm.Height);
 ini.WriteBool('MForm','ScreenSnap',MForm.ScreenSnap);
 ini.WriteInteger('FN','Color',FN.Color);
 ini.WriteString('FN','Name',FN.Name);
 ini.WriteInteger('FN','Size',FN.Size);
 ini.WriteInteger('FT','Color',FT.Color);
 ini.WriteString('FT','Name',FT.Name);
 ini.WriteInteger('FT','Size',FT.Size);
 ini.Free;
end;

[BOBAH13]

Честно говоря Вам никто не поможет В вашем коде такое кол-во функций неизвестных, что просто можно гадать... Вы бы хотя поотсеивали все лишнее, не касающееся теме вашего вопроса !

[Квэнди]

Читаейте ответ Sibedir.
Ответ находится в тексте предупреждения ( заметьте не ошибки)

[LeoN]

Нет кроме последнего ничего нет. Я просто не стал новую тему создавать. Это в другой проге.

[Sibedir]

На какой строчке-то вылетает?

[Stilet]

Почему вылазит: [Warning] Main.pas(213): FOR-Loop variable 'y' may be undefined after loop? Что я забыл?

Потому что делфа хочет предупредить что после цикла переменная у будеn равна чепухе. Это не страшно в большинстве случаев.

[LeoN]

про warning уже закрыли тему! Если бы я знал на какой строчке, то исправил бы.