- Célkeresztben az OnlyFans, amiért pornót nézhetnek a gyerekek
- Az iPadOS-re írt appokra is díjat vet ki az Apple
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Ubiquiti hálózati eszközök
- Linux - haladóknak
- Ubuntu Linux
- Hálózati / IP kamera
- Letartóztatták a bitcoin-Jézust
- Linux kezdőknek
- Milyen program, ami...?
Új hozzászólás Aktív témák
-
Tangerine
senior tag
Ezt találtam a neten:
Function cos(X: Extended): Extended;
The value x must be in radians. To convert from degrees to radians use DegToRad. For example, cos(60 degrees) in Delphi would be cos(DegToRad(60)) = 0.5.
A lényeg: cos(60 degrees) in Delphi would be cos(DegToRad(60))
A te példád helyesen:
B: Real;
A: Real;
C: Real;
bla bla bla;
A:=StrToFloat(Edit1.Text);
B:=Cos(degtorad(A));
C:=B;
Azaz a C-t ki ishagyhatod.Vacillálni, vagy nem vacillálni, ez itt a kérdés, vagy mégse?
-
Tangerine
senior tag
Miért van az, hogy a FindFirst (Findnext) megtalál részben passzoló könyvtárakat is, mikor nem kellene?
Kicsit érthetőbben:
var
sr: tsearchrec;
begin
findfirst('c:\temp\*.shn',faanyfile,sr);
end.
Az eredmény az, hogy találatnak veszi a 'c:\temp\konyvtar.shnf' könyvtárat de nem veszi találatnak a 'c:\temp\file.shnf' fájlt.
Mitől lehet? Bug? Egyszerűen nem tudom rávenni, hogy felejtse el a 'c:\temp\konyvtar.shnf' könyvtárat ha nekem csak a '*.shn' kell. És csak könyvtár esetében csinálja.
[Szerkesztve]Vacillálni, vagy nem vacillálni, ez itt a kérdés, vagy mégse?
-
Tangerine
senior tag
Úgy látszik rosszul fogalmaztam, félreértettél.
Nem az a gondom, hogy nem tudom kiválogatni könyvtárakat/fájlokat, hanem az hogy miért ''illeszkedik'' a 'xxx.shnf' a '*.shn'-re? De csak akkor, ha az 'xxx.shnf' könyvtár? Teljesen illogikus.Vacillálni, vagy nem vacillálni, ez itt a kérdés, vagy mégse?
-
Tangerine
senior tag
-
Tangerine
senior tag
válasz _thomas_ #321 üzenetére
Szívesen.
Egyébként nem tudom, hogy ilyen alap dolgok miért nincsenek gyárilag benne a delphiben. Nem lenne nagy ügy beépíteni egy deltree függvényt. Ugyanígy nincsenek benne a crt-s alap függvények ami a pascalban van, és konzolproginál gyakran kellhet, pl. clrscr, keypressed, readkey, gotoxy, stb.
Na mindegy, szerencsére ezekre már mások is rájöttek, és megoldották, csak meg kell találni a neten, és beépíteni a progiba.Vacillálni, vagy nem vacillálni, ez itt a kérdés, vagy mégse?
-
Tangerine
senior tag
Hi!
Két rövid kérdésem lenne:
Van pl, egy ''ős'' form azon pl. egy Button1 gomb. Ennek a click eseményére feljön egy MessageDlg, és az Yes vagy No szerint elágazik. Ebből származtattam egy gyerekformot, de ebben szeretném az Yes ágat átírni. Jelenleg úgy műxik, hogy a gyerekben az ''inherited ;''-et kitörlöm, és átírom az egészet.
Kérdés1: Hogyan lehet csak a Yes ágat felülírni?
Kérdés2: Ciki kitörölni az inherited-et, vagy teljesen bevett dolog?
Itt a kódja:
Az ősben:
procedure TfrmOs.miKilepesClick(Sender: TObject);
begin
if RichEdit1.Modified then
begin
if MessageDlg('Biztosan kilép a programból mentés nélkül?',mtWarning,
[mbYes, mbNo], 0) = mrYes then Close
end
else
if MessageDlg('Biztosan kilép a programból?',mtConfirmation,
[mbYes, mbNo], 0) = mrYes then Close
end;
A gyerekben:
procedure TfrmHibaJavitas.miKilepesClick(Sender: TObject);
begin
inherited;
end;
így műxik:
procedure TfrmHibaJavitas.miKilepesClick(Sender: TObject);
begin
// inherited;
if RichEdit1.Modified then
begin
if MessageDlg('Biztosan kilép a programból mentés nélkül?',mtWarning,
[mbYes, mbNo], 0) = mrYes then Application.Terminate
end
else
if MessageDlg('Biztosan kilép a programból?',mtConfirmation,
[mbYes, mbNo], 0) = mrYes then Application.Terminate;
end;
Szóval csak annyit szeretnék a gyerekben változtatni, hogy a két MessageDlg Yes-ére ne ''Close'' legyen, hanem Application.Terminate
Köszi!Vacillálni, vagy nem vacillálni, ez itt a kérdés, vagy mégse?
Új hozzászólás Aktív témák
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Célkeresztben az OnlyFans, amiért pornót nézhetnek a gyerekek
- Milyen okostelefont vegyek?
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Az iPadOS-re írt appokra is díjat vet ki az Apple
- Kecskemét és környéke adok-veszek-beszélgetek
- Autós topik
- Furcsa EPYC CPU-kkal készül az AMD
- E-roller topik
- Napelem
- További aktív témák...