Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
nyxem
0 / 0 / 0
Регистрация: 19.10.2014
Сообщений: 5
#1

Не работает кнопка "открыть" - Delphi

14.12.2014, 15:30. Просмотров 328. Ответов 4
Метки нет (Все метки)

Помогите найти проблему=( Кнопка открыть не открывает текстовый файл. Она сама по себе нажимается , папка для выбора открывается но когда выбираю сам файл он просто не загружается в мемо

http://www.cyberforum.ru/delphi-beginners/thread1446999.html
Не работает кнопка "открыть"

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Printers, StdCtrls;
 
type
  TForm1 = class(TForm)
    dlgOpen1: TOpenDialog;
    dlgSave1: TSaveDialog;
    dlgPnt1: TPrintDialog;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    btn5: TButton;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 var FName:string;
 F: TextFile;
 S:string;
procedure TForm1.btn1Click(Sender: TObject);
begin
fName:='Text1';
dlgSave1.FileName:=FName;
if dlgSave1.Execute then
begin
fName:=dlgSave1.FileName;
case dlgSave1.FilterIndex of
1:fName:=fName+'.txt';
2:fname:=fname+'.doc';
 
end;
mmo1.Lines.SaveToFile(fName);
end;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
if dlgPnt1.Execute then
begin
assignPrn(f);
Rewrite(f);
Writeln(f,Mmo1.Text);
System.CloseFile(f);
end;
 
end;
procedure TForm1.btn4Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.btn5Click(Sender: TObject);
begin
mmo1.Text:='';
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
 if dlgOpen1.Execute then
 begin
  FName:=dlgOpen1.fileName;
  case
  dlgOpen1.FilterIndex of
  1:fName:=fName+'.txt';
  2:fName:=fName+'.doc';
 end;
 
end;
mmo1.Text:=FName;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2014, 15:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Не работает кнопка "открыть" (Delphi):

Кнопка "открыть"
Помогите... Как в делфи сделать так чтобы заработала кнопка "открыть"... В свой...

Сделать кнопку "Далее" некликабельной пока не нажата кнопка "Старт"
Подскажите пожалуйста)

Написать программы "Кнопка – прыгун", "Воздушный шарик"
Нужно срочно сделать хоть один !!! ПЛЗ Задание. Создать на одной форме...

На форме располагаются компоненты: редакторы Edit и Memo, Label, ListBox, кнопка "Да" и кнопка Close
На форме располагаются компоненты: редакторы Edit и Memo, Label, ListBox, ...

Кнопка "сохранить": EInOutError with message "I/O Error 32"
procedure TForm1.Button4Click(Sender: TObject); //сохранение результата...

4
NT SERVICE
117 / 117 / 39
Регистрация: 27.01.2013
Сообщений: 471
14.12.2014, 16:16 #2
Цитата Сообщение от nyxem Посмотреть сообщение
просто не загружается в мемо
А, где Ты его загружаешь?
Delphi
1
mmo1.Text:=FName;
Здесь, что-ли? Тогда может, так:
Delphi
1
mmo1.Lines.LoadFromFile(FName);
0
nyxem
0 / 0 / 0
Регистрация: 19.10.2014
Сообщений: 5
14.12.2014, 23:13  [ТС] #3
Цитата Сообщение от NT SERVICE Посмотреть сообщение
Здесь, что-ли? Тогда может, так:
Код Delphi
1
mmo1.Lines.LoadFromFile(FName);
Ошибку выдает :
Не работает кнопка "открыть"
0
NT SERVICE
117 / 117 / 39
Регистрация: 27.01.2013
Сообщений: 471
14.12.2014, 23:25 #4
Цитата Сообщение от nyxem Посмотреть сообщение
Ошибку выдает :
Это - понятно. Сам не видишь из-за чего?
0
nyxem
0 / 0 / 0
Регистрация: 19.10.2014
Сообщений: 5
14.12.2014, 23:27  [ТС] #5
А все решил проблему , спасибо!
0
14.12.2014, 23:27
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2014, 23:27
Привет! Вот еще темы с решениями:

Кнопки "сохранить" и "открыть" рисунок
Есть программа, графический редактор сделаный с использованием painbox. Как в...

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак",
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном...

На форме располагаются компоненты: редактор Edit; линейка ScrollBar; радионабор с опциями "Цветы", "Деревья", "Рыбы", "Звери"
Доброго времени суток, 2 курс 2 семестр, пришли, препод раздал задачи, сказал...

Кнопка "Undo" и "Open"
Всем привет! Я еще новичок в Делфи. Но надо же когда то учиться)) Пытаюсь...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru