Delphi-Quellcode:
function GetChatroomByName(RoomName: String): PChatRoom;
var i: Integer;
begin
Result := nil;
for i:=0 to ChatRooms.Count-1 do
If (Chatrooms[i] as TChatroom).Name = RoomName then
begin
Result := Pointer( (Chatrooms.Items[i] as TChatRoom));
break;
end;
end;
Warum willst du hier einen Zeiger zurueckliefern?
Ein Objekt ist sowieso schon ein Zeiger.
Du lieferst nicht einen Zeiger auf ein TChatroom sondern den TChatroom-Zeiger selbst.
Delphi-Quellcode:
function GetChatroomByName(RoomName: String): TChatroom;
var i: Integer;
begin
Result := nil;
for i:=0 to ChatRooms.Count-1 do
If (Chatrooms[i] as TChatroom).Name = RoomName then
begin
Result := Chatrooms.Items[i] as TChatroom;
break;
end;
end;