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

Вниз

Глюк с 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;

---

← →
MetalFan ©   (2002-11-14 16:54) [2]

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

Big Thanks!!!!!

---

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

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

Наверх

Память: 0.46 MB
Время: 0.041 c