Memory Funktion Taschenrechner

[himitsu]

Denk dir folgende zwei Zeilen hinzu und überleg dir nochmal, was dein Programm wirklich macht, mit so einer lokalen Variable.

Delphi-Quellcode:

procedure TForm1.MemoryFunction(Sender: TObject);
var mem: String;
begin
  mem := '';  // <<<<<<<<<< die LOKALE Variable ist zu Beginn leer
  if Sender is TSpeedButton then
    case TSpeedButton(Sender).Name of
      'TsbMR': mem := label1.Caption;
      'TsbMC': begin
               mem := '0';
               label1.Caption := '0';
               end;
      'TsbMMinus': label1.Caption := FloatToStr(StrToFloat(label1.Caption) - StrToFloat(mem));
      'TsbMPlus': label1.Caption := FloatToStr(StrToFloat(label1.Caption) + StrToFloat(mem));
    end;
  mem := '';  // <<<<<<<<<< die LOKALE Variable wird am Ende der Prozedur gelöscht
end;

[edit]
Ich glaube ich hätte zwischendurch mal F5 drücken sollen, wenn die DP schon keine RedBox anzeigt.

[jdiephaus]

Oha bin ich dämlich. Vielen Dank!

[himitsu]

Sei froh, dass es ein String war ... eine lokale Integer-Variable wird nicht automatisch initialisiert und hat somit zu Beginn potentiel einen "zufälligen" Wert drinnen.

Obwohl, der Compiler würde dich dann darauf hinweisen, dass diese Variable nicht initialisiert wurde,
aber wenn man das ignoriert, dann passieren in Programmen komische Dinge.