Új hozzászólás Aktív témák

• #2002 Fire/SOUL/CD félisten Calogero #2001

  Új Válasz 2014-12-29 09:31:00 #2002

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  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

• #2000 bucsupeti senior tag Calogero #1999

  Új Válasz 2014-12-28 17:49:38 #2000

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.

• #1989 Calogero addikt Calogero #1988

  Új Válasz 2014-07-14 17:00:14 #1989

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Calogero

  addikt

  válasz Calogero #1988 üzenetére

  Sikerült megoldanom.

• #1295 btotyi tag Calogero #1291

  Új Válasz 2006-10-19 06:45:00 #1295

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  btotyi

  tag

  válasz Calogero #1291 üzenetére

  Ha paradoxot használsz állítsd be rendesen a tábla nyelvét PdoxAnsiHunDC-re.
  
  
  [Szerkesztve]

• #1292 ViragL tag Calogero #1291

  Új Válasz 2006-10-15 19:36:41 #1292

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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]

• #786 Diskcopy tag Calogero #785

  Új Válasz 2005-04-27 06:44:25 #786

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.

• #785 Calogero addikt Calogero #784

  Új Válasz 2005-04-25 21:18:04 #785

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Calogero

  addikt

  válasz Calogero #784 üzenetére

  UP

Új hozzászólás Aktív témák