Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.28;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
9-1130775926
01e9
2005-10-31 19:25
2006.05.28
Плз зацените мою игру - cargame.nm.ru (delphiX)


1-1145001777
TYB
2006-04-14 12:02
2006.05.28
Ошибка в ListView на onCustomDrawItems


2-1147115686
Лирик
2006-05-08 23:14
2006.05.28
Даны задачи,помогите решить,ппожалуйста!!!!!!!!!!!!!!!!!!


4-1141487716
Volf_555
2006-03-04 18:55
2006.05.28
Как сделать копию экрана когда играет видео?


2-1146969649
TBAPb
2006-05-07 06:40
2006.05.28
Помогите сделать поект