VPF::TStrings. Не записывается в файл - Форум программистов

Dmitriy2k

Дата 14.12.2005, 22:54 (ссылка)

(нет голосов)

Загрузка ...

шустрый

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

Репутация: нет
Всего: нет

Не создается файл с:\txt.txt

Код



var
   LinesMy:TStrings;
begin
   LinesMy.Add('MyMyMy');
   LinesMy.SaveToFile('c:\txt.txt');
end;

Зато если мы создаем на форме TMemo - все работает

Код



   Memo1.Lines.Add('MyMyMy');
   Memo1.Lines.SaveToFile('c:\txt.txt');

Мне нужно, чтоб работал первый вариант.
Помогите плиз.

z-END

Дата 14.12.2005, 22:57 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

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

Репутация: 11
Всего: 102

Код


   LinesMy: TStringList;    
begin    
   LinesMy := TStringList.Create;
   LinesMy.Add ('MyMyMy');    
   LinesMy.SaveToFile ('c:\txt.txt');    
   FreeAndNil (LinesMy);
end;

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Guest

Дата 14.12.2005, 22:58 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата(Dmitriy2k @ 14.12.2005, 22:54)

Не создается файл с:\txt.txt

Код



var
   LinesMy:TStrings;
begin
   LinesMy.Add('MyMyMy');
   LinesMy.SaveToFile('c:\txt.txt');
end;

Зато если мы создаем на форме TMemo - все работает

Код



   Memo1.Lines.Add('MyMyMy');
   Memo1.Lines.SaveToFile('c:\txt.txt');

Мне нужно, чтоб работал первый вариант.
Помогите плиз.

Код


var
  l: TStrings;
begin
  l := TStrings.Create;
  { твой код }
  l.Free;
end;

Yanis.

Dmitriy2k

Дата 14.12.2005, 23:31 (ссылка)

(нет голосов)

Загрузка ...

шустрый

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

Репутация: нет
Всего: нет

z-END
Спасибо так работает

Guest :
Почему то выдает ошибку "Abstract Error" на

Код

LinesMy.Add('MyMyMy');

Но я уже первым вариантом сделал.

Snowy

Дата 14.12.2005, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Потому что TStrings - абстрактный класс.
Его нельзя использовать в чистом виде. Только его наследников.

Akella

Дата 15.12.2005, 09:47 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Почитай про ООП,
скажу только, что объект нужно создать перед тем как его использовать, после использования нужно освободить используемые им ресурсы, но не со всеми объектами так, например, простые переменные не нужно создавать или уничтожать.

Код


var
  LinesMy:TStringList;
begin
  LinesMy := TStringListCreate;
  LinesMy.Add('MyMyMy');
  LinesMy.SaveToFile('c:\txt.txt');
  FreeAndNil(LinesMy);
end;

z-END

Дата 15.12.2005, 10:11 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

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

Репутация: 11
Всего: 102

dsergey ммм. это случайно не мой код? smile

Это сообщение отредактировал(а) z-END - 15.12.2005, 10:49

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Akella

Дата 15.12.2005, 10:43 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

да

, точно такой же как и у тебя, не обратил внимания, бывает, я думаю, что из-за этого не стоит рвать на себе волосы smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »