Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites

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;


Tous droits réservés - Contacts
Haut de la page