Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сохранение, открытие StringGrid, не работает как надо 
V
    Опции темы
MerCus
Дата 2.12.2008, 07:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 24.3.2008

Репутация: нет
Всего: нет
такая проблема: сохраняю таблицу через SaveDialog, где в фильтре прописал *.txt, но он сохраняет вообще в непонятный формат, и соответственно OpenDialog с фильтром *.txt их потом не видит. 
код сохранения стандартный:

Код

begin

if SaveDialog1.Execute then begin

b:=SaveDialog1.Filename;
AssignFile(f,b);
  Rewrite(f);
  with StringGrid1 do
  begin
   Writeln(f, ColCount);
    Writeln(f, RowCount);
   for i := 0 to ColCount - 1 do
      for k := 0 to RowCount - 1 do
        Writeln(F, Cells[i, k]);
  end;
  CloseFile(F); 
end;


в чём проблема? спасибо заранее))
PM MAIL   Вверх
morpheyushka
Дата 2.12.2008, 17:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 3
Всего: 8
Посмотри через отладчик что в переменной b лежит - есть подозрение, что там нет расширения, а в винде у тебя скорее всего не стоит галочка в свойствах папки "Скрывать расширение..."


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
Данкинг
Дата 2.12.2008, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Что значит "непонятный формат": а блокнотом этот созданный файл открывается?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Alix
Дата 2.12.2008, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


L45
**


Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23
Возможно неверный фильтр? Там в мастере есть две колонки: первая - title, а вторая - расширения. Возможно, Вы поставили расширение в первую. Простите за глупое предположение, но ведь часто на таком и заваливаемся smile


--------------------
Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois
PM MAIL ICQ Skype   Вверх
MerCus
Дата 3.12.2008, 07:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 24.3.2008

Репутация: нет
Всего: нет
непонятный формат т.е винда его отображает как файл который непонятно чем открывается, через блокнот его можно открыть, но через Опендиалог нельзя. 

галочка в свойствах папки стоит. гасчёт расширения: когда сохраняю пишу имя файла 1.txt, Опендиалог такой файл видит, но не открывает
PM MAIL   Вверх
Alix
Дата 3.12.2008, 11:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


L45
**


Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23
Цитата
когда сохраняю пишу имя файла 1.txt

А как пишешь, в двойных кавычках или без?


--------------------
Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois
PM MAIL ICQ Skype   Вверх
morpheyushka
Дата 3.12.2008, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 3
Всего: 8
Вот твое решение:
Цитата

Свойство DefaultExt определяет значение расширения файла по умолчанию. Если значение этого свойства не задано, пользователь должен указать в диалоге полное имя файла с расширением. Если же задать значение DefaultExt, то пользователь может писать в диалоге имя без расширения. В этом случае будет принято заданное расширение. 


То есть, если ты сохраняешь только с расширением txt, то в свойстве DefaultExt у SaveDialog напиши txt и будет тебе счастье smile

Добавлено через 6 минут и 6 секунд
Цитата(Alix @  3.12.2008,  11:02 Найти цитируемый пост)
А как пишешь, в двойных кавычках или без? 

Не нужно никаких кавычек!!!

Вот проект с сохранением - посмотри, все делает как тебе нужно!

Добавлено через 8 минут и 9 секунд
ЗЫ Не забудь тему закрыть


Присоединённый файл ( Кол-во скачиваний: 14 )
Присоединённый файл  Save.rar 220,16 Kb


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
MerCus
Дата 4.12.2008, 01:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 24.3.2008

Репутация: нет
Всего: нет
пасибище!))
PM MAIL   Вверх
MerCus
Дата 4.12.2008, 05:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 24.3.2008

Репутация: нет
Всего: нет
теперь я не могу открыть сохранённый файл smile 
видит текстовый файл нажимаешь Открыть, а он не открывает...
код открытия опять же стандартный:
Код

var
f: textfile;
b:string;        
x, y: integer;
begin
  if OpenDialog1.Execute then
  begin
  b:=OpenDialog1.Filename;
assignfile(f,b );
rewrite(f);
writeln(f, stringgrid1.colcount);
writeln(f, stringgrid1.rowcount);
for X := 1 to stringgrid1.colcount - 1 do
   for y :=1 to stringgrid1.rowcount - 1 do
     writeln(F, stringgrid1.cells[x, y]);
closefile(f);

  end;
PM MAIL   Вверх
Alix
Дата 4.12.2008, 10:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


L45
**


Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23
Цитата(MerCus @  4.12.2008,  05:48 Найти цитируемый пост)
rewrite(f);
writeln(f, stringgrid1.colcount);
writeln(f, stringgrid1.rowcount);

 smile Может лучше reset и readln?


--------------------
Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois
PM MAIL ICQ Skype   Вверх
morpheyushka
Дата 4.12.2008, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 3
Всего: 8
Совсем молодежь разленилась - на...все работает!!!

Тему хотя бы закрыть не забудь!!!

Присоединённый файл ( Кол-во скачиваний: 13 )
Присоединённый файл  Save.rar 221,62 Kb


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
MerCus
Дата 5.12.2008, 03:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 24.3.2008

Репутация: нет
Всего: нет
спасибо))
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0798 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.