Delphi11? Недосмотрела, что сохраняет в utf8 при переносе. Срочно надо, паника)
ну если срочно, можно и костылей накидать — сохранить в стрим, его в строку, строке сменить кодировку и в файл
Работает. Может где бревно в глазу? ) Table_ := TkbmMemTable.Create(nil); TableFormat_ := TkbmCSVStreamFormat.Create(nil); List_ := TStringList.Create; MemoryStream_ := TMemoryStream.Create; Table_.LoadFromDataSet(q_,[mtcpoStructure]); MemoryStream_.Clear; Table_.SaveToStream(MemoryStream_); MemoryStream_.Position := 0; List_.LoadFromStream(MemoryStream_,TEncoding.UTF8); List_.SaveToFile(Path_+'\qqq.txt',TEncoding.ANSI);
Обсуждают сегодня