gem i en bestem sti

Du kan ogsaa bruge ParamStr(0) i stedet for Application.ExeNane:

Function AppPath(): string;
begin
Result := ExtractFileDir( Paramstr(0) );
end;

Husk at du skal indsaeete en backslash mellem sti og filnavn: '\\Filnavn'! I baade i Casper's og mit eksempel

Grunden til at jeg ville foretraekke ParamStr(0), er, fordi den ikke er afhaengig af, at du har en applikation i dit projekt. Det vil sige at den kan bruges i alle units og DLL filer, der ikke har direkte tilknytning til din applikation eller specielt designet til dit projekt!

ja, men hvordan for jeg gemt alt det i min listbox?

Med min kode:
ListBox1.Items.SaveToFile(AppPath +'filnavn');

Med Sørens kode:
ListBox1.Items.SaveToFile(AppPath +'\\filnavn');

--> Søren, hvis du tvivler mig, så prøv lige:
ShowMessage(ExtractFilePath(Application.ExeName));
ShowMessage(ExtractFileDir(Application.ExeName));

og ja, du har ret, paramstr(0) er nok smartere...

Casper

Samme mappe som dit program:

Function AppPath(): string;
begin
  result := ExtractFilePath(Application.Exename);
end;

Casper

ja, men hvordan for jeg gemt alt det i min listbox?

ListBox1.Items.SaveToFile('Filnavn');

Casper>> Ups! Havde ikke lige set at du brugte ExtractPath() Min fejl