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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сохранить Edit1 и Edit2... И загрузить потом из txt 
:(
    Опции темы
Albinos_x
Дата 5.12.2006, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
Цитата(Des666 @  5.12.2006,  16:01 Найти цитируемый пост)
Reset(..);

открытие для чтения...

Цитата(Des666 @  5.12.2006,  16:18 Найти цитируемый пост)
никак немогу понять с этими файлами как работать

открыть для чтения забыл...
и записывать нужно тогда как говорил x77, или разделитель брать указанный Romikgy - #13 
Цитата(Des666 @  5.12.2006,  17:05 Найти цитируемый пост)
  sl: TStrings;

неверный тип:
нужно так:
Код

sl: TStringList;

тогда проблем возникать не будет...
Цитата(Des666 @  5.12.2006,  17:13 Найти цитируемый пост)
Так же пишет при открытии "неудаётся найти такой то файл" =( 

потому, что он у тебя фактически сохраняется в неизвестность... нужно при записи и чтении указывать полный путь к файлу... решится куча проблем smile 


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
x77
Дата 5.12.2006, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 19
Всего: 22
Albinos_x, не совсем так.

Цитата

неверный тип:
нужно так:

sl: TStringList;

тогда проблем возникать не будет...


а их и сейчас не возникает, поскольку создаётся sl через TStringList. дело не в этом ;)


Цитата(Albinos_x @  5.12.2006,  18:08 Найти цитируемый пост)
Цитата(Des666 @  5.12.2006,  17:13 Найти цитируемый пост)
Так же пишет при открытии "неудаётся найти такой то файл" =( 

потому, что он у тебя фактически сохраняется в неизвестность... нужно при записи и чтении указывать полный путь к файлу... решится куча проблем smile


а полный путь и указывается  smile 


--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
Albinos_x
Дата 5.12.2006, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
Цитата(x77 @  5.12.2006,  18:34 Найти цитируемый пост)
а полный путь и указывается

это про чтение... а я про запись...
Цитата(x77 @  5.12.2006,  18:34 Найти цитируемый пост)
а их и сейчас не возникает, поскольку создаётся sl через TStringList. дело не в этом ;)

дело не в этом, но... TStrings - это ссылки на строки(объекты), а TStringList - массив строк... поэтому возможна утечка памяти, т.к. когда сделаешь free ссылки очистятся... а объекты/строки останутся... тогда и смысл использования в TStrings в TStringList нет, тогда уж проще сделать TString.Create...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
x77
Дата 5.12.2006, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 19
Всего: 22
Albinos_x, не совсем согласен про утечку...  поскольку TStrings создаётся как TStringList, то и деструктор будет вызываться "родной", т.е.

Код

destructor TStringList.Destroy;
begin
  FOnChange := nil;
  FOnChanging := nil;
  inherited Destroy;
  if FCount <> 0 then Finalize(FList^[0], FCount);
  FCount := 0;
  SetCapacity(0);
end;


который благополучно всё вычистит. а объявлять список именно как TStrings - это просто хороший тон, так этот класс будет приводим к любому потомку TStrings, которых в VCL великое множество. но в принципе - это всё уже детали...

про запись - не могу сказать, потому что авторского кода, отвечающего за запись файла, я не видел.

Добавлено @ 19:18 
З.Ы. TStrings.Create, кстати, делать нельзя - этот класс содержит абстрактные методы.


--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
Albinos_x
Дата 5.12.2006, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
во блин... допрограммировался... глюки так из меня и лезут... smile 
да... точно...я этот момент упустил... free вызовет:
Код
...
procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;
...


который вызовет нужный деструктор...
Цитата(x77 @  5.12.2006,  19:17 Найти цитируемый пост)
про запись - не могу сказать, потому что авторского кода, отвечающего за запись файла, я не видел.

он пример в начале приводил...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
gambit
Дата 8.12.2006, 20:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***
Награды: 1



Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40
Я понимаю что тема старая но всеже.
А не легче  объявить новый тип
занести в него значения полей а потом записать???
PM MAIL ICQ Skype   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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