Meldung: Var nicht initzialisiert obwohl wert zugewiesen?!

[jottkaerr]

Hallo,

Zitat von f4k3:

Nr. 1 - [Pascal Warnung] Unit1.pas(90): W1036 Variable 'res' ist möglicherweise nicht initialisiert worden

Delphi-Quellcode:

  ...;

  case op of
    '+':  res := op1 + op2;
    '-':  res := op1 - op2;
    '*':  res := op1 * op2;
    '/':  res := op1 / op2;
  end;

wenn op keinen dieser vier möglichen Operatoren enthält, kann Deine Prozedur nicht vernünftig weiterarbeiten. Einen sinnvollen Default für den Operator gibt es m.E. nicht. Ich würde daher das Werfen einer Exception bevorzugen:

Delphi-Quellcode:

  ...;

  case op of
    '+':  res := op1 + op2;
    '-':  res := op1 - op2;
    '*':  res := op1 * op2;
    '/':  res := op1 / op2;
    else raise Eception.CreateFmt('Ungültiger Operator ''%s''!', [op]);
  end;

Das verhindert auch die Compiler-Warnung.

Zitat von f4k3:

Nr. 2 - [Pascal Warnung] Unit1.pas(143): W1036 Variable 'zei' ist möglicherweise nicht initialisiert worden

Delphi-Quellcode:

  ...;

  if Sender = Button10  then zei := '0';
  if Sender = Button1   then zei := '1';
  if Sender = Button2   then zei := '2';
  if Sender = Button3   then zei := '3';
  if Sender = Button4   then zei := '4';
  if Sender = Button5   then zei := '5';
  if Sender = Button6   then zei := '6';
  if Sender = Button7   then zei := '7';
  if Sender = Button8   then zei := '8';
  if Sender = Button9   then zei := '9';
  if Sender = Button11  then zei := '.';

Hier solltest Du mit "else if" arbeiten und ein

Delphi-Quellcode:

  else
    raise Exception.Create('Unbekannter Button');

anhängen. Diese Variante verhindert ebenfalls eine Compiler-Warnung.

jkr