- Azonnali VGA-s kérdések órája
- Fejhallgató erősítő és DAC topik
- Nvidia GPU-k jövője - amit tudni vélünk
- Milyen TV-t vegyek?
- OLED TV topic
- ThinkPad (NEM IdeaPad)
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Milyen alaplapot vegyek?
- Notebook hibák
- Rohamtempóban nő az érdeklődés az OLED monitorok iránt
- Elektromos rásegítésű kerékpárok
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Luck Dragon: Asszociációs játék. :)
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
Hirdetés
-
Spyra: nagynyomású, akkus, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Az IMF szerint cunamiként csap le a munkaerőpiacra az AI
it Az IMF vezetője, Kristalina Georgieva szerint cunamiként söpör majd végig a globális munkaerőpiacon az AI.
-
Ismét késik az Enotria: The Last Song
gp Augusztus helyett szeptember közepén kapjuk meg a régóta készülő alkotást.
Új hozzászólás Aktív témák
-
Gyuri16
senior tag
-
Gyuri16
senior tag
az edit1.text egy stringet ad vissza. a DeleteFile pedig egy stringet var parameterkent, igy mukodnie kellene:
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteFile(Edit1.Text);
end;itt nem art meg ellenorizni mivel ter vissza a fuggveny (sikerult e a torles) illetve hogy mi van az edit1.textben
Nem vagyok egoista, csak uborkagyalu!
-
Gyuri16
senior tag
delphiben charbol az ascii kodjat az ord fuggvennyel lehet megtudni, forditva pedig a chr fuggvennyel.
ha csak ossze akarod hasonlitani a ket edit tartalmat, akkor azt csinalhatod egyszeruen stringekkel (az edit.text egy stringet ad vissza). tehat ilyen if mukodik:
if edit1.text = edit2.text then valami
vagy elmentheted ezek tartalmat egy string tipusu valtozoba es csinalhatsz vele valami bonyolultabbat.ezt az integralas dolgot nem teljesen ertem, ebben a kontextusban nem hasznaltam meg ezt a kifejezest..
masik dolog a programodban az application.terminate. szerintem hasznalj helyette close-t. utobbi vegulis meghivja az application.terminate-t viszont elotte vegrehajtodik az onClose event, amit tobbnyire akarsz (mar ha irtal hozza fuggvenyt ami lekezeli). szerintem mindenesetre szebb megoldas, raadasul leirni is rovidebb.
legkozelebb a forraskodot amit ide beillesztesz tedd programkod blokkba (a hsz irasakor lent katt a programkod gombra), ugy jobban olvashato.
[ Szerkesztve ]
Nem vagyok egoista, csak uborkagyalu!
-
TAZ155
csendes tag
Sziasztok.
Annyit sikerült kideritenem hogy fel kell telepiteni egy csomagod delphi alá.
A fájl neve: comport411c.zip
Ebben a zipben található a soros port kezeléséhez a telepitő csomag.
Megpróbáltam feltelepiteni Turbo delphi 2006-alá, de hibaüzenet-et kaptam.
A telepitési sorrend.
1. Turbo Delphi elinditása.
2. Open Project. (itt kiválasztjuk a neküknk szükslges fájlt.)
3. Source\CPortLibD2005.lib ..... gondolom én...
4. megnyitás
5.jobboldalt a Project Managerbe CPortLib2005.bpl-re egér jobb klik.
6.InstallNa ezután én hibaüzenet-et kapok a Turbo Delphi 2006-tól.
Hiba üzenet.
Error message ablak.
This version is not licensed to load third-party component or IDE addins.Nagyjából a magyar forditás.
Ennek a verziónak nem engedélyezik, hogy betöltse a harmadik félhez tartozó összetevőt vagy IDE addins.Tehát nem lehet alátelepiteni??
csak kicsit értek angolul.Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
zka67
őstag
Először megnyitod a CPortLibD2006.dpk fájlt, lefordítod (Alt-P B).
Utána megnyitod a DsgnCPortD2006.dpk fájlt, azt is lefordítod.
Utána Install Packages, megkeresed a CPortLibD2006.bpl fájlt és telepíted.
Ennyi.Hozzátennék még annyit, hogy a soros port nem egészen úgy működik, ahogy te azt elképzelted. Neked nem kell biteket röcögtetned benne, bízd azt a hardverre, azért van.
Javaslom, hogy előbb olvasgass utána a soros port működésének.
-
TAZ155
csendes tag
Sziasztok.
Megoldottam a soros port komponens feltelepitését, másik delphi alatt.
ComPortLibary 4.11C ( Dejan Crnila)-Komponens.
És most már hogy ezt fel tudtam rakni,
a kérdésem az lenne leső lépésben hogy hogyan lehet meghivni a soros port -ot manuálisan.
Be épitett Comport componens nélkül.A fix portbeállitásokat majd egy fájlban fogom tárolni.
A második lépés, hogy a Pin-ek közötti cimzés, meghivás hogyan is müködik.
Ezt a táblázatot találtam eddig.
[link]
Ez a táblázat használható??Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
zka67
őstag
[ Szerkesztve ]
-
zka67
őstag
Így:
procedure TFom_ini.Button2Click(Sender: TObject);
var z1,z2 : Real;
begin
DecimalSeparator := '.';
z1 := StrToFloat(Edit1.text);
z2 := StrToFloat(Edit2.text);
Edit3.text := FloatToStr(z1*z2);
end;A DecimalSeparator értéke határozza meg, hogy tizedespontot vagy tizedesvesszőt fogadjon el.
A hibakezelést majd ne felejtsd el hozzáadni (try ... except),procedure TFom_ini.Button2Click(Sender: TObject);
var z1,z2 : Real;
begin
DecimalSeparator := '.';
try
z1 := StrToFloat(Edit1.text);
z2 := StrToFloat(Edit2.text);
except
on E: Exception do { Hibakezelés }
end;
Edit3.text := FloatToStr(z1*z2);
end;vagy használd a Val funkciót.
procedure TFom_ini.Button2Click(Sender: TObject);
var z1,z2 : Real;
e : integer;
begin
DecimalSeparator := '.';
Val(Edit1.Text, z1, e);
if e > 0 then begin
{ Hibakezelés, pl. z1 := 1; vagy Exit; }
end;
Val(Edit1.Text, z2, e);
if e > 0 then begin
{ Hibakezelés, pl. z2 := 1; vagy Exit; }
end;
Edit3.text := FloatToStr(z1*z2);
end;[ Szerkesztve ]
Új hozzászólás Aktív témák
- LED világítás a lakásban
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Azonnali VGA-s kérdések órája
- Mibe tegyem a megtakarításaimat?
- eMAG/edigital vélemények - tapasztalatok
- Nők, nőügyek (18+)
- Elektromos rásegítésű kerékpárok
- Xbox Series X|S
- Kipróbáltuk a Xiaomi 14 Ultra fotós szettjét
- Politika
- További aktív témák...
- Samsung Galaxy S24 Ultra 12/1TB (!!!) titánszürke VADONATÚJ BONTATLAN 36 hónap garanciával!
- Gainward RTX 4070 Ghost 12 GB felbontott videókártya, 36 hó garancia, Áfá-s számla
- AKCIÓ! KONYHA - HÁZTARTÁSI TERMÉKEK - BOTI ÁR FELÉÉRT!
- Kingston Fury Renegade M.2 4TB
- Eladó egy fekete és egy ezüst szinű Apple Watch S8 45mm GPS+CELLULAR Steel HERMES okosóra. 2év gari
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen