Скачать: CL | DM;

Не работает OemToChar   Найти похожие ветки 

← →
Alek Aaz ©   (2003-09-11 04:52) [0]

Содрал процедуру из FAQа - не пашет.

procedure DosToWin;
var Src, Str:PChar;
begin
Src := Form1.Edit1.Lines.GetText;
OemToChar(Src, Str);
Form1.Edit1.Lines.SetText(Str);
end;
Данные в Scr передаются, а в Str не перекидываются. Где грабли?

---

← →
default ©   (2003-09-11 05:38) [1]

память под Str надо выделить до вызова OemToChar

---

← →
Alek Aaz ©   (2003-09-11 06:20) [2]

Как?

---

← →
default ©   (2003-09-11 06:28) [3]

например так:
procedure DosToWin;
var Src, Str:PChar;
begin
Src := Form1.Edit1.Lines.GetText;
GetMem(Str, Length(Src) + 1);
OemToChar(Src, Str);
Form1.Edit1.Lines.SetText(Str);
// потом где-то FreeMem(Str, Length(Src) + 1);
end;

---

← →
Alek Aaz ©   (2003-09-11 08:52) [4]

Сенкс.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c