Вопрос о компонентом TOpenDialog и TGrid

← →
boby_g (2002-12-31 12:42) [0]

В моей форме находятся три компонента:
OpenDialog1: TOpenDialog;
Grid1: TGrid;
btnOpenFile: TButton;
btnOpenColumn: TButton;
btnSaveColumn: TButton;

и следующие процедури:

procedure btnOpenClick(Sender: TObject);
begin
if OpenDialog.Execute
then Grid.Cells[1, 1] := OpendDialog1.FileName;
end;

procedure btnSaveColumnClick(Sender: TObject);
begin
Grid.Cols[1].SaveToFile("Column.txt");
end;

procedure btnOpneColumnClick(Sender: TObject);
begin
Grid.Cols[1].LoadFromFile("Column.txt");
end;

Когда потребитель выберет файл через бутоном btnOpenFile и потом запомнить таблицу на диске через бутоном btnSaveColumn, процедура btnSaveColumnClick(Sender: TObject) выполняется, но файл на диске не появляется. Если потом потребитель нажмит кнопку btnOpenColumn, таблица не обновляется, потому что она не была запомнена. Когда потребитель променить клетку в таблице изпользовая свойство OpenDialog.FileName, таблица "блокирует" и невозможно ее записать на диске.

Если кто-то можеть помоч мне, я буду ему благодарный.
Извините мой плахой русский язык, но мне не позволено писать на другом языке в этом форуме

← →
Yegor Derevenets (2002-12-31 13:16) [1]

Попробуй TStringGrid.

← →
boby_g (2002-12-31 14:00) [2]

Я попробул StringGrid. Файл не сохраняется

← →
Shadow (2002-12-31 14:05) [3]

%)))))))))

← →
boby_g (2002-12-31 14:25) [4]

Кто-то попробул? Файл не сохраняется тоже и в СтрингЛисте. Проблем может быть в ОпенДиалоге, но не могу решить его.

← →
Набережных С. (2002-12-31 15:16) [5]

У тебя OpenDialog меняет рабочий каталог.
procedure btnSaveColumnClick(Sender: TObject);
begin
Grid.Cols[1].SaveToFile(ExtractFilePath(ParamStr(0))+"Column.txt");
end;

procedure btnOpneColumnClick(Sender: TObject);
begin
Grid.Cols[1].LoadFromFile(ExtractFilePath(ParamStr(0))+"Column.txt");
end;

← →
Song (2002-12-31 15:31) [6]

или просто поставь foNoChangeDir в OpenDialog.Options

← →
boby_g (2002-12-31 15:33) [7]

Нет, проблем нет в рабочий каталог.
Пример: если я изменю стрингы столбца Grid.Cols[1] через клавиатурой, тоест редактирую етот столбец, но не выбираю файл, столбец сохраниться, a когда я выбираю файл через бутоном btnOpen и потом нажмить кнопку для сохранение, файл на диске не запомнится. Не знаю что можно делать.

← →
Набережных С. (2002-12-31 15:44) [8]

Когда ты нажимаешь btnOpen, то OpenDialog меняет рабочий каталог. Запусти поиск по дискам и найдешь свой "Column.txt" в самых разных местах.

← →
Набережных С. (2002-12-31 15:49) [9]

>Song ©

Ты еще трезвый? :)

← →
Reindeer Moss Eater (2002-12-31 16:15) [10]

procedure btnOpenClick(Sender: TObject);
begin
if OpenDialog.Execute
then Grid.Cells[1, 1] := OpendDialog 1.FileName;
end;

← →
Набережных С. (2002-12-31 16:39) [11]

>Reindeer Moss Eater (31.12.02 16:15)

А ты, похоже, уже не очень:)

← →
Reindeer Moss Eater (2002-12-31 17:21) [12]

Ровно настолько, чтобы заметить лишнюю единицу в исходнике %)

← →
Набережных С. (2002-12-31 17:35) [13]

>Reindeer Moss Eater (31.12.02 17:21)
А на имена методов внимания не обратил? ИМХО, все из одной "оперы" - опечатки

← →
Song (2002-12-31 21:23) [14]

2Набережных С. (31.12.02 15:49)
Да пока да, вообще-то :-)
А что вроде я всё правильно сказал, если установить эту опцию текущий каталог меняться не будет..

← →
Набережных С. (2002-12-31 23:23) [15]

>Song © (31.12.02 21:23)

Ну конечно правильно, потому и спосил :)) Я-то уже того...ага... Про этот вариант и не вспомнил :))

С НОВЫМ ГОДОМ!

← →
Song (2003-01-01 18:05) [16]

2Набережных С. (31.12.02 23:23)
Мои поздравления также! Всего наилучшего в новом году.

← →
Gigabyte (2003-01-01 18:18) [17]

Господа: вернитесь пожалюйста к теме вопроса! т.к. люди ждутс.
Кстати... примите и мои поздравления.

← →
Gigabyte (2003-01-01 18:19) [18]

Желаю Вам на Новый Год
Веселья звонкого, как мед,
Улыбок светлых, как янтарь,
Здоровья, как мороз в январь,
Пусть этот год звездой счастливой
Войдет в домашний Ваш уют,
Со старым годом торопливо
Пускай невзгоды все уйдут!!!

Вопрос о компонентом TOpenDialog и TGrid Найти похожие ветки