Åbne flere filer på en gang

Hvor har du DoOpenFile-proceduren fra?

Brug en OpenDialog:

var
  I: Integer;
begin
  for I := 1 to OpenDialog1.Files.Count do begin
    DoOpenFile(OpenDialog1.Files[I-1])
  end;
end;

det skulle gøre det...

måske lidt mere korrekt:

var
  I: Integer;
begin
  if OpenDialog1.Execute then begin
    for I := 1 to OpenDialog1.Files.Count do begin
      DoOpenFile(OpenDialog1.Files[I-1])
    end;
  end;
end;

Laver den selv:
procedure DoOpenFile(Filename: String);

...

procedure TMainForm.DoOpenFile(FileName: String);
begin
DinMemo.Lines.LoadFromFile(Filename);
end;

Bare et eksempel :D

Arh... Nu er jeg helt med... Troede nemlig også at det var fordi du ville åbne filerne i de programmer de er sat til som default... ;)

Så er easysoft_studios' metode næsten lige efter bogen... Den burde nok se således ud:

var
  I: Integer;
begin
  if OpenDialog1.Execute then
  for I := 0 to OpenDialog1.Files.Count -1 do
    DoOpenFile(OpenDialog1.Files.Strings[I]);
end;

Jeg har gjort det at jeg kun laver en udregning i steder for I-1, og så skal der stå OpenDialog1.Files.Strings[I], ikke OpenDialog1.Files[I]! ;)

//hermandsen

Hermandsen > easysoft_studios' eksempel virker fint....Men du får dog 5 point for dit xtra eksempel. Det er jo meget rart at vide der er mere end 1 mulighed :D

Hmmm... Fusker metode! ;)

Nå, men takker da for point! ;)

hehe......np :D

jep, der gør det :D

takker for point :)