Code:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
If (OpenDialog1.Execute) Then
Begin
for I := 0 to opendialog1.files.Count - 1 do
begin
showmessage(OpenDialog1.Files[i]);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
If (OpenDialog1.Execute) Then
Begin
for I := 0 to opendialog1.files.Count - 1 do
begin
showmessage(OpenDialog1.Files[i]);
end;
end;
end;
Ovaj primer ispisuje putanju selektovanih fajlova.
Kako preko ShowMessage da prikazem putanje i selektovanih foldera a ne samo fajlova iz Open Dialog-a?