Anasayfa
AnasayfaİletişimHakkımızda

Akıllı kimse, sürekli kendi nefsini sorgulayan ve durmadan ölüm ötesi hayat için çabalayandır. Nefsini hevâsının peşinde koşturan ve buna rağmen Allah Teâlâ’dan beklentileri olan kimseye gelince o zavallının tekidir.

...Hadisler...

Dünyanın en kalabalık (bilgi yelpazesi.net) şehri: Tokyo-Japonya–26.500.000 kişi

...İlginç Bilgiler...

Albert Einstein dokuz yaşına kadar düzgün konuşamamıştı

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

Site İçi Arama

İstatistik

Merhaba,  

28 Nisan 2017
Cuma
İ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
791 Okunma



Bilgi Paylaşım Sitesi 2011