text dosyasından kelime aramak

[jackz]

Merhaba, ben bir giriş paneli yapmaya çalışıyorum. Kullanıcı adı ve şifre text dosyasında bulunacak. Giriş yapıldığı zaman text dosyasındaki bilgiler kontrol edilecek ve doğruluğuna göre giriş yapabilecek. fakat text dosyasındaki kullanıcı adı ve şifre bilgilerini ayrı arı okumayı başaramadım. Yardım eder misiniz lütfen.

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, FileCtrl;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    txtNick: TEdit;
    txtSifre: TEdit;
    btnGiris: TButton;
    procedure btnGirisClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  pass:string;
  dosya:textfile;
implementation

{$R *.dfm}

procedure TForm1.btnGirisClick(Sender: TObject);
begin
AssignFile(dosya,'pass.txt');
Reset(dosya);

while NOT EOF(dosya) do
  begin
  Readln(dosya,pass);
  //Burdan sonrasında içinden çıkamadım	
  end;

if txtSifre.Text=pass then ShowMessage('Giriş Başarılı!')
else ShowMessage('Lütfen Giriş Bilgilerinizi Kontrol Edin!');
end;

end.

[hi_selamlar]

Merhaba,

1) INI dosyası kullanabilirsiniz.
2) Text dosyayı ListBox içerisine alıp arama yapabilirsiniz.

Kod: Tümünü seç

Aynnı konuyu birden fazla açmak size çözüm kazandırmaz. 
Bu nedenle tek topic açıp takip etmek daha yararlı olacaktır.

Kolay gelsin.

[ertank]

Aşağıdaki şekilde bir kod yazmanız mümkün olabilir.

Kod: Tümünü seç

procedure TForm1.btnGirisClick(Sender: TObject);
begin
  AssignFile(dosya,'pass.txt');
  Reset(dosya);
  try
    Readln(dosya,pass);
  finally
    CloseFile(dosya);
  end;

  if txtSifre.Text = pass then 
    ShowMessage('Giriş Başarılı!')
  else 
    ShowMessage('Lütfen Giriş Bilgilerinizi Kontrol Edin!');
end;