Текущий архив: 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.012 c
