|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
09.01.2011, 16:54 | #1 (permalink) |
Novel user
Регистрация: 16.04.2010
Сообщений: 568
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1149
|
Как открывать файлы в делфи 7?
|
09.01.2011, 16:54 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Форум наполнен схожими обсуждениями Помогите с Делфи Теория Делфи. Делфи: массив, файлы Обозреватели перестали открывать https:// Joomla перестал открывать все материалы |
09.01.2011, 17:03 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
OpenDialog
или стандартные паскалевские процедуры работы с файлами.
__________________
Убить всех человеков! |
09.01.2011, 17:30 | #4 (permalink) |
Novel user
Регистрация: 16.04.2010
Сообщений: 568
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1149
|
Кстати вот мой код:
var F: TextFile; S: string; begin if OpenDialog.Execute then AssignFiie(F, OpenDialog.FileName) else Exit; Reset(F); while Not EOF(F) do begin Readln(F, S) ; Memo.Lines.Add(S); end; |
09.01.2011, 17:45 | #5 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Вот мой код, обрабатывает нажатие кнопки:
Код:
var f:textfile; s:string; begin OpenDialog1.Execute; Edit1.Text:=OpenDialog1.FileName; AssignFile(f,OpenDialog1.FileName); Reset(f); Readln(f,s); Memo1.Lines.Add(s); end; |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
09.01.2011, 18:14 | #6 (permalink) |
Novel user
Регистрация: 16.04.2010
Сообщений: 568
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1149
|
Такой всё равно не компилируется.
[Error] Unit1.pas(31): Undeclared identifier: 'OpenDialog' [Error] Unit1.pas(31): Missing operator or semicolon [Error] Unit1.pas(32): Missing operator or semicolon [Error] Unit1.pas(33): Incompatible types [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas' Вот выдаваемые ошибки. |
09.01.2011, 18:25 | #7 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Ну во-первых, у вас компонент называется OpenDialog, а у меня OpenDialog1. Вы этот код куда записали? Выложите весь код со страницы.
|
09.01.2011, 18:35 | #8 (permalink) |
Novel user
Регистрация: 16.04.2010
Сообщений: 568
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1149
|
Вот код всеёй страницы. ено мне необходимее чтоб открывались не только текстовые файлы но и другие
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var F: TextFile; S: string; begin if OpenDlg.Execute then AssignFiie(F, OpenDlg.FileName) else Exit; Reset(F); while Not EOF(F) do begin Readln(F, S) ; Memo.Lines.Add(S); end; end. Для того чтобы открывались и другие файлы бдостаточно писать var UntypedFile: file; |
09.01.2011, 19:40 | #10 (permalink) |
404
Регистрация: 10.01.2010
Сообщений: 1,749
Записей в дневнике: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3868
|
собственно вот:
Запуск файлов function ExecuteFile(const FileName, Params, DefaultDir: string; ShowCmd: Integer): THandle; var zFileName, zParams, zDir: array[0..79] of Char; begin Result := ShellExecute(Application.MainForm.Handle, nil, StrPCopy(zFileName, FileName), StrPCopy(zParams, Params), StrPCopy(zDir, DefaultDir), ShowCmd); end; У этой функции есть 4 параметра: • ConstFileName – полный путь к -exe файлу. • Params – параметр с которым надо запускать -exe файл. • DefaultDir - Директория по умолчанию, с которой должна работать программа. Если директория не указана, то будет использоваться та, в которой находится запускаемый файл. • ShowCmd - Способ отображения запущенного файла. К примеру ShowWindow. Пример использования функции: procedure TForm1.SpeedButton3Click(Sender: TObject); begin ExecuteFile('C:\Program Files\ArtIcons Pro\ARTICONS.exe','','C:\Program Files\ArtIcons Pro',SW_SHOW); end; Для работы этой функции надо в раздел USES - добавить ShellAPI. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|