- Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
- Két Zen 5-ös dizájnjának mintáit is szállítja már az AMD
- A Colorful "fagyosan kompakt" alkatrészekkel megy elébe a nyárnak
- A Keychron ismét egy űr betöltését vállalta magára az egerek szegmensében
- Az átlagnál vaskosabb ventilátorok kandikáltak ki a Corsair vitorlája mögül
Hirdetés
-
Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
ph Megkezdődött az NPU-k elleni hadjárat, de egy fontos részletet nem említ a cég.
-
Spyra: akkus, nagynyomású, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
VR játék lesz az Batman: Arkham Shadow (Meta Quest 3)
gp Egyelőre csak egy teaser trailert kaptunk a teljes leleplezésre a Summer Game Festen kerül sor.
Új hozzászólás Aktív témák
-
Diskcopy
tag
válasz Calogero #785 üzenetére
procedure TForm1.Button1Click(Sender: TObject);
var open :TOpenPictureDialog;
begin
try
open := TOpenPictureDialog.Create(self);
open.InitialDir := ExtractFilePath(Application.ExeName);
IF open.Execute THEN
image1.picture.loadfromfile(open.filename);
finally
open.Free;
end;
end;
Usesnál ugye hozzáadod az ExtDlgs -t és jó lesz. Üdv. -
ViragL
tag
válasz Calogero #1291 üzenetére
Query sehogy nem fogja neked megoldani a dolgot, javaslom, hogy kliens oldalon egy beszúró rendezéssel korigáld a hibás sorrendet. Tehát pl. a Query eredményével feltöltesz egy StringGridet, majd az ékezetes filmcímeket beszúrod a megfelelő helyre. Kib*szott lassu lesz a betöltés, de más ötletem nincs most hirtelen.
MOD: Ja de van még egy, ha nem ragszkodsz a Paradox-hoz, akkor használj pl. FireBird-et, ott tudsz írni egy tárolt eljárást ami adatbázis oldalon megcsinálja neked a szükséges rendezést. Ez a megoldás gyors és szép.
[Szerkesztve] -
bucsupeti
senior tag
válasz Calogero #1999 üzenetére
onClose eseményben:
begin
CopyFile(PChar('c:\A\*.txt'), PChar('c:\B\'), False);
CopyFile(PChar('c:\A\*.db'), PChar('c:\B\'), False);
end;Egyébként az is megoldás lehet, ha készítesz egy batch fájlt a program indítására, amibe a végén megoldod a másolást a copy paranccsal.
"Nem gond ha nem vágod a párologtatók bináris nyelvét..."
-
félisten
válasz Calogero #2001 üzenetére
Nem tudom még aktuális-e a dolog, írtam egy másik megközelítésű megoldást, talán találsz benne hasznos dolgokat, amiket a jövőben is fel tudsz használni/alkalmazni.
unit CalogeroCopyUnit;
interface
uses
System.SysUtils, System.StrUtils, Winapi.Windows;
procedure CalogeroCopy;
implementation
procedure CalogeroCopy;
const
SourcePath = 'D:\Calogero\A\';
DestinationPath = 'D:\Calogero\B\';
var
DTA: TSearchRec;
Result: Integer;
begin
ChDir(SourcePath);
Result:=FindFirst('*.*',faAnyFile,DTA);
repeat
while (Result=0) do begin
if DTA.Name='.' then begin
Result:=FindNext(DTA);
Result:=FindNext(DTA);
Continue;
end
else if ((DTA.Attr and faDirectory)<>faDirectory) and
(AnsiMatchStr(AnsiUpperCase(ExtractFileExt(DTA.Name)), ['.TXT','.DB'])) then begin
CopyFile(PChar(DTA.Name),PChar(DestinationPath+DTA.Name),False);
end;
Result:=FindNext(DTA);
end;
until Result<>0;
end;
end.UI: Delphi XE3-ban készült, így ha jóval régebbi Delphi-vel dolgozol, akkor a uses szekcióban módosítsd a unit-ok nevét SysUtils, StrUtils, Windows
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)