Anasayfa
AnasayfaİletişimHakkımızda

“Aklın gereği, Allah’a imandan sonra, O’nun için sevmek, sevilmek ve insanlarla dost geçinmektir.”

...Hadisler...

Tek bir saç telinin kalınlığı 0.02mm - 0.04mm arasıdır.

...İlginç Bilgiler...

Hiçbir başarıya çiçekli yollardan ulaşılmaz

...Güzel Sözler...

Site İçi Arama

İstatistik

Merhaba,  

20 Ocak 2017
Cuma
İyi Akşamlar

Toplam Konu Sayısı:17336
Editör Sayısı:2

Delphi Kodlar


Bir yada iki kelime olarak arama yapın.

 

Delphi Kodlar

 

  İndirmek için tıklayın  

 

 

KODLAR   Dosya Kopyalama (1)   Procedure FileCopy( Const sourcefilename, targetfilename: String );   Var S, T: TFileStream;   Begin S := TFileStream.Create( sourcefilename, fmOpenRead ); try T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate ); try T.CopyFrom(S, S.Size ) ; finally T.Free; end; finally S.Free; end; End;   Dosya Kopyalama (2)   procedure FileCopy(const FromFile, ToFile: string);   var FromF, ToF: file; NumRead, NumWritten: Word; Buf: array[1..2048] 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;

 

 

Dosya Arşivi>>Kitaplar
28.01.2012 05:37
725 Okunma



Bilgi Paylaşım Sitesi 2011