Форум: "Начинающим";
Текущий архив: 2006.05.07;
Скачать: [xml.tar.bz2];

Вниз

Ansi to OEM   Найти похожие ветки 

← →
Zaq123 ©   (2006-04-21 15:57) [0]

Есть такая процедура?

---

← →
Рамиль ©   (2006-04-21 15:58) [1]

http://delphimaster.net/view/2-1145522700/

---

← →
Zaq123 ©   (2006-04-21 16:03) [2]

Вызывает ошибку, почему?

var s,s1:stringж
     f:textfile;
begin
...
       s:="абракадабра";
       chartooem(pchar(s),pchar(s1));
       writeln(f,s1);
...

---

← →
Desdechado ©   (2006-04-21 16:08) [3]

тебе уже сказали, что с константой такое не прокатит

---

← →
Zaq123 ©   (2006-04-21 16:11) [4]

все ок братва.

var s,s1:stringж
    f:textfile;
begin
...
      s:="абракадабра";
      SetLength(s1,length(s));
      AnsiToOEM(pchar(s),pchar(s1));
      writeln(f,s1);
...

---

← →
begin...end ©   (2006-04-21 16:12) [5]

> Zaq123 ©   (21.04.06 16:03) [2]
> Вызывает ошибку, почему?

Потому что под тело строки s1 не выделена память.

---

← →
Рамиль ©   (2006-04-21 16:15) [6]

> Zaq123 ©   (21.04.06 16:11) [4]

Читать надо, что тебе пишут!

---

← →
Dmitrij_K   (2006-04-21 16:25) [7]

var s:string;
begin
s := "блябляблая";
UniqueString(s);
CharToOem(PChar(s),PChar(s));
ShowMessage(s);

---

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

Форум: "Начинающим";
Текущий архив: 2006.05.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.015 c