åben filer

Filnavnet bliver vist sendt som parameter 1. Så hvis du i FormCreate skriver:

if ParamCount > 1 then
  if FileExists(ParamStr(1))
    ListBox1.Items.LoadFromFile(Param(1));

tror jeg det virker :o)

virker ik :(

if ParamCount > 1 then
  if FileExists(ParamStr(1)) then
    ListBox1.Items.LoadFromFile(ParamStr(1));

den siger fejl her:
ListBox1.Items.LoadFromFile(Param(1));

skal det være
ListBox1.Items.LoadFromFile(ParamStr(1)); ?? men det virker ik

Hvis du skal tilføje til din listbox skal det så ikke være

listbox1.Items.Add(ParamStr(1));

Det er ikke testet

Stoney

hasan: Jeg synes det er lidt fantasiløst at du stiller dit spørgsmål her - det er ok, men du kunne have prøvet at lege lidt med ParamCount, ParamStr og med CmdStr forinden, eksempelvis sådan her:

procedure TfrmMain.FormCreate(Sender: TObject);
var
  i : integer;
begin
  with lbParameters do begin // (hvilket er en ListBox)
    for i := 0 to ParamCount do
      Items.Add(ParamStr(i));

    Items.Add('');

    Items.Add(CmdLine);
  end;
end;

Dernæst kunne du prøve at kontrollere stieen mod det katalog hvor dit program køres. Hvad hvis programmet fodres med 'spilmig.ps' men at det ikke ligger i "current directory"?


Kataloget findes således:

var
  st : string;
begin
  GetDir(0,st);
...

Du kunne også singlesteppe dig igennem programmet med f7 og f8, sætte breakpoints med f5 og så videre.

Der var lidt brok iblandt, men også nogle råd. Håber de kan hjælpe dig.

det virker nu :) tak for hjælpen

hvis du lige laver et svar så kan du få dine point

hehe lige lidt sent.. men her et svar. :P