Работа с OpenDialog

@EvansProject · Регистрация: 09.02.2013

Author24 — интернет-сервис помощи студентам

Ребят, кому не трудно, подскажите как написать открытие файла через OpenDialog?
Пишу курсовую, кодировка текста, и мне нужно чтобы я мог выбрать текстовый файл.

@ILNAR_93 · 24.04.2013, 17:36

Delphi

1 2	if OpenDialog1.execute then showmessage(OpenDialog1.filename);

@Waddonator · 24.04.2013, 17:37

Delphi

1
2
3

If OpenDialog1.Execute then begin
   <ваши действия>
end;

название выбранного файла хранится в OpenDialog1.FileName

@EvansProject · 24.04.2013, 17:58 **[ТС]**

Спасибо, вспомнил.
Вот как это выглядит.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  showmessage (OpenDialog1.FileName);
end;

24.04.2013, 20:32

procedure TForm1.N5Click(Sender: TObject);
begin
OpenDialog1.Title:=’відкрити файл’;
If OpenDialog1.Execute then
begin
assignFile(F,OpenDialog1.FileName);
Reset(F);
n:=1;
end;
end.
папробуй если че пишы где ошибка

@EvansProject 4 / 4 / 0 Регистрация: 09.02.2013 Сообщений: 14
		1
	Работа с OpenDialog 24.04.2013, 17:22. Показов 1495. Ответов 4 Метки нет (Все метки) Ребят, кому не трудно, подскажите как написать открытие файла через OpenDialog? Пишу курсовую, кодировка текста, и мне нужно чтобы я мог выбрать текстовый файл. 0

anri11
	24.04.2013, 20:32	5
	procedure TForm1.N5Click(Sender: TObject); begin OpenDialog1.Title:=’відкрити файл’; If OpenDialog1.Execute then begin assignFile(F,OpenDialog1.FileName); Reset(F); n:=1; end; end. папробуй если че пишы где ошибка