Kezdőoldal » Számítástechnika » Programozás » Delphiben hogyan lehet két...

Delphiben hogyan lehet két számot összeadni?

Figyelt kérdés

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; )



2015. aug. 31. 20:59
1 2 3 4
 11/31 A kérdező kommentje:

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!

2015. szept. 1. 12:36
 12/31 A kérdező kommentje:

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]

2015. szept. 1. 12:51
 13/31 SimkoL ***** válasza:
Működnie kell next-el is mivel nem nem 'önálló beépített' függvény vagy eljárás neve és nem is foglalt szó, hanem itt-ott egy parancs, utasítás. Basicben használatos a for ciklus végére, ott valóban nem illik ilyen változónevet használni.
2015. szept. 1. 12:59
Hasznos számodra ez a válasz?
 14/31 SimkoL ***** válasza:
Picture not found !
2015. szept. 1. 13:01
Hasznos számodra ez a válasz?
 15/31 A kérdező kommentje:

Bocsi, nem jo linket kuldtem.

Ez a jó link: [link]

2015. szept. 1. 13:24
 16/31 SimkoL ***** válasza:
Minimum az az etalon :) : [link] Ez is Delphi, ha kéred felrakom a forrását a weblapomra.
2015. szept. 1. 19:18
Hasznos számodra ez a válasz?
 17/31 A kérdező kommentje:

Ü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]

2015. szept. 1. 20:26
 18/31 SimkoL ***** válasza:

[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.

2015. szept. 1. 20:52
Hasznos számodra ez a válasz?
 19/31 SimkoL ***** válasza:

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

2015. szept. 1. 21:02
Hasznos számodra ez a válasz?
 20/31 A kérdező kommentje:

Hibás link :(

[link]

2015. szept. 1. 21:31
1 2 3 4

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

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!