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 () ) все переписывает... Файл не открыт другой программой?

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

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

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

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

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