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

Вниз

WIN<->DOS кодировки...   Найти похожие ветки 

← →
heady   (2003-10-04 19:28) [0]

Подскажите, где взять функцию, перекодирующую строку WIN<->DOS?

---

← →
dataMaster ©   (2003-10-04 19:34) [1]

http://delphibase.endimus.com/?action=viewfunc&topic=strconvert&id=10308

---

← →
Song ©   (2003-10-04 19:40) [2]

CharToOem()
OemToChar()

---

← →
Anatoly Podgoretsky ©   (2003-10-04 21:19) [3]

dataMaster © (04.10.03 19:34) [1]
Угу приведенный пример для Win 3.1

---

← →
dataMaster ©   (2003-10-04 21:22) [4]

>Anatoly Podgoretsky

Чем смог, тем помог ;-)

---

← →
Anatoly Podgoretsky ©   (2003-10-04 21:32) [5]

Претензии более к тому, кто включил ее в сборник, без указания ограничений.

---

← →
GH@ST ©   (2003-10-04 23:57) [6]

function DosToWin(St:string):string;
var Ch:PChar;
begin
Ch:=StrAlloc(Length(St)+1);
OemToAnsi(PChar(St),Ch);
Result:=Ch;
StrDispose(Ch)
end;

---

← →
Вася Пупкин ©   (2003-10-05 01:43) [7]

function WinToDos(s: String):String;
var
buf: PChar;
i: integer;
begin
Result :="";
GetMem(buf,Length(s)+1);
ZeroMemory(buf,Length(s)+1);
// FillChar(buf^,Length(s)+1,#0);
CharToOemBuff(PChar(s),buf,Length(s));
for i := 0 to Length(s)-1 do Result := Result + buf[i];
FreeMem(buf);
end;

function DosToWin(s: String):String;
var
buf: PChar;
i: integer;
begin
Result :="";
GetMem(buf,Length(s)+1);
ZeroMemory(buf,Length(s)+1);
// FillChar(buf^,Length(s)+1,#0);
OemToCharBuff(PChar(s),buf,Length(s));
for i := 0 to Length(s)-1 do Result := Result + buf[i];
FreeMem(buf);
end;

GH@ST © (04.10.03 23:57) [6] <=>dataMaster © (04.10.03 19:34) [1] -)

---

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

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

Наверх

Память: 0.48 MB
Время: 0.026 c