Initilized but still same error and this gets me thinking
Even if i change the line order still the same error
Delphi-Quellcode:
if MSNMyContact.Status=status then BEGIN
for v_Count := 0 to MSNMyContacts.Count - 1 do
MSNMyContact := (MSNMyContacts.Item(v_Count) as IMessengerContact);
result:= MSNMyContact.FriendlyName + ' ' +MSNMyContact.FriendlyName;
Delphi-Quellcode:
function contactslist(status:MISTATUS):string;
var
MSNMessenger: IMessenger;
MSNMyContacts: IMessengerContacts;
MSNMyContact: IMessengerContact;
v_Count: Integer;
begin
MSNMessenger := MessengerAPI_TLB.CoMessenger.Create;
MSNMyContacts := (MSNMessenger.MyContacts as IMessengerContacts);
for v_Count := 0 to MSNMyContacts.Count - 1 do
begin
if MSNMyContact.Status=status then BEGIN
MSNMyContact := (MSNMyContacts.Item(v_Count) as IMessengerContact);
result:= MSNMyContact.FriendlyName + ' ' +MSNMyContact.FriendlyName;
end;
end;
end;