Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.254 c