Text Dosyasına Yazma

[BlackMamba]

ö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

[loaded]

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;