Статьи по программированию
примеры программного кода
Delphi, Kylix, C, C++, SQL, Visual Basic, Bash, Assembler, 1С
Qt, KOL, MFC, Rx Library, Windows, Linux, Mac OS
Конвертация (23)
-->Ansi to Unicode
Опубликовано codeLocker в 15.08.2008 в 11:16.
ОС: Windows Язык: Delphi/Kylix Раздел: Форматы файлов и данных • Конвертация
//Ansi to Unicode
function AnsiToUnicodeHex(S: String): String;
//Ansi to Unicode
function Win2UTF16(S: String): String;
var b: string;
i, Len: integer;
c: byte;
a: Char;
begin
//Ansi to Unicode
Result := '';
Len := Length(S);
try
for i := 1 to Len do begin
a := S[i];
c := Ord(a);
case c of
function AnsiToUnicodeHex(S: String): String;
//Ansi to Unicode
function Win2UTF16(S: String): String;
var b: string;
i, Len: integer;
c: byte;
a: Char;
begin
//Ansi to Unicode
Result := '';
Len := Length(S);
try
for i := 1 to Len do begin
a := S[i];
c := Ord(a);
case c of
Конвертировать INI файл в XML
Опубликовано codeLocker в 24.07.2008 в 15:23.
ОС: Windows Язык: Delphi/Kylix Раздел: Форматы файлов и данных • Конвертация
uses XMLIntf, XMLDoc, INIFiles;
procedure INI2XML(const pINIFileName: string; const pXML: IXMLNode;
const AsAttributes: Boolean = true);
var
lINIFile: TIniFile;
lSections, lItems: TStringList;
iSections, iItems: integer;
lNode: IXMLNode;
begin
lINIFile := TIniFile.Create(pINIFileName);
try
lSections := TStringList.Create;
try
lItems := TStringList.Create;
try
lINIFile.ReadSections(lSections);
for iSections := 0 to pred(lSections.Count) do
begin
lItems.Clear;
procedure INI2XML(const pINIFileName: string; const pXML: IXMLNode;
const AsAttributes: Boolean = true);
var
lINIFile: TIniFile;
lSections, lItems: TStringList;
iSections, iItems: integer;
lNode: IXMLNode;
begin
lINIFile := TIniFile.Create(pINIFileName);
try
lSections := TStringList.Create;
try
lItems := TStringList.Create;
try
lINIFile.ReadSections(lSections);
for iSections := 0 to pred(lSections.Count) do
begin
lItems.Clear;
Преобразование цвета RGB <-> HLS
Опубликовано codeLocker в 19.07.2008 в 06:12.
ОС: Windows Язык: Delphi/Kylix Раздел: Форматы файлов и данных • Конвертация
{ Максимальные значения }
Const
HLSMAX = 240;
RGBMAX = 255;
UNDEFINED = (HLSMAX*2) div 3;
Var
H, L, S : integer; { H-оттенок, L-яркость, S-насыщенность }
R, G, B : integer; { цвета }
procedure RGBtoHLS;
Var
cMax,cMin : integer;
Rdelta,Gdelta,Bdelta : single;
Begin
cMax := max( max(R,G), B);
cMin := min( min(R,G), B);
L := round( ( ((cMax+cMin)*HLSMAX) + RGBMAX )/(2*RGBMAX) );
if (cMax = cMin) then begin
S := 0; H := UNDEFINED;
end else begin
Const
HLSMAX = 240;
RGBMAX = 255;
UNDEFINED = (HLSMAX*2) div 3;
Var
H, L, S : integer; { H-оттенок, L-яркость, S-насыщенность }
R, G, B : integer; { цвета }
procedure RGBtoHLS;
Var
cMax,cMin : integer;
Rdelta,Gdelta,Bdelta : single;
Begin
cMax := max( max(R,G), B);
cMin := min( min(R,G), B);
L := round( ( ((cMax+cMin)*HLSMAX) + RGBMAX )/(2*RGBMAX) );
if (cMax = cMin) then begin
S := 0; H := UNDEFINED;
end else begin
CMYK в RGB
Опубликовано codeLocker в 18.07.2008 в 08:46.
Язык: Delphi/Kylix Раздел: Форматы файлов и данных • Конвертация
procedure CMYKTORGB(C : byte;
M: byte;
Y : byte;
K : byte;
var R : byte;
var G : byte;
var B : byte);
begin
if (Integer(C) + Integer(K)) 255 then MinColor := 255 - K;
C := C - MinColor;
M := M - MinColor;
Y := Y - MinColor;
K := K + MinColor;
end;
M: byte;
Y : byte;
K : byte;
var R : byte;
var G : byte;
var B : byte);
begin
if (Integer(C) + Integer(K)) 255 then MinColor := 255 - K;
C := C - MinColor;
M := M - MinColor;
Y := Y - MinColor;
K := K + MinColor;
end;
RGB в CMYK
Опубликовано codeLocker в 18.07.2008 в 08:45.
Язык: Delphi/Kylix Раздел: Форматы файлов и данных • Конвертация
procedure RGBTOCMYK(R : byte;
G : byte;
B : byte;
var C : byte;
var M : byte;
var Y : byte;
var K : byte);
begin
C := 255 - R;
M := 255 - G;
Y := 255 - B;
if C 0 then
begin
c := c - k;
m := m - k;
y := y - k;
end;
end;
G : byte;
B : byte;
var C : byte;
var M : byte;
var Y : byte;
var K : byte);
begin
C := 255 - R;
M := 255 - G;
Y := 255 - B;
if C 0 then
begin
c := c - k;
m := m - k;
y := y - k;
end;
end;
Спонсоры проекта:
Навигация
Интересные сайты
Сейчас на сайте
Сейчас на сайте 0 пользователей и 1 гость.
Статистика
Всего материалов: 1387