Anasayfa
AnasayfaİletişimHakkımızda

Şaka Da Olsa Yalan Söylemeyin

...Hadisler...

Dünyanın en hızlı büyüyen bitkisi Bambu bir günde 90 cm. kadar uzuyor.

...İlginç Bilgiler...

dil tencerenin kapağana benzer,kıpırdarda kokusu duyuldumu,ne pişer anlarsın.

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

Site İçi Arama

İstatistik

Merhaba,  

23 Haziran 2017
Cuma
İyi Geceler

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
826 Okunma



Bilgi Paylaşım Sitesi 2011