kurna mam głupi problem bo nie wiem co się dzieje!
zacznijmy więc od tego, że mam rekord:
TUserSetting = record
name,
username,
password,
host: string;
messages: smallint;
end;
zmienne globalne:
var
users: array of TUserSetting;
loop: smallint = 0;
odebrane: smallint;
mam timer, w którym jest pętla. ma ona ort! użytkowników i robić swoje:
var
...
i: smallint;
begin
if InternetConnect then
begin
try
for i := loop to high(users) do
begin
loop := i;
...
odebrane := poczta.CheckMessages;
if (odebrane > 0) and (odebrane > users[loop].messages) then // tu chyba jest coś nie tak
begin
main.Show;
...
users[loop].messages := odebrane;
odebrane := 0;
...
end;
loop := 0;
except
...
end;
end
else
MessageBeep(5000);
i problem w tym, że ma mi wyskakiwać okienko jak 'odebrane' jest większe niż zero (czyli coś odebrało, a dokładniej poczte) i jeśli użytkownik ma przypisane w polu odebranych (messages) mniej niż jest wiadomości odebranych. i za przeproszeniem g**no... za każdym razem mi wyskakuje okienko, tak jakby nic nie zostało przypisane do pola 'messages'.
Pomożcie! ;-(