Nr. 1 - [Pascal Warnung] Unit1.pas(90): W1036 Variable 'res' ist möglicherweise nicht initialisiert worden
Delphi-Quellcode:
procedure TForm1.IstButtonClick(Sender: TObject); // Ergebnis Berechnen
var res, op1, op2 : Double;
code : Integer;
s : string;
begin
if mode = 2 then
begin
Val(strBuff1, op1, code); // strBuff1 in Zahl op1 rückverwandeln
Val(strBuff2, op2, code); // strBuff2 in Zahl op2 rückverwandeln
case op of
'+': res := op1 + op2;
'-': res := op1 - op2;
'*': res := op1 * op2;
'/': res := op1 / op2;
end;
s:= Format('%g',[res]); // Ergebnis als Gleitkommazahl formatieren
Label1.Caption := s;
mode := 1;
strBuff1 := '';
end;
end;
Nr. 2 - [Pascal Warnung] Unit1.pas(143): W1036 Variable 'zei' ist möglicherweise nicht initialisiert worden
Delphi-Quellcode:
procedure TForm1.ZeiButtonClick(Sender: TObject); // zeichenweise Zahleneingabe
var zei: Char;
begin
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 := '.';
if mode = 1 then
begin
strBuff1 := strBuff1 + zei;
Label1.Caption := strBuff1;
end
else
begin
strBuff2 := strBuff2 + zei;
Label1.Caption := strBuff1 + ' ' + op + ' ' + strBuff2;
end;
end;
end.
Die Variablen wurden doch initzialisiert?! oder seh ich des falsch? Wertzuweisung = Initialisierung?!
Wenn jemand schlauer is, wovon ich sicherlich ausgehe
dann klärt mich mal bidde auf, steig da net dahinter woran des etz hapern soll ^^