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!'
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
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
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;