| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Valueisteditor [WinXP]

anton773 ©   (2006-05-10 18:40:00) 

Всем доброго времени суток! Вот проблема: Пытаюсь сохранить содержимое Valuelisteditor в файл :procedure TForm4.FormDestroy(Sender: TObject);
var
  dir, log : string;
begin
  dir := ExtractFilePath(Application.Exename);
  log := ValueListEditor1.Strings.Text;
  AppendOrWriteTextToFile(dir + '\picture_base.ant', log)
end;а Вот сама функция сохранения: function TForm4.AppendOrWriteTextToFile(FileName: TFilename;
 WriteText: string): boolean;
var
  f : Textfile;
begin
  Result := False;
  AssignFile(f, FileName);
  try
    if FileExists(FileName) = true then
      Rewrite(f);
      Writeln(f, WriteText);
    Result := True;
  finally
    CloseFile(f);

end;Всё работает но содержимое сохраняется в виде крякозябров.Где я напартачил? P.S Использую делфи FOR .NET

---

Palladin   (2006-05-10 22:39:00) [1]

> Подозреваю что это "причуды .NET"

Подозреваю что это твои причуды.

---

anton773   (2006-05-10 21:11:00) [2]

Спасибо! заработало!!!!
> Кстати данный метод ( SaveToFile () ) все переписывает..
> . Файл не открыт другой программой?

Нет не открыт.Подозреваю что это "причуды .NET"

---

Мефисто   (2006-05-10 20:21:00) [3]

anton 773 ©   (10.05.06 20:05) [2]

Кстати данный метод ( SaveToFile () ) все переписывает... Файл не открыт другой программой?

---

Мефисто   (2006-05-10 20:16:00) [4]

Открою еще одну страшнючую тайну:

 if FileExists(FileName) then
   if DeleteFile(FileName) then
   begin
   ...
   end;

---

anton773   (2006-05-10 20:05:00) [5]

> TValueListEditor.Strings.SaveToFile();

Не работает в том случае если файл уже существует(невозможно перезаписать существующий файл)

---

Мефисто   (2006-05-10 19:55:00) [6]

Т-с-с-с! Никому не говори :)

TValueListEditor.Strings.SaveToFile();

---

Наверх