Anasayfa
AnasayfaİletişimHakkımızda

Kim bir mümin kardeşinin dünyaya ait bir sıkıntısını giderirse, Cenab-ı Allah da onun ahirete ait bir sıkıntısını giderir.

...Hadisler...

Dünyanın en yüksek şelalesi: Angel-Venezuela–1.000 m.

...İlginç Bilgiler...

Satrançta piyon yola çıkar da, sonunda yüce vezir olur.

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

Site İçi Arama

İstatistik

Merhaba,  

19 Eylül 2017
Salı
İ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
837 Okunma



Bilgi Paylaşım Sitesi 2011