Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];

Вниз

Глюк с 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c