запись из unicode в ascii файл

[loginrl103]

Код: Выделить всё

var
F: file of ???;
s: string; 
...
s := 
'q'+#13+
'w'+#13+
'e';

//открыли файл, связали (эти операции опустим). 

write (F, s);

теперь вопрос. string - это unicode. как записать строку типа string в ascii файл (чтоб через cat обычный можно было без выпендрёжа смотреть)?. какого типа должна быть файловая переменная F?
есть utf8toansi, на консоль нормально выводит...но как прикрутить к записи в файл?
как записать несколько строк в такой файл (мы не знаем заранее сколько будет именно #13 в s)?

[alexs]

string - это unicode.

А вот и не угадал. WideString - это один из уникодов (UTF16)
а стринг - это просто последовательность однобайтных символов. Но туда также можно запихнуть UTF8.

какого типа должна быть файловая переменная F?

Код: Выделить всё

var
  f:TextFile;

есть utf8toansi

В чём проблема? посмотри документацию по Writeln функцию Это базис. И ей же снимается твой следующий вопрос:

как записать несколько строк в такой файл