魏
魏启明
Unregistered / Unconfirmed
GUEST, unregistred user!
1。
property BusNo: Integer read FBusNo write FBusNo;
2。
property BusNo: Integer read FBusNo write SetBusNo;
3。
property BusNo: Integer read GetBusNo write SetBusNo;
还有
procedure TBus.SetBusNo(Value: Integer);
begin
FBusNo := Value;
end;
和
procedure TBus.SetBusNo(Value: Integer);
begin
if FBusNo <> Value then
begin
FBusNo := Value;
end;
end;
有和区别???
property BusNo: Integer read FBusNo write FBusNo;
2。
property BusNo: Integer read FBusNo write SetBusNo;
3。
property BusNo: Integer read GetBusNo write SetBusNo;
还有
procedure TBus.SetBusNo(Value: Integer);
begin
FBusNo := Value;
end;
和
procedure TBus.SetBusNo(Value: Integer);
begin
if FBusNo <> Value then
begin
FBusNo := Value;
end;
end;
有和区别???