1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| var
ResultMessages : TArrayOfmessage;
i, J : integer;
Ch : string;
begin
...
myHeader := MessengerHeader.Create;
myHeader.Username := AdressMail;
myHeader.Password := PassWord;
myHeader.Account := Account;
Service := accountService.AccountService.AccountService.Create;
Service.MessengerHeaderValue := myHeader;
ResultMessages := GetSentMessages(2009, 7);
J := Length(ResultMessages);
for i := 0 to J - 1 do
begin
Console.WriteLine('Message[{0}] = {1}', [i, ResultMessages[i]]);
Ch := i.ToString; //Me retourne uniquement que l'index
end; |
Partager