Kodlamada faklı bir yöntem

[hido]

İyi akşamalar.

Yeni ürün geldiğinde kullanıcıya uyarı vermek istiyorum, kısmen yaptım fakat bunun daha profosyenel olarak nasıl kodlaya bilirim

Kod: Tümünü seç

procedure TMainForm.TimerYeniGelenTimer(Sender: TObject);
var
  Saat, Saat1, Saat2: String;
  Saniye0, Saniye1, Saniye2, Saniye3, Saniye4: String;
  Saniye5, Saniye6, Saniye7, Saniye8, Saniye9: String;
begin
  Saniye0 := '0';
  Saniye1 := '1';
  Saniye2 := '2';
  Saniye3 := '3';
  Saniye4 := '4';
  Saniye5 := '5';
  Saniye6 := '6';
  Saniye7 := '7';
  Saniye8 := '8';
  Saniye9 := '9';
  Saat := Copy(FormatDateTime('ss', Time), 2, 2);
  if (Saat = Saniye1) or (Saat = Saniye3) or (Saat = Saniye5) or (Saat = Saniye7) or (Saat = Saniye9) then
  begin
    ImageListMesaj.GetIcon(1, ImageMesaj.Picture.Icon);
  end;
  if  (Saat = Saniye0) or (Saat = Saniye2) or (Saat = Saniye4) or (Saat = Saniye6) or  (Saat = Saniye8) then
  begin
    ImageListMesaj.GetIcon(0, ImageMesaj.Picture.Icon);
  end;

[ertank]

Merhaba,

Soru ile kod kısmını tam pekiştiremedim. Mümkünse soruyu biraz daha detaylı şekilde sorabilir misiniz? Mesela yeni ürün geldiği database içinde kayıt eklenmesi ile mi anlaşılacak? Saniye kontrolünün sebebi nedir? Çok hassas zamanlama ile ekrana bilgi verilmesi mi gerekli?

Kod kısmını incelediğim zaman tek saniyeler ve çift saniyeler kontrol ediliyor gibi. Bu kontrolü daha hızlı aşağıdaki gibi yapmak mümkün olabilir.

Kod: Tümünü seç

procedure TMainForm.TimerYeniGelenTimer(Sender: TObject);
var
  Index: Integer;
begin
  if StrToInt(FormatDateTime('ss', Time)) mod 1 then
    Index := 1
  else
    Index := 0;
    
  ImageListMesaj.GetIcon(Index, ImageMesaj.Picture.Icon);
end;

[hido]

Teşekkür ederim, çok hassas bir işlem değildi. Allah razı olsun siz ve sizin gibi forumda cevap yazan değerli hocalarımıza...

[edo]

Kullandığın veritabanının bir alert mekanizması olması gerekir. Bu şekilde sürekli sorgulama yapmak yerine verinin yazıldığı veritabanından yeni bir ürün geldikçe uygulamanı tetikleyebilirsin.