Hirdetés
- Magga: PLEX: multimédia az egész lakásban
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Lalikiraly: Kaáli Autó-Motor Múzeum
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- eBay-es kütyük kis pénzért
- Autódiagnosztika: a gyakorlatban
- sziku69: Szólánc.
- laskr99: DFI és DFI Lanparty gyűjteményem
- D1Rect: Nagy "hülyétkapokazapróktól" topik
Új hozzászólás Aktív témák
-
Diskcopy
tag
válasz
Diskcopy
#966
üzenetére
amúgy meg találtam googleon. nézd át.
Function LoadResStr(ident : word) : string;
var H : THandle;
PS : PChar;
begin
H := LoadLibrary('YYYY.DLL');
New(PS, 255);
LoadString(H, ident, PS, 255); // az ident hatarozza meg a stringet
LoadResStr := StrPas(PS);
FreeMem(PS);
end;
[Szerkesztve] -
#940
Tele von Zsinór
őstag
Diskcopy
#939
Tele von Zsinór
őstag
válasz
Diskcopy
#939
üzenetére
Igen, próbáltam a step-by-step debugot. A kompononseken annyi változás történt, hogy a ListBox1 méretét megnöveltem és láthatóvá tettem. Arra jöttem rá, hogy a ciklus kb. a 44-45. iterációjában okozza a kivételt, a ListBox1 44. és 45. eleme: ''Rmc Kft'' és ''Szatmári Kft''. A ciklus pontosan annál a sornál akad ki, amelyiket először beírtam ide, azaz amikor a StingGrid egyik cellájához rendelek értéket.
Asszem felrakom újra a delhit, hátha -
#938
Tele von Zsinór
őstag
Diskcopy
#937
Tele von Zsinór
őstag
válasz
Diskcopy
#937
üzenetére
StringGrid1.Enabled = True.
Tudomásom szerint a for is ciklus, nem?Először én is for-al csináltam egy gyakorlatikag ugyanilyen kóddal, aztán amíg még nem tudtam a pontos sort, ami a hibát okozza, akkor írtam át while-ra, hogy hátha. Aztán így maradt, tökéletes ez is. Optimalizációval meg még nem foglalkoztam
-
#936
Tele von Zsinór
őstag
Diskcopy
#935
Tele von Zsinór
őstag
válasz
Diskcopy
#935
üzenetére
i := 0;
while ListBox1.Items.Count > 0 do
begin
StringGrid1.Cells[1,i+1] := ListBox1.Items[0];
ListBox1.Items.Delete(0);
StringGrid1.RowCount := i+2;
StringGrid1.Cells[0,i+1] := IntToStr(i+1);
inc(i);
end;
A ListBox1-be egy adatbázisból kiszedett adatok kerülnek, nincs köztük olyan, aminek a trim-je üres lenne. De ha lenne is, akkor legfeljebb üres maradna egy cella, nem
Tényleg annyi lenne, hogy egy ListBox elemeit egy ciklus berakja egy StringGrid 1-es indexű oszlopába. És egyszercsak write-os access violation
Bővebben:� link -
-
#678
killerjohn
addikt
Diskcopy
#677
killerjohn
addikt
válasz
Diskcopy
#677
üzenetére
A ''mester'' azért erős....
![;]](//cdn.rios.hu/dl/s/v1.gif)
Itt se ICQ-t, se MSN-t nem használok... Otthon nincs net, jövőhéten hozzák be... Marad a PH!. De ez nem flood. Ez a topic erre van, nem ?
Szerk: A rendszergazda nem szereti az ilyen jellegű ''chat'' cuccokat. Próbáltam elmagyarázni, de fogja fel.... mind1.
[Szerkesztve] -
#676
killerjohn
addikt
Diskcopy
#669
killerjohn
addikt
válasz
Diskcopy
#669
üzenetére
Procedure ClearBitmap(Btm: TBitmap);
Begin
With Btm.Canvas Do
Begin
Pen.Color := clWhite;
Brush.Color := clWhite;
Rectangle(0,0,Btm.Width,Btm.Height);
End;
End;
itt jön a Tiéd :
Var Img : TImage;
For c := 1 to 5 Do
Begin
dobott[c]:=random(5)+1;
Img := Timage(Form1.FindComponent('Image'+IntToStr(c)));
ClearBitmap(Img.Picture.Bitmap);
Imagelist2.GetBitmap( dobott[c]-1, Img.Picture.Bitmap);
Img.Invalidate;
End;
próba, kemence. -
Szalma
őstag
válasz
Diskcopy
#669
üzenetére
(Jónak tűnik. Valami transparent kapargatás kellene neki, de nem tudok többet fejből, szerencsére nincs delfi a gépemen már ~2 éve...
)
Szeretettel:
Szalma
ui.: Jaja... Bitmap mag kapargatás megvan... Lehet lejjebb is menni, de nem éri meg...
szerk.: Szerintem tök jó, ha belefordulnak a képek. Külső resource kicsit ciki. Utána egy UPX-el rámenni, és kicsi lesz.
[Szerkesztve] -
#670
killerjohn
addikt
Diskcopy
#668
-
-
BlackWoOd
aktív tag
válasz
Diskcopy
#631
üzenetére
Ilyen hajmeresztő mutatványba szerintem ne kezdj bele.
Jobb a békesség.
Csinálj egy tömböt Timage típussal és a form létrehozásakor 1x töltsd fel inkább a components alapján.
Ezt a fixen pl. 5-15. komponenses hivatkozást még most gyomláld ki az agyadból, sok kellemetlen meglepetést tud okozni.
(pl. módosítasz valamit és elfelejted átírni az indexeket, vagy akármi.) -
Diskcopy
tag
válasz
Diskcopy
#630
üzenetére
Azon gondolkodom, hogy a Components-en belül a képeknek fix értéke van, mármint hogy hanyadikok. Ha újabb komponenst rakok le, akkor növekszik a Components értéke, de a képeké marad ugyanaz (nem?) akkor elméletileg csak meg kéne néznem, hogy a képek hanyadik Components elemtől kezdődnek és akkor megúszom a végigmenős ciklust (legalábbis azt, hogy az összes komponensen végigmenjen). Javíts ki ha tévednék légyszíves.
-
BlackWoOd
aktív tag
válasz
Diskcopy
#626
üzenetére
A sorszám névből kitúrása helyett javasolnám a ''Tag'' nevű integer típusú property használatát.
A 10 image tag-jének adsz rendre 1,2,3...10 értéket és kész. (a tulajdonság default értéke 0)
A fenti példa alapján:
if (Components[_i_] is TImage) then
with (Components[_i_] as TImage) do
if (Tag > 0) then begin
// Itt meg megírod a kezelő rutint.
// pl. Case Tag of használatával, vagy ahogy szükséges.
end;
[Szerkesztve]
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
- BestBuy topik
- Milyen TV-t vegyek?
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Motorola Edge 70 - többért kevesebbet
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Konteó topic
- Androidos fejegységek
- Fejhallgató erősítő és DAC topik
- Arc Raiders
- Xbox tulajok OFF topicja
- További aktív témák...
- Steam Deck vadi új 512GB SSD-vel, 100% akku, Windows 11 Pro, tok, töltő, karcmentes, mint az új!
- Dell Latitude 9410 i7 / 16GB RAM / 512GB SSD 2in1 érintőkijelző Profi gép, kedvező áron!
- AKCIÓ! Dobozos új Lenovo Yoga Slim9 Laptop! / i7-1165G7 16 GB 1 TB SSD UHD IPS TOUCH Garancia
- Intel 12th gen. i5-12500 / B660M / 16GB DDR4 félkonfig
- Toshiba Survillance S300 Pro 8 TB megfigyelőrendszerekhez - 2 db
- Microsoft Surface Pro 6 fekete
- HIBÁTLAN iPhone 12 mini 64GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3481, 100% Akksi
- BESZÁMÍTÁS! ASRockB450M R5 5600X 16GB DDR4 512GB SSD STRIX RTX 2070 SUPER 8GB GameMax Aero Mini 700W
- LÉZEREZÉS! külföldi billentyűzet magyarra kb. 20-30p alatt!
- MÉG OLCSÓBB 10.21. !!! Új elekrtomos rollerek 2/3 áron és e-bike dobozban, 1 év garanciával:
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest