Hirdetés
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- GoodSpeed: Ágymatrac keresési kálvária
- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sh4d0w: Kalózkodás. Kalózkodás?
- btz: Internet fejlesztés országosan!
- Pajac: száz pí
Ú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
- Apple iPad Mini 6 64GB, Szép állapot,
- iPhone 15 PRO MAX 256GB natúr titán gyonyörű! KÁRTYAFÜGGETLEN! Akkumlátor 89%! Fulldoboz!
- -ÚJ,2 ÉV GAR- GAMER PC: RYZEN 5 4500-5600X +RX 6600/6700XT +16-64GB DDR4! SZÁMLA! 70 féle ház!
- MacBook Pro 14 (2021) M1 Pro / 16 GB RAM / 512 GB SSD Új topcase, 100% akku
- Yamaha R-N402D sztereó erősítő
- Bomba ár! Dell Latitude E6220 - i7-2GEN I 8GB I 128SSD I 12,5" HD I HDMI I Cam I W10 I Garancia!
- HIBÁTLAN iPhone 13 128GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS3760, 100% Akkumulátor
- Apple iPhone 13 Pro Max Sierra Blue ProMotion 120 Hz, Pro kamerák 128 GB Használt, szép,100%
- Microsoft Windows, Office & Vírusirtók: Akciók, Azonnali Szállítás, Garantált Minőség, Garancia!
- LG 27MR400 - 27" IPS LED - 1920x1080 FHD - 100hz 5ms - AMD FreeSync - Villódzásmentes
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest