| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не работает OemToChar [D5, Win95/98]
Alek Aaz © (2003-09-11 04:52:00)
Содрал процедуру из FAQа - не пашет.
procedure DosToWin;
var Src, Str:PChar;
begin
Src := Form1.Edit1.Lines.GetText;
OemToChar(Src, Str);
Form1.Edit1.Lines.SetText(Str);
end;
Данные в Scr передаются, а в Str не перекидываются. Где грабли?
Alek Aaz (2003-09-11 08:52:00) [1]
Сенкс.
default (2003-09-11 06:28:00) [2]
например так:
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 06:20:00) [3]
Как?
default (2003-09-11 05:38:00) [4]
память под Str надо выделить до вызова OemToChar
| |
