Meldung: Var nicht initzialisiert obwohl wert zugewiesen?!

[Sharky]

Zitat von jottkaerr:

....Hier solltest Du mit "else if" arbeiten und ein. ...

Ein unbekannter Button sollte das ja eigentlich nie sein. Und anstelle von IF und Co würde ich einfach bei jedem der Buttons die Tag Eigenschaft setzen (Button1.Tag = 1; Button2.Tag = 2 usw). Und dann einfach:

Delphi-Quellcode:

procedure TDemo_Form.ZeiButtonClick(Sender: TObject);
const
  CharArray: array[1..11] of Char = ('1', '2', '3', '4', '5', '6', '7', '8', '9', '0', ',');
var
  zei: Char;
begin
  .
  .
  zei := CharArray[(Sender as TButton).tag];
  .
  .
end;