Re: [Lazarus] Why doesn't this work?

2012-11-29 Thread Erwin van den Bosch
Op 29-11-2012 1:13, Maxim Ganetsky schreef: 29.11.2012 2:15, Erwin van den Bosch пишет: procedure TForm1.Button1Click(Sender: TObject); var iLastError: integer; begin iLastError:=10053; if iLastError in [10053, 10054] then Label1.Caption:='Yes, it works!'

Re: [Lazarus] Why doesn't this work?

2012-11-29 Thread Howard Page-Clark
On 28/11/12 10:15, Erwin van den Bosch wrote: procedure TForm1.Button1Click(Sender: TObject); var iLastError: integer; begin iLastError:=10053; if iLastError in [10053, 10054] then Label1.Caption:='Yes, it works!' else Label1.Caption:='No, it doesn''t w

Re: [Lazarus] Why doesn't this work?

2012-11-28 Thread Maxim Ganetsky
29.11.2012 2:15, Erwin van den Bosch пишет: procedure TForm1.Button1Click(Sender: TObject); var iLastError: integer; begin iLastError:=10053; if iLastError in [10053, 10054] then Label1.Caption:='Yes, it works!' else Label1.Caption:='No, it doesn''t wor

[Lazarus] Why doesn't this work?

2012-11-28 Thread Erwin van den Bosch
procedure TForm1.Button1Click(Sender: TObject); var iLastError: integer; begin iLastError:=10053; if iLastError in [10053, 10054] then Label1.Caption:='Yes, it works!' else Label1.Caption:='No, it doesn''t work!'; // Output : No, it doesn''t work! end;