var filla : integer; filnavn : String; begin if OpenDialog1.Execute then begin filnavn:=OpenDialog1.FileName; filla:=length(ExtractFilepath(OpenDialog1.FileName)); delete(FilNavn,1,filla); text.caption:=FilNavn; end; end;
ExtractFileName skulle kunne gøre både filnavn og extension, jvf. hjælpeteksten i Delphi.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.