Hirdetés
- ASUS Maximus VIII Ranger Z170 6-7-8-9-10 gen támogatás (Coffeetime mod)
- DFI és DFI Lanparty gyűjteményem
- Möbelix Milan íróasztal - a tapasztalatok összeszerelés után
- Keychron V6 Max (HU) Mechanikus vezetéknélküli billentyűzet (Bluetooth, RF, USB)
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER!
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- lionhearted: Telekom TV Mikrotikkel
- gban: Ingyen kellene, de tegnapra
- Gátoljuk meg játékaink halálát!
- eBay-es kütyük kis pénzért
- Brogyi: CTEK akkumulátor töltő és másolatai
- Victoryus: Hp T630 thin client, htpc
-
LOGOUT
Új hozzászólás Aktív témák
-
föccer
nagyúr
hyz.
Adott Delphi 3.1-ben:
Type
Rpont = record
index: integer;
ido: double;
ut: double;
ero: double;
end;
Ameresiadatok = array [0..adatokszama] of Rpont;
valamint
var
nyersadatok: Ameresiadatok;
Feladat:
A tárolt adathalmazból x-> ut; y-> ero grafikont rajzolni.
Amin elindultam:
for i:= 0 to (nyersadatokszama-1) do
begin
x1:= nyersadatok.ut;
x2:= nyersadatok[i+1].ut;
y1:= nyersadatok.ero;
y2:= nyersadatok[i+1].ero;
with form2.Image1.Canvas do
begin
moveto(x1,x2);
lineto(y1,y2);
end;
end;
Ez eleddig mind szép és jó, csak:
Inkompatibilis tipusok: integer-double.
az ut és ero adatok double tipusban vannak tárolva <és előzőekben számolva>.
Kérdésem: Hogyan fogom tudni kirajzoltatni azt az átkos grafokont.
Köszönom a segítséget.
üdv.: föccer
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Okos Otthon / Smart Home
- Luck Dragon: Asszociációs játék. :)
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Renault, Dacia topik
- Elektromos autók - motorok
- Apple iPhone Air - almacsutka
- A fociról könnyedén, egy baráti társaságban
- Emelkedik a korábbi generációs Intel CPU-k ára
- Call of Duty: Black Ops 7
- Fejhallgató erősítő és DAC topik
- További aktív témák...
- HIBÁTLAN iPhone 13 Pro 128GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3388
- Dell G15 DDR5 Gamer laptop // i5 12. gen. // RTX 3050 Ti // Számla+Garancia //
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- PlayStation Network (PSN) ajándékkártyák, feltöltőkártyák áron alul!
- GYÖNYÖRŰ iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3318
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő