- Otthoni hálózat és internet megosztás
- Musk szerint már jövőre itt vannak a Tesla Optimus humanoid robotok
- Facebook és Messenger
- SkyShowtime
- Milyen routert?
- Mozilla Firefox
- Aliexpress tapasztalatok
- OpenWRT topic
- A személyre szabott reklám lehet a streaming következő slágere
- Linux programok topic - (Milyen program, ami..? Linux verzio)
Új hozzászólás Aktív témák
-
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álisanFly away my precious knowledge fly far away
-
yksz
aktív tag
Úristen, megvilágosodtam Elfelejtettem nullázni az L-t. Sry, nem értem h lehetek olyan hulye Mint már említették feljebb: ''Hiába nézi át az ember ha ha nem azt látja ami ott van, hanem azt aminek ott kéne lennie.'' Már csinálja a dolgát rendesen. Thx
Fly away my precious knowledge fly far away
-
föccer
nagyúr
wow.
thx.
Aztatat hittem, hogy van erre is valami function, ami megcsinálja heklyeettem. Amilyen gyakrak írok progikat, annyira nem érdemes megtanulnom a google ez irányú hasaznűlatát
Thx.
üdv.: föccer
aszta, de tudok gépelni... :-/
[Szerkesztve]Építésztechnikus. Építőmérnök.
-
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.
-
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. -
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 -
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... -
Rolly
veterán
-
Rolly
veterán
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ó -
Rolly
veterán
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]