OpenDialog ile klasor ismi

[mrtblt]

right ve filepath icin syntax hatasi aliyorum

Kod: Tümünü seç

[Pascal Error] offer_files.pas(104): E2003 Undeclared identifier: 'filepath'
[Pascal Error] offer_files.pas(105): E2003 Undeclared identifier: 'rights'

[conari]

"rights" değil "right" yani sağ anlamında.
diğerini eksik yazmışım..

Kod: Tümünü seç

uzx:=lenght(ExtractFilePath(OpenDialog.FileName)); 

[mrtblt]

Merhaba

Kodu bu sekilde yazdim

Kod: Tümünü seç

 
uzy:=length(OpenDialog.filename);
uzx:=length(ExtractFilePath(OpenDialog.FileName));
dosya:=right(OpenDialog.filename,uzy-uzx);

Degisken tanimlamalarimda asagidaki gibi

Kod: Tümünü seç

 
str80,dosya     : string;
uzy,uzx         : integer;

ama right ile alakali syntax hatasi hala devam ediyor.

[conari]

pardon

Kod: Tümünü seç

rightstr()

olacaktı

bir excel vba bir delphi olunca karışıyor ama sizde baksaydınız. tamamen hazır kod oldu bu.

[mrtblt]

yardimlarin icin cok tesekkurler ama baktim bende.
Hatta birazonceki rights'in sonundaki s de oradan kalmisti. Cunku o haldede hata veriyor .

[barutali]

Merhaba

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

aşağıdaki kodda alternatif olabilir ..

Kod: Tümünü seç

var
  s : widestring;
begin
if OpenDialog1.Execute then
 begin
   s := ExtractFileName(OpenDialog1.FileName); // ExtractFileName fonksiyonu path den sadece dosya adını almaya yarar ..
   Edit1.Text := s;
 end

;

[akuyumcu63]

merhaba;
bu başlığı açan ve cevap yazan herkese teşekkürler.