Avatar billede tankbilligt.dk Nybegynder
19. januar 2004 - 21:56 Der 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 ?
Avatar billede snowball Novice
19. januar 2004 - 21:58 #1
Brug en OpenDialog fra Dialogs fanebladet.

procedure TForm1.Button1Click(Sender: TObject);
begin
  If OpenDialog1.Execute Then
    ShowMessage('Du valgte filen ' + OpenDialog1.FileName);
end;
Avatar billede tankbilligt.dk Nybegynder
19. januar 2004 - 22:03 #2
Hvor bliver stien gemt ?
Avatar billede snowball Novice
19. januar 2004 - 22:18 #3
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;
Avatar billede tankbilligt.dk Nybegynder
19. januar 2004 - 22:31 #4
Kan den ikke smide værdien over i en Edit1.text ?
Avatar billede snowball Novice
20. januar 2004 - 09:07 #5
Jo, så skriver du bare Edit1.Text := Dir; eller Edit1.Text := OpenDialog1.FileName; - alt efter hvilken en af dem du bruger :)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester