| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Глюк с CHARTOOEMBUFFA [D6, Win2k]

MetalFan ©   (2002-11-14 16:29:00) 

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

---

MetalFan   (2002-11-14 16:54:00) [1]

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

Big Thanks!!!!!

---

Игорь Шевченко   (2002-11-14 16:43:00) [2]

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

---

Наверх