Hirdetés
- Jolla és SailfishOS tapasztalatcsere
- Xiaomi 14T Pro - teljes a család?
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Samsung Galaxy A17 5G – megint 16
- Samsung Galaxy A56 - megbízható középszerűség
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Telekom mobilszolgáltatások
- Bemutatkozott a Poco X7 és X7 Pro
- Samsung Galaxy Watch7 - kötelező kör
- Vivo X300 Pro – messzebbre lát, mint ameddig bírja
Ú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
- TCL LCD és LED TV-k
- Milyen processzort vegyek?
- Jolla és SailfishOS tapasztalatcsere
- Napelem
- Hogwarts Legacy teszt
- Android felhasználók OFF topikja
- Víz- gáz- és fűtésszerelés
- Xiaomi 14T Pro - teljes a család?
- Call of Duty: Warzone
- Rogyásig pakolható a Cooler Master Cosmos szériás csúcsháza
- További aktív témák...
- Samsung S20 Ultra 5G + Galaxy Watch 5 Pro egyben, tokokkal, dobozokkal
- Eladó macbook pro 16 M1 Max 10 CPU/32 GPU 64GB 1TB
- Nálam már kapható a jelenlegi leggyorsabb brutál notebook: Samsung Galaxy Book 5 Edge 5G!
- Sony WF-G700 White- INZONE Buds vezeték nélküli zajszűrős(ANC) fülhallgató - Fekete, 2 év gari
- High-End AMD Ryzen 9 9950X3D, ASRock X870E Taichi + Dell AlienWare AW2725DF + ajándékok
- LG 27GR93U-B - 27" IPS - UHD 4K - 144Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDR 400
- Apple iPhone 16 128GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! ASROCK B650M R7 7700 32GB DDR5 1TB SSD RX 6900XT 16GB Zalman Z1 PLUS Seasonic 750W
- Telefon felváráslás!! Xiaomi Redmi Note 11, Xiaomi Redmi Note 11 Pro, Xiaomi 11 Lite
- Keresünk iPhone 16/16e/16 Plus/16 Pro/16 Pro Max
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: ATW Internet Kft.
Város: Budapest