- 10 millió dollárt kap az USA-tól az, aki tud valamit ezekről a hackerekről
- Hatalmas változásokat hozhat az Apple az iOS-be
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Crypto Trade
- Windows 7
- Proxmox VE
- Az USA beperelte az Apple-t: túl drágák az iPhone-ok
- Milyen program, ami...?
- Otthoni hálózat és internet megosztás
- Aliexpress tapasztalatok
Új hozzászólás Aktív témák
-
Calogero
addikt
Procedure TFelviteForm.BitBtnBoritoClick(Sender: TObject);
Begin
ImageBorito.Picture.Bitmap.FreeImage;
OpenPictureDialog.InitialDir:=ExtractFilePath(Application.ExeName)+'Boritok';
If OpenPictureDialog.Execute Then
Begin
ImageBorito.Picture.LoadFromFile(OpenPictureDialog.FileName);
VanKep:=True;
End;
End;
OpenPictureDialog-al szeretnek betolteni egy kepet, ami sikerul is azzal nincs gond.
A gond InitialDir-el van. Az elso klikknel meg tokeletesen mukodik, de ha a kepet egy masik konytvtarbol toltom be. akkor a kovetkezo klikknel mar nem veszi figyelembe az InitialDir-ben megadott erteket, hanem megjegyzi hogy honnan lett kijelove az elozo kep. Ha a programbol kilepek es ujra inditom akkor ismet jol mukodik az elso klikkig. -
Calogero
addikt
Van egy paradox táblám Tqueryt használom lekérdezéshez. (Select * From Filmek Order By Cim)
Hogy tudom azt beállítani hogy Ékezettel betűkkel kezdődő filmek nem a lista végéré kerüljenek. ( Á- val kezdődő filemek ne a V betűsök után jöjjön) -
Calogero
addikt
Sziasztok!
Van 1db MaskEdit-em amelynek ez lenne a maszkja : 99999999-9-99;1;
Azt hogy tudom megoldani, hogy amíg nincs kitöltve a helyesen addig ne lehessen tovább lépni, illetve jelenjen meg egy üzenet hogy az adószám nincs jól kitöltve?Előre is köszönöm.
-
Calogero
addikt
Sziasztok
Van nekem egy A könyvtárba txt és db kiterjesztésű file-k.
Ezeket szeretném a program kilépésekor átmásolni egy B könyvtárba, és ha már ebben a könyvtárban létezik olyan nevű file, akkor azokat felül írja.Előre is köszönöm.
-
Calogero
addikt
válasz bucsupeti #2000 üzenetére
Köszönöm a CopyFile az jó ötlet volt, eltudtam indulni valahonnan.
De sajnos egyszerre csak 1 file-t tud másolni, a *.txt nem működött, de így sikerült megoldani.Tettem a Formra egy Filelistbox-ot.
Filelistbox.Visible:=False;
Filelistbox.Directory:=ExtractFilePath(Application.ExeName)+'Adatok\';
Filelistbox.Mask := '*.db';
If Filelistbox.items.count > 0 then
For i := 0 to Filelistbox.items.count-1 do
Copyfile(pchar(Filelistbox.Directory +'\'+ Filelistbox.Items[i]), pchar(ExtractFilePath(Application.ExeName)+'Backup\'+ Filelistbox.Items[i]), false);Majd a Maszkot átállítottam *.txt-re, és átmásoltam azokat a file-okat is.
[ Szerkesztve ]
-
Calogero
addikt
válasz Fire/SOUL/CD #2002 üzenetére
Neked is köszönöm, gyorsan el is mentettem.
Mindig tanul valami újat az ember
Új hozzászólás Aktív témák
- Eredeti játékok OFF topik
- Tamás88: 2025 a PC-s szemétdombok éve lesz?
- Kerékpársportok
- Gitáros topic
- 10 millió dollárt kap az USA-tól az, aki tud valamit ezekről a hackerekről
- Parfüm topik
- Objektívek topikja
- Luck Dragon: Asszociációs játék. :)
- Hatalmas változásokat hozhat az Apple az iOS-be
- Philips LCD és LED TV-k
- További aktív témák...