Text Dosyasına Yazma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 1
- Kayıt: 21 May 2019 05:31
Text Dosyasına Yazma
ö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
Re: Text Dosyasına Yazma
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.