Astuces
- String - Réduire
un nom de dossier en Delphi
Ajoutez un composant TLabel
et TButton.
Uses
FileCtrl;
procedure TForm1.Button1Click(Sender: TObject); Var St:String; begin
St:='c:\test1\test2\test3\test4\';
Label1.Caption:=MinimizeName(St,Form1.Canvas,100); end;