Kullanıcı adı ve şifreyi text dosyasına nasıl kaydederim?

[evolution]

Delphide çok yeniyim, yaptığım programda kişi kullanıcı adı ve şifresini editbox'a girip gönder dediğinde bunu text dosyasına kaydetsin istiyorum. Daha sonr tekrar ordan çağırmasını istiyorum. editbox'daki yazıyı bir text dosyasına nasıl kayıt ettirebilirim ve daha sonra ordan okutabilirim?

[vkamadan]

Merhaba ,
En basit yol bir TStringList ile yapmak olabilir,

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
Dosya:TStringList;
begin
  try
    Dosya := TStringList.create;
    Dosya.Add('kullanıcıadı');
    Dosya.Add('Şifre');
    Dosya.SaveToFile('c:\sifre.txt');
  finally
    Dosya.free;
  end;
end;

şeklinde dosyaya 2 elemanlı bir liste kaydettik 1.eleman kullanıcı adı 2.si şifre okumak içinde ,

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
Dosya:TStringList;
begin
  try
    Dosya := TStringList.create;
    Dosya.LoadFromFile('c:\sifre.txt');
    EditKullaniciAdi.Text:=Dosya[0];
    EditSifre.Text:=Dosya[1];
  finally
    Dosya.free;
  end;
end;

tabi bu yöntemde güvenlik düzeyi "0" çeşitli algoritmalarla şifreleyerek kaydedersen güvenlik sorununu optimal düzeylerde tutabilirsin.
iyi çalışmalar.

[evolution]

Teşekkür ederim, istediğim gibi oldu Zaten güvenli olması gerekmiyor şimdilik. Tekrar saol.

[evolution]

Peki ben şunu yapmak istiyorum eğer daha önceden şifre ve kullanıcı adı girilmişse edit'leri bunlarla doldurmak istiyorum, bu zaten üstte verdmiş olduğun kodla oluyor.. Ama eğer girilmemişse yani sifre.txt boş ise edit'lerinde boş kalmasını istiyorum. Bunu nasıl yapmam gerekiyor? Yeni başlıyorum kusura bakmayın zırt pırt soru sorup duruyorum ama mazur görün. Sayenizde baya bişey öğredim, yardım edenlere çok teşekkür ederim.

[ALUCARD]

bu zaten üstte verdmiş olduğun kodla oluyor.. Ama eğer girilmemişse yani sifre.txt boş ise edit'lerinde boş kalmasını istiyorum.

zaten cevabı kendin vermişsin txt doluysa textler douyor demişsin
txt boşsa bos gelmezmi o zaman?

[evolution]

hmm haklısın ALUCARD, ben dosyanın içini boş bıraktığımda hata vermişti ama 2 tane boş satır bırakınca dediğin gibi bol çıkıyor. Saolasın..

[ALUCARD]

yardımcı olabildiysek ne mutlu bize