RAD Studio VCL Reference
|
List of selected file names.
property Files: TStrings;
__property TStrings Files;
Files is a string list that contains each selected file name with its full directory path. (To let users select multiple file names, set the ofAllowMultiSelect flag in Options.) Use properties and methods for string lists to traverse this list of files and read individual items.
The example below assigns the list of files in Files to the Items property of a TListBox component.
ListBox1.Items.Assign(OpenDialog1.Files);
ListBox1->Items->Assign(OpenDialog1->Files);
C++ Examples:
/* This example uses an Open dialog box, a memo, and a button on a form. When the user clicks the button, the Open dialog box appears. When the user selects files in the dialog box and chooses the OK button, the first line from each of the files is added to the memo. Choose multiple files using the CNTL key or the SHIFT key. */ #include <stdio.h> // for FILE void __fastcall TForm1::Button1Click(TObject *Sender) { FILE *stream; char FirstLine[512]; OpenDialog1->Options.Clear(); OpenDialog1->Options << ofAllowMultiSelect << ofFileMustExist; OpenDialog1->Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"; OpenDialog1->FilterIndex = 2; // start the dialog showing all files if (OpenDialog1->Execute()) { for (int I = 0; I < OpenDialog1->Files->Count; I ++) { stream = fopen(AnsiString(OpenDialog1->Files->Strings[I]).c_str(), "r"); if (stream) { // read the first line from the file fgets(FirstLine, sizeof(FirstLine), stream); Memo1->Lines->Append(FirstLine); fclose(stream); } } } }
/* This example uses a tab control to display the contents of several files. To run the example, place a tab control on a form and add a memo control that fits into its client area. Be sure to leave enough room for the tabs when they appear. Then add an OpenDialog and a button to the form. The "Add a file" button adds a single file to the tabcontrol. The "Assign files" button removes previous files and can be used to assign multiple files. To assign multiple files, use CNTL Select or SHIFT Select to select files in the OpenDialog. */ void __fastcall TForm1::Add_a_fileClick(TObject *Sender) { OpenDialog1->Options << ofAllowMultiSelect << ofFileMustExist << ofHideReadOnly; if (OpenDialog1->Execute()) { int index = TabControl1->Tabs->Add(OpenDialog1->FileName); Memo1->Lines->LoadFromFile(TabControl1->Tabs->Strings[index]); TabControl1Change(Sender); } } void __fastcall TForm1::Assign_filesClick(TObject *Sender) { OpenDialog1->Options << ofAllowMultiSelect << ofFileMustExist << ofHideReadOnly; if (OpenDialog1->Execute()) { TabControl1->Tabs->Assign(OpenDialog1->Files); Memo1->Lines->LoadFromFile(TabControl1->Tabs->Strings[TabControl1->TabIndex]); } } /* Place the following code in the tab control’s OnChange event handler: */ void __fastcall TForm1::TabControl1Change(TObject *Sender) { Memo1->Lines->LoadFromFile( TabControl1->Tabs->Strings[TabControl1->TabIndex]); }
Delphi Examples:
{ This example uses an Open dialog box, a memo, and a button on a form. When the user clicks the button, the Open dialog box appears. When the user selects files in the dialog box and chooses the OK button, the first line from each of the files is added to the memo. Choose multiple files using the CNTL key or the SHIFT key. } procedure TForm1.Button1Click(Sender: TObject); var I: integer; F: TextFile; FirstLine: string; begin OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist]; OpenDialog1.Filter := 'Text files (*.txt)|*.txt|All files (*.*)|*.*'; OpenDialog1.FilterIndex := 2; { start the dialog showing all files } if OpenDialog1.Execute then with OpenDialog1.Files do for I := 0 to Count - 1 do begin AssignFile(F, Strings[I]); { next file in Files property } Reset(F); Readln(F, FirstLine); { Read the first line out of the file } Memo1.Lines.Append(FirstLine); { Add the line to the memo } CloseFile(F); end; end;
{ This example uses a tab control to display the contents of several files. To run the example, place a tab control on a form and add a memo control that fits into its client area. Be sure to leave enough room for the tabs when they appear. Then add an OpenDialog and a button to the form. The "Add a file" button adds a single file to the tabcontrol. The "Assign files" button removes previous files and can be used to assign multiple files. To assign multiple files, use CNTL Select or SHIFT Select to select files in the OpenDialog. } procedure TForm1.Add_a_fileClick(Sender: TObject); var index : integer; begin OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist, ofHideReadOnly]; if OpenDialog1.Execute then begin index:= TabControl1.Tabs.Add(OpenDialog1.FileName); Memo1.Lines.LoadFromFile(TabControl1.Tabs[index]); TabControl1Change(Sender); end; end; procedure TForm1.Assign_filesClick(Sender: TObject); var index : integer; begin OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist, ofHideReadOnly]; if OpenDialog1.Execute then begin TabControl1.Tabs.Assign(OpenDialog1.Files); Memo1.Lines.LoadFromFile( TabControl1.Tabs[TabControl1.TabIndex]); end; end; { Place the following code in the tab control’s OnChange event handler: } procedure TForm1.TabControl1Change(Sender: TObject); begin with TabControl1 do Memo1.Lines.LoadFromFile(Tabs[TabIndex]); end;
Copyright(C) 2009 Embarcadero Technologies, Inc. All Rights Reserved.
|
What do you think about this topic? Send feedback!
|