19. januar 2004 - 21:56Der er
4 kommentarer og 1 løsning
vælg fil og gem stien
Jeg har følgende som kan vælge en mappe...
uses FileCtrl;
procedure TForm1.Button1Click(Sender: TObject); var Dir: String; begin if SelectDirectory('', '', Dir) then ShowMessage('Du har valgt mappen:'#13#10 + Dir); end;
Jeg ønsker dog at kunne vælge en enkelt fil, hvordan gøres dette ?
Hele stien inkl. navnet på filen ligger i OpenDialog1.FileName - det kan du så evt. bare smide over i en normal String variabel.
Hvis du øsnker at kunne vælge 1 fil, men så bare vil have selve stien - altså uden navnet på filen, så gør som nedenstående:
procedure TForm1.Button1Click(Sender: TObject); var Dir: String; begin If OpenDialog1.Execute Then Begin Dir := ExtractFilePath(OpenDialog1.FileName); Showmessage('Stien til valgte fil: ' + Dir); End; end;
Jo, så skriver du bare Edit1.Text := Dir; eller Edit1.Text := OpenDialog1.FileName; - alt efter hvilken en af dem du bruger :)
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.