|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.01.2008, 20:10 | #1 |
Пользователь
Регистрация: 28.12.2007
Сообщений: 18
|
Помогите с OpenDialog!
Короче в программе я хочу сделать так, чтобы можно было открывать и сохранять файлы..Вот сталкнулсо с первой проблемой...
Первая - я написал в описании переменных private: private Order: TOrder; //Порядок определителя f: file of real; REC: real; Программа постоянно ругается еще на TOrder...Как исправить, чтоб пахало норм? Вторая - это часть кода открытия файла. Делфи постоянно ругается на неизвестный индефикатор CreateForm2! Как ето исправить? var x: string; begin if OpenDialog1.Execute then begin AssignFile(f,OpenDialog1.FileName); Reset(f); CreateForm2(); Read(f,REC); x:=FloatToStr(REC); Order:=StrToInt(x); StringGrid1.ColCount:=Order; StringGrid1.RowCount:=Order; StringGrid2.RowCount:=Order; for i:=0 to Order-1 do for j:=0 to Order-1 do begin Read(f,REC); StringGrid1.Cells[j,i]:=FloatToStr(REC); end; for i:=0 to Order-1 do begin Read(f,REC); StringGrid2.Cells[0,i]:=FloatToStr(REC); end; Read(f,REC); for i:=0 to Order-1 do begin Read(f,REC); Val.InsertRow('x['+IntToStr(i)+']',FloatToStr(REC),true); end; CloseFile(f); end; end; |
17.01.2008, 20:22 | #2 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
Ну, так Delphi не знает типа TOrder (замени на integer) и функции CreateForm2(), что она должна делать?
|
17.01.2008, 20:25 | #3 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
CreateForm2() - что это такое и зачем оно надо?
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
|
17.01.2008, 21:08 | #4 |
Пользователь
Регистрация: 28.12.2007
Сообщений: 18
|
|
17.01.2008, 21:28 | #5 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
создать новую форму: File->New->Form
Показать на экране: Form2.Show; или Form2.Visible:=True; это одно и то же |
17.01.2008, 21:30 | #6 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
Код:
А насчет открытия формы: Form2.Show;
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
|
17.01.2008, 21:39 | #7 |
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
Во избежание ошибок с работой assignfile, reset, rewrite, closefile - манипулируйте директивами тобиш отключаете {$I-} нет ошибок, включаете {$I+} - проверка есть
|
17.01.2008, 21:53 | #8 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
+1
тогда для проверки на ошибку используйте функцию IOResult. Если IOResult=0, то нет ошибки. Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
работа с Opendialog | ZhekON | Компоненты Delphi | 4 | 14.06.2013 15:21 |
OpenDialog.Filter | Artificial | Общие вопросы Delphi | 5 | 17.06.2008 00:00 |
OpenDialog | Андрей= | Компоненты Delphi | 6 | 03.05.2008 15:06 |
OpenDialog | Rahim1993 | Общие вопросы Delphi | 20 | 21.01.2008 08:26 |
OpenDialog.Options:=OpenDialog.Options+[ofAllowMultiSelect]; | necky | Компоненты Delphi | 2 | 11.08.2007 12:53 |