Hirdetés
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Milyen házat vegyek?
- 3D nyomtatás
- Milyen processzort vegyek?
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- OLED TV topic
- Minden korábbinál több LED zóna került a TCL új Mini LED tévéjébe
- VR topik (Oculus Rift, stb.)
- Ennyibe fog kerülni az LG B4 tévé
- Méretesre tervezve a Blackwell dizájnt az NVIDIA
Új hozzászólás Aktív témák
-
Tele von Zsinór
őstag
Ahogy a kollega is mondta, ha telnettel e-mailezel jól jöhet
A mime-nek nem az a célja, hogy kisebb legyen (filekódolás, nem filetömörítés), hanem az, hogy az e-mailekben szabvány 7 biten is ábrázolni lehessen.
Amikor TClientSockettel akartam levelezőprogramot írni elkezdtem én is írni egy kódoló/dekódoló algoritmust. Jó móka volt .) -
RAM
őstag
válasz Tele von Zsinór #1152 üzenetére
Thx: Tele von Zsinór, Drótszamár.
x éve elindítottam a puttyot kb. ennyi ....)Csak tisztán
-
RAM
őstag
Küldhetek vknek egy totál kezdő banálisan egyszerű feladatot?, megoldása is megvan, de nem fut le.
Akinek küldhetem jelezze plz..Csak tisztán
-
RAM
őstag
Gomb -ra (pl. Button2),
hogy lehet: ilyet ?
[Szerkesztve]Csak tisztán
-
yksz
aktív tag
#1137? valaki pls help me!
Fly away my precious knowledge fly far away
-
RAM
őstag
Ha sehol nem jelenik meg a Save Project As...
mit tehetek?
Csak 2 fájlt ment így el..Csak tisztán
-
RAM
őstag
ha projekteket nyitok meg,
előjön a Save projact as... is?
Csak akkor már mit ment le.Csak tisztán
-
RAM
őstag
Mi kell, ahhoz, hogy a Save Project As... Aktív legyen?
Csak tisztán
-
yksz
aktív tag
addikt-ként még gyujtod a hsz-eket? ezt az egészet le lehetett volan írni 1-b e is... Mind1. Fogalmam sincs h mé nem megy az neked, nekem megyeget normálisan, de azt mondja má meg valaki pls, h hogyan lehet system proces-t csinálni az alkalmazásomból!
Fly away my precious knowledge fly far away
-
RAM
őstag
válasz Tele von Zsinór #1171 üzenetére
Thx. Nem sokkal ezelőtt találtam meg..
Akkor kérdezek is:
~ fájl -ból vmi visszafejtés az előzőre, hogyan érdemes,
Még mindig nem igazán tudom, mikor mit mentek, van, hogy olyat ment el, amit már régen bezártam, nagyon be tud kavarni ám...Csak tisztán
-
RAM
őstag
pl. Labelek tulajdonságait lehet klónozni?
Egyesével 1x db-nál szinte uazt (kiv. name) már...tökölés.
(ez még csak a tervezés rész, de ha van rá értelmes eljárás, jöhet... .))Csak tisztán
-
félisten
Sziasztok!
El tudnátok küldeni Nekem a következő 2 file-t?
dcloffice2k70.bpl
dclofficexp70.bpl
Excel file-t akarok megnyitni Delphi 7-ben, de hiányoznak a hozzá szükséges file-ok.
Ez a két file elég, hogy menjen? Hol lehet találni hozzájuk használati útmutatót?
A címem: bici@dox.hu
Köszi szépen!!!Eladó régi hardverek: https://hardverapro.hu/apro/sok_regi_kutyu/friss.html
-
Magic
tag
Most kuldtem a prog.hu-ra is, de hatha itt gyorsabb lesz a valasz...
Van egy TEdit a formon, aminek a tartalma:'čćšđžéáőúűüó'. Ezt szeretnem egy ListBoxba/ComboBoxba/Memoba be irni, a kovetkezo modokon:
Listbox1.Items.Add(edit1.Text);
Memo1.Lines.Add(edit1.Text);
Combobox1.Items.Add(edit1.Text);
Es akkor a legyeg:
Listboxban igy nezki:'èæšðžéáőúűüó'
Combobox listajaban:'èæšðžéáőúűüó'
A felcsukot Comboboxban:'čćšđžéáőúűüó'
es a Memoba:'čćšđžéáőúűüó'
minden vezerlonek a Charset:EASTEUROPE_CHARSET.
Mi miat vannak az elteresek? es hogy lehet orvosolni?
ui.:A kodok helyen a (nem)megfelelo karakterek jelennek meg nalam.
Megvalami: Delphi 6 es standard vezerlok. -
D@ni88
addikt
Hello, most tanuljuk a suliban a Delphi-t 5ös verzióval és fullra nem értem, ha valaki esetléeg megszánna egy elektronikus könyvvel, vagy valami hasonlóval nagyon megköszönném
-
czappa
aktív tag
Sziasztok!
Lenne néhány kérdésem, erre szeretnék segítséget kérni:
1) Ma tannultuk suliban a kivételkezelést Delphiben, de az én gépemen nem akart működni. Megkérdeztem a tanárt, nem tudott segíteni, viszont elmondta, hogy az előző csoportjában is volt amelyik gépen nem működött, máshol igen. Előző nap itthon is próbálkoztam vele, de itt sem sikerült, most ezt másolom be:
var r:real;
o:Integer;
begin
o:=0;
try
r:=5/o;
//ShowMessage(FloatToStr(r));
except
on EZeroDivide do ShowMessage('Hiba: 0-val való osztás!');
on EDivbyZero do ShowMessage('Hiba: 0-val való osztás!');
end;
end;
Ha a ShowMessage(FloatToStr(r)); részt commentbe rakom, SEMMI nem történik, ha pedig kiveszem a kommentet, akkor hibával elszáll a progi, de a kivételkezelés nem történik meg. Mi a hiba?
2)
Nem tudok [ jelet tenni sem pedig {-t (erre egy brakepoint list ablak jön be), [ ] jeleket ALT+91/93-al szoktam tehát tenni. De mit lehet ez ellen tenni?
A vicc, hogy egyszer találtam erre vmi file-t ami megoldotta a problémát (állítólag) csak nem tudtam importálni, most meg már azt se tudom, mi volt a file.
Aki tudja plíz dobjon egy linket és azt is írja meg, hogy hogyan lehet a működésre bírni.
Ezek lennének a problémáim, előre is köszi. -
Jester01
veterán
Elõrebocsátom, hogy csak tippem van, nem értek delphihez
Szóval elõször is a try után nem kell esetleg begin-end blokk ?
Illetve ha nem használod fel az r értékét akkor valószínûleg kioptimalizálja a fordító az osztást. (Mondjuk mivel konstansok vannak, ezt illene egyébként is elkövetnie.)
Ezenkívül nem tudom van-e lehetõség delphiben mindent elkapó kivételkezelõ írására, mert egy olyat jó lenne még odatenni, hogy kiírja valójában milyen exception volt.Jester
-
czappa
aktív tag
válasz Jester01 #1183 üzenetére
Én úgy tudom, hogy nem kell oda begin-end, mert kapcsolóként működik és a végén az egész try-except részt zárja egy end; (de persze most kipróbáltam és minden maradt a régiben, így is).
A suliban amikor példaprogit írtam, akkor ''rendes'' számokat olvastattam be Edit mezőről, ott is ez volt.
VISZONT! és ez elég lol - elnézést is kérek érte:
Tehát, oké bejön ez a durva hibaüzi, de utána ha nem run->program resetet választok, hanem run->run-t akkor megy tovább a progi és meg is jelenik a ShowMessage ablaka...
Mert ugya progi ott ''kiakadt'' csak úgy tovább nem tudtam menni ezért kellett a run menüpont.
Ám ez kezdett gyanus lenni, így megnéztem, mi van ha nem a Delphiből futtatom a progit, hanem az .exe filet indítom. Nos ekkor tökéletesen működik... lol engem az zavart meg h a fordítóból ilyenkor elszált a progi, feljött a delphi saját hibaüzije, én meg csak a run-> menüvel tudtam tovább menni.
Azért köszi, és bocs h ilyennel fárasztottalak, ez azért tanunságos volt.
Viszont a másik problémámra tud vki. vmi. megoldást?
[Szerkesztve] -
ReJim
őstag
hogyan tuduk külső programot indítani (delphi 6)? ha jóltudom kell hozzá valamelyik komponens, de melyik?
</end.?>
-
Tele von Zsinór
őstag
-
ReJim
őstag
válasz Tele von Zsinór #1189 üzenetére
köszi. ez ugye nem működik console app-ba, csak formos app-ban?
más:
valaki nem tudna valami tippet adni, hogy mivel tudnék a programomban karnaugh táblát rajzoltatni, és karikázgatni?
vagyis a kirajzolás nagyjából megvan, de a karikázásra nincs tippem..
most valahogy itt tartok: [link]
de valamiért nem tudom elrendezni normálisan a kockákban lévő label-eket (amiket a program módosítana) vagy csináljam a számokat is képből, és ahova kell egyes, ott megjelentetem a képet?</end.?>
-
czappa
aktív tag
Sziasztok!
Már megint elakadtam, most a mutatókkal gyűlt meg a bajom.
Suliban volt szó egyirányú listákról; ehhez írtam egy kis progit, ami még csak annyit csinál, hogy lehet a végéhez felvenni egy új elemet és az egészet listázni (kiíratni egy listboxba).
Ez szép és jó és elvileg működik is ([link]), ám én balga arra gondoltam, hogy nem recorddal kéne megcsinálni hanem osztály példányokkal ha már úgyis oop-t tanulok.
Itt azonban már nem mentek olyan simán a dolgok. Ha csak egy elemet veszek fel a listába, akkor minden működik rendesen, azonban több elemnél a kilistázáskor a progi bekerül egy végtelen ciklusba és már két napja ezen rágódok és nem tudok rájönni sehogy se; ennek itt a linkje:
[link]
Azért bemásolok ide kódrészeket:
private
fej, p: point;
uj: TRek;
ujertek: integer; (...)
procedure TForm1.Button1Click(Sender: TObject);
begin
//beszúrás a lista végéhez
ujertek:=StrToInt(Edit1.Text);
Edit1.Text:='';
uj:=TRek.Create(ujertek);
uj.setKov(nil);
if fej=nil then //ha nincs még eleme a listának
begin
fej:=@uj;
end
else //ha a fej nem nil-re mutat, azaz ha van már eleme a listának
begin
p:=fej;
while p.getKov<>nil do
begin
p:=p^.getKov;
end;
p^.setKov(@uj);
end;
Edit1.SetFocus;
end;
procedure TForm1.ListazClick(Sender: TObject);
var i: integer; //
begin
for i:=ListBox1.Count downto 0 do //a LsitBox1 elemeinek törlése
ListBox1.Items.Delete(i);
p:=fej;
while p<>nil do
begin
Listbox1.Items.Add( IntToStr(p^.getTart) );
p:=p^.getKov;
end;
end;
és a TRek osztály:
unit Rek;
interface
type
point = ^TRek;
TRek=class
private
tart : Integer ;
kov : point;
public
constructor create(tart: integer);
procedure setKov(kov: point);
function getKov: point;
function getTart: integer;
end;
Végülis a lényegi részeket fentebb kimásoltam.
[Szerkesztve]
[Szerkesztve] -
wolffy
aktív tag
Sziasztok!
A kérdésem az lenne, hogyan lehet Delphi 7-ben megvalósítani, hogy egy adatbázis hivatkozott rekordjainak tartalma egy előre definiált Word sablonba behívható legyen? Csak azért kérdezem mert láttam ilyet működve és én is szeretném megcsinálni az egyik programomban. Úgy nézett ki, hogy egy Word sablon, olyasmi hivatkozásokkal, mint amikor űrlapot készítünk. Ezek voltak a mezőnevek és ezek helyére jöttek be a kívánt rekordnak megfelelő értékek, mikor a Delphiben írt programból ezt kezdeményeztük. Köszi! -
ReJim
őstag
az a jelenség (amit lol-ként jellemeztél ) az azért fordult elő, mert a delphi mindenképpen vizsgálja, ha belőle futtatod.
le lehet kapcsolni, hogy ne legyen ilyen debugg:
Tools menü ->Debugger Options -> Languages Exceptions (3-dik) fül -> Stop Delphi exceptions pipát kivesz.
ekkor ha try-except, és kivétel lesz, akkor nem fog bejönni a delphi hibajüzi, és nem száll el a progi.
(tipp: ha elszáll a programod, akkor ctrl+f2-vel időt spórolsz, azzal nullázod a progit, enm lesz ao tt a fagyás.)</end.?>
-
ReJim
őstag
válasz Tele von Zsinór #1192 üzenetére
ohh, így megy, köszi. de sajnos nem tudom arra használni amire akartam.
(a program elején a color parancsal átszinezzem a parancssor szinét, de nem megy )
mind1.
azt esetleg még megtudnád mondani, hogyan tudok a programommal alakzatot rajzolni?
többet kell rajzolnom, és mindnek ugyanazokat a tulajdonságokat, kell adnom, csak a poziciója és a mérete eltérő.
ilyenkor ha létrehozom azokat, mindegyiknek külön meg kell adnom a tulajdonságait, vagy hogyan tudok cselekedni? ()</end.?>
-
ReJim
őstag
válasz Tele von Zsinór #1196 üzenetére
olyat akarok, hogy a bevitt értékekből kiszámlni pár dolgot és az alapján a megfelelő helyre rajzolni az alakzatot (jelen esetben kerekített sarkú téglalap, ami átlátszó, nincs neki háttérszine)
és ebből kell több darabot is csinálni (ezt is a kiszámolt értékekhez kell igazítani), ami ugyan olyan, csak a pozíciója, és a mérete az eltérő. (de elöbb egyet tudjak kirajzoltatni az is elég )
ez ha jóltudom a form-ra kell.
(mivel pénteken csináltam először grafikus progit, és fogalmam sincs mi az a canvas )
[Szerkesztve]</end.?>
-
Tele von Zsinór
őstag
A canvas az általában a grafikus objektumoknak a vászna, sőt, egy kis trükkel a windows asztalra is tudsz rajzolni velük
A TForm-nak is van, de ez ''felejtős'', azaz nem jegyzi meg, mi hol volt, neked kell mindig újrarajzolni, amikor wm_Paint jön.
Akkor már sokkal inkább ajánlom a TImage komponenst, azt csak akkor kell rajzolnod, ha frissül rajta valami. És ez a parancs kell neked:
TImage.Canvas.RoundRect -
czappa
aktív tag
Ja nem, nem. Én magamat jellemeztem lol-lal, nem a delphi megoldását - mert végülis valahol logikus h bejön a delphi saját hibaüzenete, csak én nem értettem.
Ezt most csak a félreértések elkerülése végett írtam.
És köszi a tippet (a belső hibaüzenet kikapcsolására)!
[Szerkesztve]