Anasayfa
AnasayfaİletişimHakkımızda

Kul namazı da terketti mi, işte o zaman küfürle arasında hiçbir perde kalmamış demektir.

...Hadisler...

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

...İlginç Bilgiler...

Kaplumbağaya dikkat et. Ancak kafasını çıkarıp risk aldığında ilerliyebiliyor.

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

Site İçi Arama

İstatistik

Merhaba,  

22 Kasım 2017
Çarşamba
İ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
848 Okunma



Bilgi Paylaşım Sitesi 2011