Форум: "Начинающим";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Вниз

Valueisteditor   Найти похожие ветки 

← →
anton773 ©   (2006-05-10 18:40) [0]

Всем доброго времени суток! Вот проблема: Пытаюсь сохранить содержимое 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

---

← →
Мефисто   (2006-05-10 19:55) [1]

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

TValueListEditor.Strings.SaveToFile();

---

← →
anton773 ©   (2006-05-10 20:05) [2]

> TValueListEditor.Strings.SaveToFile();

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

---

← →
Мефисто   (2006-05-10 20:16) [3]

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

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

---

← →
Мефисто   (2006-05-10 20:21) [4]

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

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

---

← →
anton773 ©   (2006-05-10 21:11) [5]

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

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

---

← →
Palladin ©   (2006-05-10 22:39) [6]

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

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.011 c