- sziku69: Fűzzük össze a szavakat :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Mr. Y: Motoros sztorik #06
- Elektromos rásegítésű kerékpárok
- Magga: PLEX: multimédia az egész lakásban
- bambano: Bambanő háza tája
- vrob: Az IBM PC és a játékok a 80-as években
- Tomasz72: Ventilátor upgrade
Új hozzászólás Aktív témák
-
tehát ebből hogyan tudom kinyerni a r,g,b értékeit?
mod 3B majd
div 2B
mod 2B div B
mod B?
(div egészrészes osztás mod maradék )
találtm egy ilyet
procedure rgbValues(color:TColor;var red,green,blue:byte);
begin
red :=GetRValue(color);
green:=GetGValue(color);
blue :=GetBValue(color);
end;
azaz ha nekem egy 0.0 és 1.0 közötti szám kell színenként (1.0 a 255 0.0 a 0) akkor a kód így néz ki:
procedure rgbValues(color:TColor;var red,green,blue:double);
begin
red :=(GetRValue(color)/255);
green:=(GetGValue(color)/255);
blue :=(GetBValue(color)/255);
end;
[Szerkesztve] -
az a baj, hogy ha nem futásidőben hozom létre őket akkor korlátozom a mezők számát, pedig pont azt szeretném hogy szinte korlátlan legyen, de lehet hogy beállítok elvi maximumokat oszt kész
mondjuk egy bútor színbeálításánál mondjuk mex 5 féle színt tud kezelni oszt heló -
-
goldboy
csendes tag
Csak remélni merem hogy nem bántottam meg senkit!
De talán annyi szolgálhat mentségemül,hogy az ember aki tök hülye valamihez,de csontra
és meg kellene vmit csinálnia amin sok múlik,lehet hogy nem a leg szalonképesebb és udvariasabb modorban próbál segítséget kérni,hanem minden szálba próbál kapaszkodni ahonnan segítséget várhat,néha modortalanul!
ViragL le a kalappal előtted,suli munka meg még segítség itt is...
Megértem miért váltottam ki ilyen indulatokat belőled. De remélem nincs harag.
Na de nam is foglalom tovább a helyet,inkább átadom értelmes célokra...
Még egyszer köszi mindenkinek mindent.
Neked is ViragL,mert ebből tanultam némi illemet... -
goldboy
csendes tag
Az imént lecsesztek a hangvételem miatt! Biztosan igazuk van(ViragL)!
Ezúton szeretnék elnézést kérni mindenkitől,kiemelten ViragL-től,illetve mindenkitől akit emberi mivolában megbántottam volna modortalanságommal!
Szóval a legnagyobb alázattal kérek elnézést mindenkitől!
Nagyon szépen megköszönöm mindenki segítségét,és igérem soha többet nem zaklatok senkit a kéréseimmel,és főleg modortalanságommal!
A legnagyobb tisztelettel:goldboy -
bukica
csendes tag
Nagyjából értem, de mi is az a szignatúra? A paraméter megadás? A Delphi 2005 helpjében a
[Delphi] function StrPCopy(Dest: PAnsiChar, const Source: string): PAnsiChar;
található, míg a programban a következőként szerepel:
function ExecAndWait(const FileName: string; const CmdShow: Integer): Longword;
var { by Pat Ritchey }
zAppName: array[0..512] of Char;
zCurDir: array[0..255] of Char;
WorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
AppIsRunning: DWORD;
begin
StrPCopy(zAppName, FileName);
GetDir(0, WorkDir);
StrPCopy(zCurDir, WorkDir);
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
.
.
end;
Itt az StrPcopy() és a FillChar() -ra is hibát jelez. Mi is akkor a teendő? Próbáljak egy másik függvényt írni helyette?
Bocs, hogy sokat kérdezek, de szeretném megérteni, ill. megcsinálni a progit, hogy működjön. -
bukica
csendes tag
Ezek szerint azt mondod, hogy pl. egy Delphi 3 alatt működő progit nem tudok lefofdítani Delphi 2005 és Delphi 8 alatt? Hát ez nekem egy kicsit magas.
Én azt hittem, hogy lefele kompatibilisek ezek a progik. Egyébként a Delphi 2005 helpjében megtaláltam az StrPCopy-t, azt írja, hogy a SysUtils-ban van, és mégis azt írja, hogy nemdeklarált vátozó 
. Nem értem. -
-
-
yksz
aktív tag
az egész így néz ki:
var
Form1: TForm1;
n, i, l, s, r, h: integer;
p: string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
p:=Edit1.Text;
h:=length(p);
l:=0;
Click;
end;
procedure click;
begin
while h>1 do
begin
for i:=1 to h do
begin
r:=strtoint(p);
l:=l+r;
end ;
p:=inttostr(l);
h:=length(p);
end ;
edit2.Text:=p;
end;
csak nem akartam beírni, mert hosszú. Ebbol már láthatod h elméletileg nem kéne végtelenitodenie, pedig mégis sikerul neki. Mit csináltam rosszul? Edit1-be írok 1 számot és ha a számjegyei osszege nagyobb mint 9 akkor csinálja, amíg kisebb mint 10 muxik normálisan
Én azt hittem, hogy lefele kompatibilisek ezek a progik. Egyébként a Delphi 2005 helpjében megtaláltam az StrPCopy-t, azt írja, hogy a SysUtils-ban van, és mégis azt írja, hogy nemdeklarált vátozó 
. Nem értem.
Új hozzászólás Aktív témák
Hirdetés
- P15 Gen2i 15.6" FHD IPS i7-11850H T1200 32GB 512GB NVMe magyar vbill ujjolv IR kam gar
- GRADO GW100x bluetooth fejhallgató eladó.
- Új Thinkpad P1 Gen 6, FHD+ IPS, i7-13700H, NVIDIA Quadro A2000 Ada -8GB-, 64GB DDR5 1TB NVMe, 4G LTE
- Belépő GAMER PC! i3-13100 / RX 6600 XT / 16GB DDR4 / 512GB NVMe / 600w!
- Asus ROG 17" Gaming Laptop! RTX 4080 12GB / Ryzen 9 7945HX / 32GB DDR5 / G-sync 240Hz! BeszámítOK
- AKCIÓ! Acer Predator Triton Neo 16 15 notebook - Ultra 9 185H 32GB RAM 2TB SSD RTX 4070 WIN11
- Bomba ár! Lenovo ThinkPad T15 G1 - i5-10GEN I 16GB I 256GB SSD I 15,6" FHD Touch I Cam I W11 I Gari!
- IKEA Format lámpák eladóak (Egyben kedvezménnyel vihető!)
- BESZÁMÍTÁS! Asus B760M i7 12700KF 32GB DDR4 512GB SSD RX 6800 16GB Rampage SHIVA FSP 700W
- Bomba ár! Fujitsu LifeBook U758 - i5-8GEN I 8GB I 256GB SSD I HDMI I 15,6" FHD I W11 I Garancia!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged