Delphi - RightWrong: array[Boolean] of String = ('falsch', 'richtig');

 procedure TForm1.Button1Click(Sender: TObject);
const
  RightWrong: array[Boolean] of String = ('falsch', 'richtig');
begin
  Caption := RightWrong[Edit1.Text = 'Edit1'];
end;

 
Michael Puff
2012-01-26T23:14:30 +0100, mail[at]michael[Bindestrich]puff.de