Anasayfa
AnasayfaİletişimHakkımızda

Nasıl istersen öyle yaşa, fakat bil ki, bir gün mutlaka öleceksin. Kimi seversen sev ama unutma ki, bir gün ondan ayrılacaksın. Dilediğin gibi davran, lâkin şu da her zaman hatırında olsun ki, her yaptığının karşılığını mutlaka göreceksin.

...Hadisler...

Sümüklüböceklerin dört tane burnu vardır.

...İ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,  

21 Şubat 2018
Çarşamba
İyi Sabahlar

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



Bilgi Paylaşım Sitesi 2011