Ansi to OEM

← →
Zaq123 © (2006-04-21 15:57) [0]

Есть такая процедура?

← →
Рамиль © (2006-04-21 15:58) [1]

http://delphimaster.net/view/2-1145522700/

← →
Zaq123 © (2006-04-21 16:03) [2]

Вызывает ошибку, почему?

var s,s1:stringж
f:textfile;
begin
...
s:="абракадабра";
chartooem(pchar(s),pchar(s1));
writeln(f,s1);
...

← →
Desdechado © (2006-04-21 16:08) [3]

тебе уже сказали, что с константой такое не прокатит

← →
Zaq123 © (2006-04-21 16:11) [4]

все ок братва.

var s,s1:stringж
f:textfile;
begin
...
s:="абракадабра";
SetLength(s1,length(s));
AnsiToOEM(pchar(s),pchar(s1));
writeln(f,s1);
...

← →
begin...end © (2006-04-21 16:12) [5]

> Zaq123 © (21.04.06 16:03) [2]
> Вызывает ошибку, почему?

Потому что под тело строки s1 не выделена память.

← →
Dmitrij_K (2006-04-21 16:25) [7]

var s:string;
begin
s := "блябляблая";
UniqueString(s);
CharToOem(PChar(s),PChar(s));
ShowMessage(s);