OpenDialog ile klasor ismi

[CiTiZEN]

Slmlar Arkadaşlar OpenDialog Kontrolü ile hertürlü dosyanın ismini alıyorum fakat klasor ismi alamıyorum bi kalsorun ismini alıp bi edite yazdırsam yeteli benim için yardımlarınız için şimdiden tşkler..

[deltas]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  openDialog : TOpenDialog;
  i : Integer;
begin
  openDialog := TOpenDialog.Create(self);
  openDialog.InitialDir := GetCurrentDir;
    if not openDialog.Execute
  then ShowMessage('hata')
  else
  begin
  ShowMessage(openDialog.Files.GetText);
  end;
  openDialog.Free;
end;

[CiTiZEN]

Hocam Saolun Kodlar için ama sürekli hata alıyorum butona tıklıyorum klasor seçiyorum habire klasorun içine girio yolu alamıyorum

[deltas]

klasörün içinde dosya seçtiğinizde seştiğiniz dosyanın tam ismini ve yolunu yazar.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  openDialog : TOpenDialog;
  i : Integer;
begin
  openDialog := TOpenDialog.Create(self);
  openDialog.InitialDir := GetCurrentDir;
    if not openDialog.Execute
  then ShowMessage('hata')
  else
  begin
  edit1.text:= openDialog.Files.GetText;
  end;
  openDialog.Free;
end;

yani unit2'yi seçtiğimde bu şekilde yazıyor.

C:\Program Files\Borland\Delphi7\Projects\Unit2.dcu

[CiTiZEN]

Hımm hocam saolun bunu alabiliyorum ama örneğin opendialog butonuna tıklayınca C:\Windows\system32 içerisinde bi dosya seçmeden sadece bu yolu alabilirmiyim bole bişey war mı

[deltas]

kusra bakma sorunu yanlış anlamışım. bu işini görür herhalde;

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);

var
  dosad: String;
begin
  SelectDirectory('klasör seç', '', dosad);
  ShowMessage(dosad);
end;

uses filectrl eklemelisin

[CiTiZEN]

Ha Hocam hiç önemli deil yanlış anlama gerçekten işimi gordu baya saolun Allah razı olsun

[Search]

jedinin jvdialogs sekmesinde bulunan

Kod: Tümünü seç

JvBrowseForFolderDialog1

componentini de kullanabilirsin...

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   if JvBrowseForFolderDialog1.Execute then
      begin
        Edit1.Text:=JvBrowseForFolderDialog1.Directory;
    end;
  end;
end.

[CiTiZEN]

Ewet o panelde oldugunu hatırladım şimdi hocam hatırlatma için saolun

[F.Atagun]

Hocam çözülmüş ama ben şu şekilde alıyorum

Kod: Tümünü seç

Edit1.Text:=GetCurrentDir;

[CiTiZEN]

Ya aslında bu benım aklıma hiç gelmemişti bu da arşivde dursun lazım olur bir gün düşünüp yazdığınız için saolun.

[mrtblt]

Merhaba

Bende edit icerisine sadece dosya ismini yazdirmak istiyorum. Yani path gorunmesin. Bunu nasil yapabilirim?

[conari]

daha kısa yolu vardır belki.

Kod: Tümünü seç

uzy:=lenght(OpenDialog.filename);
uzx:=lenght(OpenDialog.filepath);
dosya:=right(OpenDialog.filename,uzy-uzx);

[mrtblt]

Bunlarin data tipleri nedir hocam, yani var altinda nasil tanimlamak lazim?

Ayrica soyle bir komutum var

Kod: Tümünü seç

dbedit1.text := openDialog.FileName

sectigim dosya ismi (tablo insert durumunda) dbedit1 icine yaziliyor. Ama mouse ile dbedit1'e tiklayip aktiflestirmek istedigimde icine yazili olan dosya adi siliniyor.

Bunu nasil halledebilirim?

[conari]

dediğin gibi dbedit1 e yazılıyor vtye değil.
Post etmen lazım.

Değişkenlerin ikisi integer diğeri string;