Text Dosyasına Yazma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
BlackMamba
Üye
Mesajlar: 1
Kayıt: 21 May 2019 04:31

Text Dosyasına Yazma

Mesaj gönderen BlackMamba » 21 May 2019 05:41

öncelikle merhabalar yeni kaydoldum foruma edit1 içindeki bilgiyi aynı ortamda bulunan a.txt dosyasındaki 256 bytelık şifre bilgisiyle karşılaştırıp doğru ise memo1 de yazılı olanları b.txt dosyasına ekleyen kodları müsait olan varsa yazabilirmi ? yardım edin lütfen mezuniyet için lazım

Kullanıcı avatarı
loaded
Üye
Mesajlar: 74
Kayıt: 12 Eki 2010 08:45
Konum: Konya
İletişim:

Re: Text Dosyasına Yazma

Mesaj gönderen loaded » 22 May 2019 08:24

Lazarusta yazılıp, denenmiş kod ;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
  var
   stream:TFileStream;
   bfile : text;
   path_a_file:string='c:\a.txt';
   path_b_file:string='c:\b.txt';
   sifre :string;
  begin
   if FileExists(path_a_file) then
   begin
       stream:=TFileStream.Create(path_a_file,fmOpenRead or  fmShareDenyNone);
       stream.Position:=0;
       setLength(sifre,stream.Size);
       stream.ReadBuffer(pointer(sifre)^, stream.Size);
       stream.Free;
       if Edit1.Text=sifre then
       begin
           system.Assign(bfile,path_b_file);
           if FileExists(path_b_file) then   system.Append(bfile) else  system.Rewrite(bfile);
           system.Writeln(bfile,memo1.lines.Text);
           system.Close(bfile);
       end;
   end
   else
   begin
     showmessage('Şifre Dosyası Yok')
   end;
end;   
Kalk ve işe yarar bir şey yap! Çünkü Allah (c.c.) yeniden başlayanların yardımcısıdır.

Cevapla