Текущий архив: 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.45 MB
Время: 0.041 c
