Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.016 c
14-51449
_/--(o)--\_
2003-09-29 21:32
2003.10.16
фаст нета нет в 7-ой делфе?


1-51254
zeppelin
2003-10-03 14:04
2003.10.16
Символы в TEdit или RichEdit


3-51122
KIR
2003-09-24 18:39
2003.10.16
Страшно тормозит запрос к базе IB


3-51109
vil
2003-09-25 13:14
2003.10.16
Параметры хранимой процедуры


3-51088
АлеКс
2003-09-26 07:22
2003.10.16
ADO INSERT INTO и SELECT IN