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

• #83 lao ce aktív tag Bobojsza #82

  Új Válasz 2004-09-28 16:10:38 #83

  Ú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

  

  lao ce

  aktív tag

  válasz Bobojsza #82 üzenetére

  hat, sok otletem nincs.
  kiprobaltam ezt:
  
  procedure FileCopy(const FromFile, ToFile: string);
  var
  FromF, ToF: file;
  NumRead, NumWritten: integer;
  Buf: array[1..102400] of Char;
  begin
  AssignFile(FromF, FromFile);
  Reset(FromF, 1); { Record size = 1 }
  AssignFile(ToF, ToFile); { Open output file }
  Rewrite(ToF, 1); { Record size = 1 }
  repeat
  BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
  BlockWrite(ToF, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  CloseFile(FromF);
  CloseFile(ToF);
  end;
  
  ez speciel egy file copy de talan ad neked otletet, buffer size-t lehet allitani az elejen. a legnagyobb fileom egy 700 megas film volt amit hirtelen talaltam, eleg szepen es gyorsan csinalta... na remelem mas okosabb lesz mint en

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