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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Save As.... как это сделать! 
V
    Опции темы
Pariah
  Дата 30.4.2006, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Дарова народ!
Надо тут инфу сохранить по нажатию на кнопку Save as.
Накидал код вроде правильно(при компиляции багов невылетает,но и понажатию на кнопку сохранить ничего несохраняется и багов невылетает!?!)  но чего-то нехватает а вот чего незнаю!
Прозьба исправить чо нетак в моём коде! 
Код

procedure TForm1.Button5Click(Sender: TObject);
const
FNAA = 'C:\Data.txt';
var
  F: TextFile;
  S : string;
  ListItem: TListItem;
  I : Integer;
begin
  AssignFile(F,FNAA);
Rewrite(F);
for i := 0 to listview1.Items.Count -1 do
begin
ListItem := listview1.Items[i];
s := '<YouText >' + listitem.Caption + '</ YouText >';
s := s + '<Password>' + listitem.SubItems.Strings[0] + '</ YouText >';
s := s + '<YouText >' + listitem.SubItems.Strings[1] + '</ YouText >';
s := s + '<YouText >' + listitem.SubItems.Strings[2] + '</YouText >';
Writeln(F, s);
end;
begin
SaveDialog1.Execute;  //нет здесь я неошибся, еслиб я хотел просто сохранить то написалбы CloseFile(f);  
   end;
 end;


 
PM MAIL   Вверх
Yanis
Дата 30.4.2006, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Pariah
Всё сохраняется. 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
DigitalDummy
Дата 30.4.2006, 16:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 7.4.2006
Где: В подвале шоколад ной фабрики.

Репутация: нет
Всего: 2
Лучше такого больше не пишите!!!
Народ умрёт от осознания Вашей новой логики программирования... Полягут лучшие умы бездыханно...

Ой... Стоит ли Вам объяснять, что такое программирование и логика в общем??? Ужас...  smile  smile  smile 

Вот вам, чтоб Вас!:
Код

...
var
  F: TextFile;
  S : String;
  ListItem: TListItem;
  I : Integer;

begin
  // Открываем диалог сохранения ДЛЯ ВЫБОРА ИМЕНИ ФАЙЛА (в который будут сохранены данные)
  if SaveDialog1.Execute() then begin

    // После того, как файл был выбран (и если был выбран), записываем данные в него.

    AssignFile(F, SaveDialog1.FileName);  // SaveDialog1.FileName - имя выбранного файла.
    Rewrite(F);

    for i := 0 to listview1.Items.Count -1 do
    begin
      ListItem := listview1.Items[i];
      s := '<YouText >' + listitem.Caption + '</ YouText >';
      s := s + '<Password>' + listitem.SubItems.Strings[0] + '</ YouText >';
      s := s + '<YouText >' + listitem.SubItems.Strings[1] + '</ YouText >';
      s := s + '<YouText >' + listitem.SubItems.Strings[2] + '</YouText >';
      Writeln(F, s);
    end;

    CloseFile(F);    // После операций чтения \ записи всегда надо закрывать файл!

  end;
...
end;
...
 

Это сообщение отредактировал(а) DigitalDummy - 30.4.2006, 16:52
PM WWW   Вверх
Демо
Дата 30.4.2006, 17:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50
DigitalDummy, 

Логика присутствует, но не в полной мере.

"Не лечите, и не лечимы будете". 


--------------------
    
PM MAIL ICQ Skype   Вверх
DigitalDummy
Дата 30.4.2006, 20:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 7.4.2006
Где: В подвале шоколад ной фабрики.

Репутация: нет
Всего: 2
Демо, 
А я и говорю Логика Нового Поколения!   smile 
Просто человек запрограммировался... Бывает... smile  
PM WWW   Вверх
Sunvas
Дата 1.5.2006, 00:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
Цитата(DigitalDummy @  30.4.2006,  16:42 Найти цитируемый пост)
SaveDialog1.Execute()

А зачем две скобки?? smile  


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Yanis
Дата 1.5.2006, 00:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Цитата(Sunvas @  1.5.2006,  00:23 Найти цитируемый пост)
А зачем две скобки?? 

Просто так. Ни на что не влияет. 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Poseidon
Дата 1.5.2006, 01:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Цитата(Демо @  30.4.2006,  17:30 Найти цитируемый пост)
DigitalDummy, 

Логика присутствует, но не в полной мере.

"Не лечите, и не лечимы будете".  
 Никакой логики не вижу! Зачем вызывать диалог, если сохраняем в путь, каторый в константе?

DigitalDummy, правильно все предложил! 


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Pariah
Дата 1.5.2006, 10:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Пасиб всем!
а насчёт присутствия логики постараюсь исправиться по запросу пишуших(они же coder'ы) smile  
PM MAIL   Вверх
DigitalDummy
Дата 2.5.2006, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 7.4.2006
Где: В подвале шоколад ной фабрики.

Репутация: нет
Всего: 2
Цитата(Sunvas @  1.5.2006,  00:23 Найти цитируемый пост)
А зачем две скобки??  

Две скобки, в принципе, надо всегда указывать при вызове функции или процедуры.
Но в современном Паскале это уже не обязательно из-за расширений языка. 
PM WWW   Вверх
Демо
Дата 2.5.2006, 18:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50
Цитата(Poseidon @  1.5.2006,  01:26 Найти цитируемый пост)
Никакой логики не вижу!


Не там смотришь;) 


--------------------
    
PM MAIL ICQ Skype   Вверх
DigitalDummy
Дата 4.5.2006, 02:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 43
Регистрация: 7.4.2006
Где: В подвале шоколад ной фабрики.

Репутация: нет
Всего: 2
Цитата(Демо @  30.4.2006,  17:30 Найти цитируемый пост)
Логика присутствует, но не в полной мере.


Если говорить полностью, конечно же, доля логики в указанном примере есть. Но, в данной ситуации, эта логика не решает поставленной задачи. И, главное, она определена тут слишком образно (взять хотя бы то, что для указания операции используется объект, который предназначен для своей собственной цели, а функции операций с файлом никак не связаны с этим объектом)!
В результате, эта логика теряет всю свою верность из-за ужасной попытки её реализации. 
PM WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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