Кодировка при сохранении Exception в LOG

[tarakan1983]

Здравствуйте, помогите пожалуйста с такой проблемой

Пишу такой код

function TFmMain.SaveLog(res: string): string;
  var
    F : TextFile;
    FileName : String;
begin
  FileName := ExtractFilePath(Application.ExeName) + 'Log.log';
  AssignFile(F, FileName);
  if FileExists(FileName) then
    Append(F)
  else
    Rewrite(F);
  res:=res;
  WriteLn(F, FormatDateTime('dd.mm.yyyy hh:nn:ss  : '+res, Now));
  CloseFile(F);
end;

try
            with Dm.FbSQL do
              begin
                SQL.Clear;
                SQL.Add('UPDATE T SET KOL = :KOL, PRICE = :PRICE, DOCID_ДЕЛАЮ_ОШИБКУ_ДЛЯ ПРОВЕРКИ = -8, D = :D WHERE ID = :ID');
                ParamByName('KOL').AsFloat := TEKOSTATOK+(Q.FieldValues['KOL']*OPER);
                ParamByName('ID').AsInteger :=Q.FieldValues['TID'];
                ParamByName('PRICE').AsFloat :=Q.FieldValues['PRICE'];
                ParamByName('D').AsDateTime := StrToDateTime(FmMain.DCheqLbl.Caption);
                ExecQuery;
              end;
          except
            on E : Exception do
              begin
                FmMain.Memo1.Clear;
                FmMain.Memo1.Text := E.ClassName+' поднята ошибка, с сообщением : '+E.Message;
                FmMain.Memo1.Visible := True;
                FmMain.SaveLog(FmMain.Memo1.Text);
                //FmMain.Memo1.Clear;
              end;

          end;

В memo1 вижу текст

EFIBInterBaseError поднята ошибка, с сообщением : Dm.FbSQL:
Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 1, column 48.
Д.

В файле log.log

08.09.2014 12:19:40 : 14FIBI1912:1914rBa401414rror поднята ошибка, с сообщением : 89.Fb40QL:
I19vali8 12:19ok1419.
81419a9i08.09.2014 12:19:40 40QL 14rror.
40QL 14rror 08.09.2014 12:19:40o814 = -104.
12:19ok1419 u19k19ow19 - li1914 1, 08.09.2014 12:19:40olu919 48.
Д.

Подскажите пожалуйста, как выяснить в какой кодировке и как правильно сохранять в лог

[саша40]

В файле похоже находится строка в виде Unicode, а надо Ansi. Переведите в с помощью AnsiString.

[Человек_Борща]

Пишите в лог на английском.

[tarakan1983]

Сообщение от саша40

В файле похоже находится строка в виде Unicode, а надо Ansi. Переведите в с помощью AnsiString.

Сообщение от Человек_Борща

Пишите в лог на английском.

Сделал так

function TFmMain.SaveLog(res: Ansistring): string;
  var
    F : TextFile;
    FileName : String;
begin
  FileName := ExtractFilePath(Application.ExeName) + 'Log.log';
  AssignFile(F, FileName);
  if FileExists(FileName) then
    Append(F)
  else
    Rewrite(F);
  WriteLn(F, FormatDateTime('dd.mm.yyyy hh:nn:ss  : '+res, Now));
  CloseFile(F);
end;

var
  h : AnsiString;
      тра-ля-ля
       try
            ..............
          except
            on E : Exception do
              begin               
                h := E.ClassName+' '+E.Message;                
                FmMain.SaveLog(h);                
              end;

          end;

К сожалению результат тот-же.

[Stilet]

В файле log.log

Да это вообще не похоже на юникод вроде...
А почему пользуешься write() ?
попробуй лог вести в TStringList. И его сохранять.

[tarakan1983]

Сообщение от Stilet

Да это вообще не похоже на юникод вроде...
А почему пользуешься write() ?
попробуй лог вести в TStringList. И его сохранять.

Спасибо, сейчас ошибка пишется нормально.
Только не покажете пример, как правильно дописывать со TStringList в файл, а то он у меня теперь постоянно перезаписывается.

[Stilet]

В начале проги его загружай:

if FileExists('Файлик лога') then Log.LoadfromFile(Угу);

Потом дописывай в конец:

Log.AddStrings(Memo.Lines); Log.SaveToFile(Ога);

И будет счастье.

По крайней мере я так делаю и не парюсь.

[IliaIT]

Сообщение от tarakan1983

Сделал так

function TFmMain.SaveLog(res: Ansistring): string;
  var
    F : TextFile;
    FileName : String;
begin
  FileName := ExtractFilePath(Application.ExeName) + 'Log.log';
  AssignFile(F, FileName);
  if FileExists(FileName) then
    Append(F)
  else
    Rewrite(F);
  WriteLn(F, FormatDateTime('dd.mm.yyyy hh:nn:ss  : '+res, Now));
  CloseFile(F);
end;

WriteLn(F, FormatDateTime('dd.mm.yyyy hh:nn:ss : '+res, Now));
это что за абракодабра?
очень сложный формат времени выбрал
'dd.mm.yyyy hh:nn:ss : '+res хз что за формат....
читаем помощь д7
S := FormatDateTime('"The meeting is on " dddd, mmmm d, yyyy, " at " hh:mm AM/PM', Now + 0.125);
как минимум кавычки опущены при вставке и вообще это рискованный вариант при сохранении.
и пробуем переделать
WriteLn(F, FormatDateTime('dd.mm.yyyy hh:nn:ss', Now)+' : '+res);

[Alex11223]

Только не покажете пример, как правильно дописывать со TStringList в файл, а то он у меня теперь постоянно перезаписывается.

Никак, он не предназначен для этого, только весь файл перезаписывать умеет. TFileStream используйте тогда.

[tarakan1983]

Stilet Спасибо.
IliaIT Дата пишется нормально и такой формат меня устраивает, попробовал Ваш вариант, Exception также пишется в кракозябрах.
Спасибо большое всем тему можно закрывать.