| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ansi to OEM [D7, XP]
Zaq123 © (2006-04-21 15:57:00)Есть такая процедура?
Dmitrij_K (2006-04-21 16:25:00) [1]var s:string;
begin
s := 'блябляблая';
UniqueString(s);
CharToOem(PChar(s),PChar(s));
ShowMessage(s);
Рамиль (2006-04-21 16:15:00) [2]
> Zaq123 © (21.04.06 16:11) [4]
Читать надо, что тебе пишут!
begin...end (2006-04-21 16:12:00) [3]> Zaq123 © (21.04.06 16:03) [2]
> Вызывает ошибку, почему?
Потому что под тело строки s1 не выделена память.
Zaq123 (2006-04-21 16:11:00) [4]все ок братва.
var s,s1:stringж
f:textfile;
begin
...
s:='абракадабра';
SetLength(s1,length(s));
AnsiToOEM(pchar(s),pchar(s1));
writeln(f,s1);
...
Desdechado (2006-04-21 16:08:00) [5]тебе уже сказали, что с константой такое не прокатит
Zaq123 (2006-04-21 16:03:00) [6]Вызывает ошибку, почему?
var s,s1:stringж
f:textfile;
begin
...
s:='абракадабра';
chartooem(pchar(s),pchar(s1));
writeln(f,s1);
...
Рамиль (2006-04-21 15:58:00) [7]http://www.delphimaster.ru/cgi-bin/forum.pl?id=1145522700&n=18
| |
