Глюк с CHARTOOEMBUFFA

← →
MetalFan © (2002-11-14 16:29) [0]

памагитеее!!!
есть такая процедура:
procedure OFANSITOOEM(ST:String;VAR TS:String);
Var
STP:Pchar;
begin
STP:=PCHAR(ST);
CHARTOOEMBUFFA(STP,STP,LENGTH(STP));
TS:=STP;
end;
когда в ST попадается символ- " (двойная кавычка)
вылетает ошибка про user32...
что с этим делать????

← →
Игорь Шевченко © (2002-11-14 16:43) [1]

function StrToOem(const AnsiStr: string): string;
begin
SetLength(Result, Length(AnsiStr));
if Length(Result) > 0 then
CharToOemBuff(PChar(AnsiStr), PChar(Result), Length(Result));
end;

> Игорь Шевченко

Big Thanks!!!!!

Глюк с CHARTOOEMBUFFA Найти похожие ветки