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

Вниз

Кодировка в текстовых файлах.   Найти похожие ветки 

 
Bagdat ©   (2005-07-13 08:49) [0]

Txt: TextFile;
 nametxt, strtxt: string;
 chars: Pansichar;

begin
 nametxt:=ExtractFilePath(Application.ExeName);
 AssignFile(TXT,nametxt);
 Rewrite(txt);
 strtxt:="ASDF ASDFASF ASDF ASASF";
 ChartoOem(Pansichar(strtxt), chars);
 Writeln(TXT,chars);
 CloseFile(TXT);
end;

эта процедура срабатывает, создается файл с нужными данными в нужной кодировке, но при выходе из программы выходит ошибка ACCESS VIOLATION at...
подскажите что я делаю не правильно, может как то надо освобождать память?


 
Kot Andrei ©   (2005-07-13 09:00) [1]

внимательно посмотри сюда: (как твой файл зовут?)

>>nametxt:=ExtractFilePath(Application.ExeName);

и сюда

>>ChartoOem(Pansichar(strtxt), chars);


 
MBo ©   (2005-07-13 09:01) [2]

В твоем случае память под chars не выделена.
Можно сделать так:

s1,s2: string;

s1:="Мама мыла раму";
SetLength(s2,Length(s1));
ChartoOem(PChar(s1), PChar(s2));
Writeln(TXT,s2);


 
Digitman ©   (2005-07-13 09:05) [3]

ChartoOem(Pansichar(strtxt), Pansichar(strtxt));
Writeln(TXT,strtxt);


 
MBo ©   (2005-07-13 09:12) [4]

>Digitman ©   (13.07.05 09:05) [3]
так автор проколется с константной строкой и опять скажет, что ни фига не работает :)


 
Bagdat ©   (2005-07-13 09:14) [5]

MBo ©   (13.07.05 09:01) [2]

thanks, все получилось.


 
Anatoly Podgoretsky ©   (2005-07-13 09:16) [6]

Так он и в твоем коде проколется, при S1 = "".


 
Digitman ©   (2005-07-13 09:16) [7]


> MBo ©   (13.07.05 09:12) [4]


> опять скажет, что ни фига не работает


ну это уж его личная драма)



Страницы: 1 вся ветка

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.03 c
6-1113840746
_Seldon_
2005-04-18 20:12
2005.07.31
Контекстное меню дла файла в сети


6-1113826059
Alexis
2005-04-18 16:07
2005.07.31
Проблема с send()/recv() в многопоточной программе


14-1120677507
Piter
2005-07-06 23:18
2005.07.31
Сколько стоит билет до Алушты?


4-1117600220
КиТаЯц
2005-06-01 08:30
2005.07.31
Своя закладка в "Свойства файла"


14-1120572310
Essence
2005-07-05 18:05
2005.07.31
США беспокоит усиление России