Delphiben hogyan lehet két számot összeadni?
A Google-n semmit se találtam, mert nem tudom, hogy hogyan keressem.
A 2016-ból kiszeretném vonni a jelenlegi évet (yyyy), amit a naptárból tud meg a program.
(Jelenleg így tudom meg az évet:
var
Form1: TForm1;
ev : TDateTime;
procedure TForm1.Button1Click(Sender: TObject);
begin
ev := Now;
ShowMessage(' Év = '+ FormatDateTime('yyyy', ev));
end; )
Sikerült megoldani!
Mindenki válaszát köszönöm!
SimkoL: A 'Next'-et átírtam 'Next2'-re és így müködik!
A forráskodot, és a kész programot felfogom tölteni Mega-ra, hogy mindenki letölthesse!
A program jól müködik, hogyha átállítom a 'dátum felosztását'.
A kérdésem: Egy frissentelepített Win7-en alapból hogyan van állítva a 'dátum felosztása'?
Egy screenshot-ra lenne szükségem az óráról.
(Erről: [link]
Ügyes program!
Kb. mennyi időbe telt megírni?
Megkérlekszépen, hogy tedd fel a forráskodját a weboldaladra, mert nekem nagyon tetszik!
Előre is köszönöm!
Regisztrációs kulcsal megtudtam oldani az enyémet is.
Itt van az én változatom: [link]
...
DateSeparator := '.';
ShortDateFormat := 'yyyy.mm.dd';
...
hogy a saját formátumodat tudd használni.
Megírni nem sok volt, a legtöbb időt a névnapok 'beszerzése' vitte el. Kell egy pici Win Api ismeret hozzá, hogy megértsd, miért lehet a formot mozgatni:
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if M.Result = htClient then M.Result := htCaption;
end;
Ez 'elhiteti' a Windows-al hogy a a 'fejlécnél' fogtad meg, a többi 'nem érthető' a TrayIcon miatt van.
A DoubleBuffered := True kiküszöböli a villódzást, de ne magyarázzam már el sorról sorra :) Ha valamit nem értesz kérdezz bátran.
Nagyon örülök annak ha valaki Delphi-re adja a fejét. Kérdezz nyugodtan, szerintem rajtam kivűl coopper is szívese segít.
Off: A szívem csücske a Delphi
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!