Ú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
- Revolut
- Forza sorozat (Horizon/Motorsport)
- Xbox tulajok OFF topicja
- Milyen belső merevlemezt vegyek?
- Huawei P20 - ez is kétkezes lett
- Kamionok, fuvarozás, logisztika topik
- Amit látnod kell 80’ – 90’ évek, egész estét betöltő mozi filmjei.
- Víz- gáz- és fűtésszerelés
- Gaming notebook topik
- Napelem
- További aktív témák...
- Lenovo ThinkPad X13 G2 13.3" -50% AMD Ryzen 5 Pro 5650U Hexa-core 16GB 512GB SSD FHD
- Gaming PC - R5 9600X,RTX 5070 12GB,32GB DDR5,1TB NVMe,850W
- Ultra PC - R7 7800X3D,RTX 5080 16GB,32GB DDR5,1TB NVMe,1200W
- Uhh Lenovo ThinkPad P15 G2 Tervező Vágó Laptop -75% 15,6" i5-11500H 32/1TB RTX A2000 4GB /1 Millió/
- Lenovo Legion 5 15ARH05H - Gamer Laptop
- Gamer PC-Számítógép! Csere-Beszámítás! I5 14400F / RTX 3060Ti / 32GB DDR5 / 512GB SSD!
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- HP ProDesk 600 G5 i3-9100 8GB 256GB 1 év garancia
- 5G LTE! Microsoft Surface Pro 8 i7-1185G7 16GB 256GB 1 év garancia
- BESZÁMÍTÁS! Gigabyte Z390 i5 9600K 16GB DDR4 512GB SSD RTX 2060 Super 8GB Rampage SHIVA ADATA 600W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest