- Autós kamerák
- Milyen TV-t vegyek?
- Két új Ryzen közül választhatnak a kézikonzolok
- Azonnali alaplapos kérdések órája
- Fujifilm X
- Hamarosan leszűkíti a támogatott hardvereit az NVIDIA
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Hobby elektronika
- Mikrokontrollerek Arduino környezetben (programozás, építés, tippek)
- iPad topik
Új hozzászólás Aktív témák
-
-
<Adamsky>
nagyúr
Sziasztok!
A következőben kérném a nagyérdemű segítségét:
A helyzet az, hogy eddig csak apróbb - egy gépes - programokat írogattam Delphiben, és most egy olyan feladatom lenne, melyben a hálózati kommunikációt is meg kellene oldanom.
Az egész tulajdonképpen egy vizsgáztató rendszer. Van egy ''szerver'' progi, melyhez kliens (max. 50) gépek csatlakoznak. A vizsga kezdetén a kliens gépek bejelentkeznek a szerverre, majd az átküldi a kérdéseket (szöveg & kép). A vizsga végén a kliens gépek visszaküldik a szervernek a kitöltött tesztlapokat, és kész. A kérdésem az, hogy milyen adatbázist (BDE, Interbase (Firefox) - ezeket ismerem) és módszert használjak a feladat megoldásához. Jó lenne, ha tudnátok ajánlani vm. jó könyvet, linket ami segít a megoldásban, vagy ami még jobb lenne az egy példaprogram.
Válaszokat előre is köszönöm! -
<Adamsky>
nagyúr
''...hihetetlen bonyolultan az OnDrawColumns esemény felülírásával...''
Tök igaz!
Rövid keresgélés után akadtam egy kódra, melyet kisebb mértékben módosítva nekem müxik a dolog. Bővebben: link
(szívesen bemásoltam volna ide, de nem tudom, hogy hogyan lehetne megoldani, hogy szépen, formázottan jelenjen meg) -
<Adamsky>
nagyúr
válasz
<Adamsky>
#367
üzenetére
Na újabb probléma:
Futás közben hozok létre egy Interbase adabázist és benne három táblát.
Ha az adatbázis kapcsolatot megszüntetem (IBDataBase.Connected := false) majd később újra csatlakozni szeretnék, akkor ezt a hibaüzenetet kapom:
''Your user name and password are not defined'' -- pedig igen! Nem értem.
A forráskód Bővebben: link
Alulról a 10 & 11 sor aktívvá tételével jön elő a hiba. -
<Adamsky>
nagyúr
Igazából nem jutottam sokra. A lényeg valami ilyesmi lenne:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
const szoveg = '11,10,09,08';
begin
i := 0;
repeat
Edit1.text := copy(szoveg, 1+i*3, 2);
inc(i);
until i>3;
end;
Namármost a formon van 4db Editbox, és ez az előbbi kódrész az 1-esbe szép sorba beleírja a 11, 10, 09, 08 számokat. Ez -- mondanom sem kell -- így nem jó. Az ''i'' értékétől függően kellene az egyes számokat az ''i+1''-ik Editbox-ba beírni.
Lehet az Editbox-okat tömbe szervezni? pl:
EDoboz: array [1..4] of TEdit;
[Szerkesztve] -
<Adamsky>
nagyúr
Sziasztok!
A problémám a következő:
Van egy hosszú string-em, ami valahogy így néz ki: nn,nn,nn,nn ...
Az ''nn'' egy kétjegyű szám. Pl.: 17, 07, 03
Van mondjuk a formon 5db Editbox-om (Edit1, Edit2...)
Azt szeretném megoldani, hogy egy cikluson belül a megfelelő Editbox-ba bekerüljön az x-edik szám.
Pl: szamok (ez a string) = 23,12,05
Miután lefutott a program az egyes Editbox-okban a következők legyenek.
Edit1 << 23, Edit2 << 12, Edit3 << 05
A válaszokat előre is köszönöm.
![[kép]](http://prohardver.hu/pics/s/cl.gif "[kép]")
Új hozzászólás Aktív témák
Hirdetés
- XPS 15 9530 15.6" FHD+ IPS i7-13620H Arc A370M 16GB 1TB NVMe ujjlolv IR kam gar
- Dell Latitude 5420 14" FHD IPS i5-1145G7 16GB DDR4 256GB NVMe gar
- Lenovo P53: i7-9850H (6/12T -4.60GHz) / 15.6 FHD / 32GB DDR4 / 512GB NVMe SSD / T1000 4GB / W11 pro
- Segway ninebot max g2e - még 2 év gyári garanciával
- AMD Ryzen 9 9900X3D - Új, 1 év garancia - Eladó!
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- Hp USB-C/Thunderbolt 3 dokkolók: USB-C Universal, G2, G4, G5, Hp Elite/Zbook- Thunderbolt 4 G4
- DELL PowerEdge R740 rack szerver - 2xGold 6130 (16c/32t, 2.1/3.7GHz), 64GB RAM, 10Gbit HBA330, áfás
- ÖRÖK GARANCIÁVAL - OLCSÓ, LEGÁLIS SZOFTVEREK 0-24 KÉZBESÍTÉSSEL - Windows - Office - LicencAruhaz.hu
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32 RAM RTX 5060Ti 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest