Как исправить "Warning: Local variable "s" of a managed type does not seem to be initialized"

@Виталий1990 · Регистрация: 19.07.2013

Author24 — интернет-сервис помощи студентам

main.pas(13,9) Warning: Local variable "s" of a managed type does not seem to be initialized

Delphi

procedure TfMain.Button1Click(Sender: TObject);
  var
  s: string; //для сбора результатов деления
  b: ShortInt; //счетчик
  r: real; //результат деления
begin
  for b:= -10 to 10 do begin  //начало цикла
    //если ноль, не делим, а сразу выходим из цикла:
    if b = 0 then break;
    // делим:
    r:= 100 / b;
    //теперь добавляем результат в строку s:
    s:= s + '100 / ' + IntToStr(b) + ' = ' + FloatToStr(r) + #13;
  end;  //конец цикла
 
  //теперь разом выводим все полученные результаты:
  ShowMessage(s);
end;

Только начал изучать тему. Если я правильно понял, компилятор предупреждает о необходимости не только обозначить переменную, но и дать ей какое-то "стартовое" значение?

@volvo · 20.04.2019, 12:15

Pascal

procedure TfMain.Button1Click(Sender: TObject);
  var
  s: string; //для сбора результатов деления
  b: ShortInt; //счетчик
  r: real; //результат деления
begin
  s := ''; // <--- Вот этого не хватает
  for b:= -10 to 10 do begin  //начало цикла
    //если ноль, не делим, а сразу выходим из цикла:
    if b = 0 then continue; // <--- если здесь оставить break, то цикл пройдет от -10 до -1, и потом прервется. А с Continue значение 0 просто пропустится и цикл пойдет дальше до 10
    // делим:
    r:= 100 / b;
    //теперь добавляем результат в строку s:
    s:= s + '100 / ' + IntToStr(b) + ' = ' + FloatToStr(r) + #13;
  end;  //конец цикла
 
  //теперь разом выводим все полученные результаты:
  ShowMessage(s);
end;

	20.04.2019, 12:15