1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| procedure TForm1.Button4Click(Sender: TObject);
var
a,b,c : integer;
begin
a:=StrToInt(EcartF1.text);
if (a >=6) then
RichEdit1.Lines[0]:='Rien de particulier pour ' + Stringgrid1.Cells[0,1]+ ' ' + Stringgrid1.Cells[0,2]
else
if (a >=1) and (a <=5) then
RichEdit1.Lines[0]:='L''anniversaire approche pour ' + Stringgrid1.Cells[0,1]+ ' ' + Stringgrid1.Cells[0,2] + ' - Le ' + Stringgrid1.Cells[0,9]
else
if (a =0)then
RichEdit1.Lines[0]:='C''est le Jour J - Pensez à souhaite un Bon Anniversaire à ' + Stringgrid1.Cells[0,1]+ ' ' + Stringgrid1.Cells[0,2] + ' - Aujourd''hui ' + Stringgrid1.Cells[0,9];
b:=StrToInt(EcartF2.text);
if (b >=6) then
RichEdit1.Lines[1]:='Rien de particulier pour ' + Stringgrid1.Cells[1,1]+ ' ' + Stringgrid1.Cells[1,2]
else
if (b >=1) and (b <=5) then
RichEdit1.Lines[1]:='L''anniversaire approche pour ' + Stringgrid1.Cells[1,1]+ ' ' + Stringgrid1.Cells[1,2] + ' - Le ' + Stringgrid1.Cells[1,9]
else
if (b =0)then
RichEdit1.Lines[1]:='C''est le Jour J - Pensez à souhaite un Bon Anniversaire à ' + Stringgrid1.Cells[1,1]+ ' ' + Stringgrid1.Cells[1,2] + ' - Aujourd''hui ' + Stringgrid1.Cells[1,9];
c:=StrToInt(EcartF3.text);
if (c >=6) then
RichEdit1.Lines[2]:='Rien de particulier pour ' + Stringgrid1.Cells[2,1]+ ' ' + Stringgrid1.Cells[2,2]
else
if (c >=1) and (c <=5) then
RichEdit1.Lines[2]:='L''anniversaire approche pour ' + Stringgrid1.Cells[2,1]+ ' ' + Stringgrid1.Cells[2,2] + ' - Le ' + Stringgrid1.Cells[2,9]
else
if (c =0)then
RichEdit1.Lines[2]:='C''est le Jour J - Pensez à souhaite un Bon Anniversaire à ' + Stringgrid1.Cells[2,1]+ ' ' + Stringgrid1.Cells[2,2] + ' - Aujourd''hui ' + Stringgrid1.Cells[2,9];
end; |
Partager