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

Bugüne kadar ölçülmüş en büyük buz dağı, 200 mil uzunluğunda ve 60 mil genişliğindedir ve Belçika’dan daha büyük bir yüzölçümüne sahiptir.

...İlginç Bilgiler...

İnsan vardır zamanı kendi hesabına yontar İnsan da vardır bir ömür boyu zaman onu yontar.

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

Site İçi Arama

İstatistik

Merhaba,  

26 Şubat 2017
Pazar
İyi Öğleler

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



Bilgi Paylaşım Sitesi 2011