Prog.Hu
- programozás, szoftverfejlesztés, programozó állás, programozó
PC Fórum
- hardver, szoftver, windows, android, apple, google, táblagép, mobil, internet, iphone, samsung

Pascal problémák

2 hónapja
8
Gond a képi összetevők arányos méretezésével és elhelyezésével a főablakban
Sziasztok! Az a probléma bukkant fel, hogy van két téglalap alakú PaintBox-om a főablakban (Form1-en), és nem tudom őket az ablak aktuális méretével arányosan méretezni. Ezzel a kóddal próbálkoztam eddig: procedure TForm1.FormCreate(Sender: TObject); begin regiform1szel:=Form1.width; regif..
- Pascal
3 hónapja
6
Android app: ha a Button ID-je nem üres, az app induláskor összeomlik
Android programozásban teljesen kezdőként (évtizedes Delphis/Lazarusos múlttal) egy pici appot írok (Android Studio-ban), amely egy főképernyőről indulva két Button valamelyikének koppintására egy-egy újabb képernyőt nyit meg (és ott egyenleteket tud megoldani, de ez bizonyára irreleváns). A főké..
4 hónapja
1
Delphi/Lazarus: Karakterek körvonalának kinyerése
Egy CNC vezérlő programot írok, amiben egy tetszőleges fontkészlettel kiírt szöveg karakter körvonalait kell kinyernem poligonok formájában. Windows alatt ez viszonylag egyszerűen megy, mert a windows API függvényeket használom. Viszont Linux és MAC op. rendszeren nem hiszem, hogy van hasonló móds..
5 hónapja
6
Javascript --- >Delphi segítség
Sziasztok! Javascriptben nem vagyok jártas, Delphiben írok egy navigációs segédletet. Ezt a sort le tudná nekem valaki fordítani? Az is óriási segítség, ha szövegesen leírod a jelenését -pl. " ha abszolút Δλ nagyobb PI nél ..." (na itt akadtam el) :( if (Math.abs(Δλ) > Math.PI) Δλ = Δλ>0 ? -(2*..
4 hónapja
23
Lazarus: USB/SERIAL Port kommunikáció MAC és LINUX alatt
Eddig Delphiben programoztam. Ott a TComPort komponenst használtam, ami Windows alatt szépen működött. Most egy cross-platform programot írok Lazarusban és univerzális soros port kezelésre lenne szükségem. Egy olyan komponens lenne jó, ami Windows/MacOs/Linux alatt is működne. Mit kellene min. tud..
6 hónapja
13
Windows10/Rad Studio 11-ből Linuxra fordítani?
Érdeklődöm, hogy van-e valami módja annak, hogy a Windows 10 alatt futó RAD Studio 11.0.0 Alexandria-t rá lehessen venni Linux alatt futó vizuális alkalmazás készítésére. A leírása szerint lehet, de csak konzol alkalmazást. A fordítási beállításoknál pedig nem látok Linux opciót, csak iOS. Mac és ..
10 hónapja
7
Több szál használhat-e egyetlen közös függvényt?
Sziasztok! Bocs,ha rossz helyre írok, vagy nagyon láma a kérdés... Van egy program(om), amiben több szál fut. (Egy PLC-ből kérdez le adatokat Etherneten keresztül.) Az adatcsomagok beérkezése után csinálok rajtuk egy ellenőrzést, ami minden csomagra ugyan az. Az a kérdésem, hogy szálankén..
1 éve
7
Pascal beolvasási módok kérdés
Sziasztok, Lazarusban próbálnék kicsit megismerkedni a programozással. De a beolvasással megakadtam az alábbi esetben. A text fájlom az adatokat az alábbi formában tartalmazza. (naplo.txt csatolva) # 01 15 Galagonya Alfonz OXXXXXX # 01 16 Alma Hedvig OOOOOIO Galagonya Alfonz XXXXXXX # 01 17 Alma..
1 éve
1
Összes lehetőség kiíratása
Adott három szám, az 1 a 2 és a 3. Ezekből a számokból kell olyan sorozatokat csinálni, amik 7 tagúak, egymás mellé ugyanaz a két szám nem kerülhet, és minden számnak legalább egyszer szerepelnie kell a sorozatban. Ezután (vagy eközben) ki kell iratni az összes ilyen lehetséges sorozatot. (Pascal ..
- Pascal
1 éve
5
Lazarus: ShowHint ON, Hint mégsem jelenik meg
Lazarus 2.0.2., Win 10. Van egy fejlesztési időben összeállított TFormom, rajta egy TPanel, a TPanelen pedig futásidőben előállított TGraphicControl-utódok. A ShowHint property mindegyik szinten true, a Hint szövege mindegyik szinten kitöltve, a súgócetli azonban csak a TForm és a TPanel kilátszó..
2 éve
10
Lazarus pendrive leválasztása
Az alábbi kóddal sikerült meghatároznom, hogy melyik betűjelet kapta a bedugott pendrive. var Form1: TForm1; meghajto: char; meghajtostr: string; procedure TForm1.Button1Click(Sender: TObject); begin For meghajto:='A' to 'Z' do begin meghajtostr:=meghajto+':'; If GetDriveType(PChar(meghajtostr))..
2 éve
7
Lazarusban Fájl méretének meghatározása
Sziasztok, Van egy programom ami winchesterről egy fájlt átmásol egy pendrive-ra. Szeretném ellenőrizni, hogy a cél helyen lévő fájl megegyezik-e a forrás fájllal. Azt gondoltam, hogy ha a 2 fájl méretét összehasonlítom akkor jó lehet. Na itt kezdődtek el a problémák, mert nem találtam meg, hogy ..
2 éve
3
Lazarus mentés előtt label megjelenítés
Sziasztok, Segítsetek légyszíves, nem tudok rájönni mi a probléma. Van egy formom amin van egy mentés nyomógomb illetve egy label ami induláskor el van rejtve. Mondjuk van rajta más is, de a probléma szempontjából ennyi a lényeges. A mentés gombra annyit csinál, hogy a formon lévő gombot inaktivv..
2 éve
5
Free pascal folytonos loop
Sziasztok! Még elég új vagyok a Free Pascalhoz, ezért lenne egy kérdésem.. Lehet olyan folytonosan ismétlődő loop-ot csinálni, ami végig fut egy program során? Vagyis létezik-e olyan dolog, ami amíg fut a program - legyen közte akárhány loop vagy repeat vagy akármi - végig fut.. A konkrét példa az..
2 éve
11
DBGrid kijelölt elemének mozgatása
Sziasztok! Adva van egy MemDataset amibe más datasetekből van összekattintgatva 20-30 sor rendezetlenül (nem kell rendezni sehogy sem), ez kapcsolódik egy dbgrid-hez ami ugye megjeleníti a sorokat. Namost a dbgrid-ben (vagy gondolom a hozzá kapcsolt datasetben) hogyan lehet felcserélni az aktuáli..
2 éve
4
Lazarus: Splash formon nem működik a Timer?
Lazarusban írok egy programot, amely egyebek közt animált GIF-eket használ; ezek némelyike száznál is több frame-es. A program emiatt lassan (kb 10 mp) töltódik be; készítettem hát hozzá egy splash formot. Hogy a felhasználó lássa, hogy történés van, a formon a "Loading ..." szöveg három pontját i..
2 éve
8
Lazarus Ini fájl beolvasás probléma
Lazarusban szeretnék ini fájlból beolvasni adatokat. Nincsenek benne szekciók csak kulcs és érték. Ebben a formában vannak az ini-ben az értékek.Van olyan amikor sor kihagyások is vannak benne, de sajnos már az első sort sem olvassa be. ertek=valami Így próbáltam: Sets:=TIniFile.Create('val..
2 éve
8
Lazarus fájl dátum
Sziasztok, Segítséget szeretnék kérni. Szeretném egy könyvtárban megkeresni a legfrissebb fájlt. Hogyan tudom ezt megtenni? Annyi lenne, hogy a legfrissebb fájlt szeretném másolni egyik helyről a másikra. Másolást azt meg tudom oldani, de azt nem tudom megvizsgáltatni, hogy melyik a legutolsó fáj..
3 éve
9
Lazarus base64 include
Sziasztok! Linux alatt Lazarus 1. 6.4 IDE free pascal 3.0.2 alatt a konstansok közé be van húzva több base64 elt külső állomány. const Akármi: {$i filename} ; ... Nos, ez elvileg azért jó mert így a bele fordítja a fordító a kodba, viszont ezek a fájlok vagy egyszerű szöveg fájlok, vagy bas..

abcd