programımın bulunduğu dizinde ek.pth adında bir dosyam var bunun içinde bir dosya konumu bulunmakta "C:\DATS\Dosyalar" şeklinde tırnaksız tabi ben bunu global değişkenlerle mypath :string ve list_ek:TStringList
Kod: Tümünü seç
MyPath:=Extractfilepath(Application.ExeName);
Liste_Ek:=TStringList.Create;
If FileExists(MyPath+'ek.pth') Then
Liste_Ek.LoadFromFile(MyPath+'ek.pth');
Kod: Tümünü seç
Edt_Dosya_Yolu.Text:=OpenDialogPDF.FileName; //C:\DATS\Dosyalar\1.tif seçiliyor
Edt_OCR.Text:=Liste_Ek.Text+'\'+LeftStr(ExtractFileName(OpenDialogPDF.FileName),(length(ExtractFileName(OpenDialogPDF.FileName)))-length(rightstr(ExtractFileName(OpenDialogPDF.FileName),4)))+'.txt'; //Bu kod Edt_OCR a C:\DATS\Dosyalar\1.txt şeklinde yazıyor