Текущий архив: 2002.05.06;
Скачать: CL | DM;

Вниз

Можно ещё немного помощи   Найти похожие ветки 

← →
HDD ©   (2002-04-22 05:46) [0]

var Src, Str:PChar;
begin
Src := Richedit1.Lines.GetText;
CharToOem(Src, Str);
Richedit1.Lines.Text:= StrPas(Str);
end;

Если в тексте есть промежутки между строк то кодировка не меняется, а текст просто изчезает!
Помогите пожалуйста!

---

← →
McSimm ©   (2002-04-22 12:47) [1]

var S: String;
begin
S := Richedit1.Lines.Text;
CharToOem(PChar(S), PChar(S));
Richedit1.Lines.Text:= S;
end;

---

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

Текущий архив: 2002.05.06;
Скачать: CL | DM;

Наверх

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