Txt dosyası bulunamadı

[ahmetb]

Merhaba, db yolunu "DBAdres.txt" alacağım fakat,
First chance exception at $74B41812. Exception class EFOpenError with message 'Cannot open file "C:\Users\Ahmet\Desktop\Projeler\Sistem Sqlite VCL\Win32\Debug\DBAdres.txt". Sistem belirtilen dosyayı bulamıyor'. hatası alıyorum bu sorunu nasıl çözerim???

procedure TForm3.DBAdresTxt(Sender: TObject);
var
  SList: TStrings;
begin
  SList := TStringList.Create;
  try
    SList.LoadFromFile(ExtractFilePath(Application.Exename) + '\DBAdres.txt');
    if fileexists(SList.Text) then // Klasör var mı?
    begin
      showmessage('Var');
    end
    else
    begin
      showmessage('Yok');
    end;
  finally
    SList.Free;
  end;
end;

[meko]

   SList.LoadFromFile(ExtractFilePath(Application.Exename) + 'DBAdres.txt');

olarak dene

[ahmetb]

(28-12-2018, Saat: 20:56)meko Adlı Kullanıcıdan Alıntı:

   SList.LoadFromFile(ExtractFilePath(Application.Exename) + 'DBAdres.txt');

olarak dene

Durumu fark ettim fakat siz benden önce cevap yazmışsınız   
Sorun txt dosyası yoksa, Sistem belirtilen dosyayı bulamıyor'. hatası alıyorum

procedure TForm3.DBAdresTxt(Sender: TObject);
var
  SList: TStrings;
begin
  SList := TStringList.Create;
  try
    SList.LoadFromFile(ExtractFilePath(Application.Exename) + 'DBAdres.txt');
    if Not fileexists(SList.Text) then // Klasör var mı?
    begin
      showmessage('Var');
    end
    else
    begin
      showmessage('Yok');
    end;
  finally
    SList.Free;
  end;
end;

[meko]

sıralama hatalı gibi, dosya var/yok kontrolünden önce slist'e load yapıyorsun
önce dosyanın varlığını kontrol et
varsa slist'e load yap
yoksa dosya yok mesajı ver

[ahmetb]

Teşekkürler

[ahmetb]

(29-12-2018, Saat: 01:10)okoca Adlı Kullanıcıdan Alıntı:

procedure TForm3.DBAdresTxt(Sender: TObject);
var
 SList: TStrings;
begin
 SList := TStringList.Create;
 try
   SList.LoadFromFile(ExtractFilePath(Application.Exename) + 'DBAdres.txt');

  if Not DirectoryExists(ExtractFilePath(Application.Exename)) Then 
 Begin
    // bu klasörünün varlığını kontrol eder, FileExists dosya varlığını kontrol eder 2 si farklı şeyler, 
    // sizin aşağıda klasör varmı yazısına istinaden yazıyorum.
 End;


   if Not fileexists(SList.Text) then // Klasör var mı?
   begin
     showmessage('Var');  // eğer if den sonra not tanımlarsan, yoksa olur, yani eğer dosya yoksa, sen burada var demişsin
   end
   else
   begin
     showmessage('Yok');
   end;


 finally
   SList.Free;
 end;
end;

ilginize teşekkür ederim sorunu çözmüştüm.

procedure TForm1.DBTxtAdres(Sender: TObject);
var
  dbYol: String;
  SList: TStrings;
begin
  SList := TStringList.Create;
  try
    if FileExists(ExtractFilePath(Application.Exename) + 'DBAdres.txt') then
    begin
      dbYol := ExtractFilePath(Application.Exename) + 'DBAdres.txt';
      SList.LoadFromFile(dbYol);
         databasebul := SList.Text;
    end
    else
    begin
      MessageLabel.Font.Color := clRed;
      MessageLabel.Caption := 'Databaseye bağlantı kurulamadı';
    end;
  finally
    SList.Free;
  end;
end;