string uzunluğu 10 dan uzunda 10'a kısalmak

[carsoft]

String dosya ismi uzunlugu 10 dan büyükse 10' harfe nasıl kısaltabilirim

Mesela :

Kod: Tümünü seç

C:\Program Files\Windows Defender\en-US\denemedosya.txt

Kod: Tümünü seç

C:\Program Files\..\en-US\denemedosya.txt

gibi kısaltmak istiyorum

[ertank]

Merhaba,

FileCtrl içindeki MinimizeName() Delphi standart fonksiyonunu kullanabilirsiniz. Örnek uygulama ektedir. Özetle;
- uses kısmına FileCtrl eklenir.
- Dosya adı gösterilecek TLabel.AutoSize özelliği False yapılır.
- Dosya adı gösterilecek TLabel.Width istenilen genişliğe ayarlanır.
- FileCtrl.MinimizeName() fonksiyonu kullanılarak dosya adı gösterilir.

Kod: Tümünü seç

  Label4.Caption := MinimizeName(Edit1.Text, Label4.Canvas, Label4.Width);

[carsoft]

evet sağol ertan abi sayende