Не работает 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]

Сенкс.

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