178 lines
3.5 KiB
Plaintext
178 lines
3.5 KiB
Plaintext
#if 0
|
|
[Code]
|
|
#endif
|
|
|
|
procedure DebugMsg(Const pProc,pMsg: String);
|
|
begin
|
|
Log('[Code] ' + pProc + #9 + pMsg);
|
|
end;
|
|
|
|
|
|
function BoolToStr(const b: Boolean): String;
|
|
begin
|
|
if b then
|
|
Result := 'True'
|
|
else
|
|
Result := 'False';
|
|
end;
|
|
|
|
|
|
function RevPos(const SearchStr, Str: string): Integer;
|
|
var i: Integer;
|
|
begin
|
|
|
|
if Length(SearchStr) < Length(Str) then
|
|
for i := (Length(Str) - Length(SearchStr) + 1) downto 1 do
|
|
begin
|
|
|
|
if Copy(Str, i, Length(SearchStr)) = SearchStr then
|
|
begin
|
|
Result := i;
|
|
exit;
|
|
end;
|
|
|
|
end;
|
|
|
|
Result := 0;
|
|
end;
|
|
|
|
|
|
function Replace(pSearchFor, pReplaceWith, pText: String): String;
|
|
begin
|
|
StringChangeEx(pText,pSearchFor,pReplaceWith,True);
|
|
|
|
Result := pText;
|
|
end;
|
|
|
|
|
|
function Count(What, Where: String): Integer;
|
|
begin
|
|
Result := 0;
|
|
if Length(What) = 0 then
|
|
exit;
|
|
|
|
while Pos(What,Where)>0 do
|
|
begin
|
|
Where := Copy(Where,Pos(What,Where)+Length(What),Length(Where));
|
|
Result := Result + 1;
|
|
end;
|
|
end;
|
|
|
|
|
|
//split text to array
|
|
procedure Explode(var ADest: TArrayOfString; aText, aSeparator: String);
|
|
var tmp: Integer;
|
|
begin
|
|
if aSeparator='' then
|
|
exit;
|
|
|
|
SetArrayLength(ADest,Count(aSeparator,aText)+1)
|
|
|
|
tmp := 0;
|
|
repeat
|
|
if Pos(aSeparator,aText)>0 then
|
|
begin
|
|
|
|
ADest[tmp] := Copy(aText,1,Pos(aSeparator,aText)-1);
|
|
aText := Copy(aText,Pos(aSeparator,aText)+Length(aSeparator),Length(aText));
|
|
tmp := tmp + 1;
|
|
|
|
end else
|
|
begin
|
|
|
|
ADest[tmp] := aText;
|
|
aText := '';
|
|
|
|
end;
|
|
until Length(aText)=0;
|
|
end;
|
|
|
|
|
|
function String2Utf8(const pInput: String): AnsiString;
|
|
var Output: AnsiString;
|
|
ret, outLen, nulPos: Integer;
|
|
begin
|
|
outLen := WideCharToMultiByte(CP_UTF8, 0, pInput, -1, Output, 0, 0, 0);
|
|
Output := StringOfChar(#0,outLen);
|
|
ret := WideCharToMultiByte(CP_UTF8, 0, pInput, -1, Output, outLen, 0, 0);
|
|
|
|
if ret = 0 then
|
|
RaiseException('WideCharToMultiByte failed: ' + IntToStr(GetLastError));
|
|
|
|
nulPos := Pos(#0,Output) - 1;
|
|
if nulPos = -1 then
|
|
nulPos := Length(Output);
|
|
|
|
Result := Copy(Output,1,nulPos);
|
|
end;
|
|
|
|
|
|
function Utf82String(const pInput: AnsiString): String;
|
|
var Output: AnsiString;
|
|
ret, outLen, nulPos: Integer;
|
|
begin
|
|
outLen := MultiByteToWideChar(CP_UTF8, 0, pInput, -1, Output, 0);
|
|
Output := StringOfChar(#0,outLen);
|
|
ret := MultiByteToWideChar(CP_UTF8, 0, pInput, -1, Output, outLen);
|
|
|
|
if ret = 0 then
|
|
RaiseException('MultiByteToWideChar failed: ' + IntToStr(GetLastError));
|
|
|
|
nulPos := Pos(#0,Output) - 1;
|
|
if nulPos = -1 then
|
|
nulPos := Length(Output);
|
|
|
|
Result := Copy(Output,1,nulPos);
|
|
end;
|
|
|
|
|
|
function SaveStringToUTF8File(const pFileName, pS: String; const pAppend: Boolean): Boolean;
|
|
begin
|
|
Result := SaveStringToFile(pFileName, String2Utf8(pS), pAppend);
|
|
end;
|
|
|
|
|
|
function LoadStringFromUTF8File(const pFileName: String; var oS: String): Boolean;
|
|
var Utf8String: AnsiString;
|
|
begin
|
|
Result := LoadStringFromFile(pFileName, Utf8String);
|
|
oS := Utf82String(Utf8String);
|
|
end;
|
|
|
|
|
|
procedure StatusLabel(const Status1,Status2: string);
|
|
begin
|
|
WizardForm.StatusLabel.Caption := Status1;
|
|
WizardForm.FilenameLabel.Caption := Status2;
|
|
WizardForm.Refresh();
|
|
end;
|
|
|
|
|
|
//reverse encoding done by Encode
|
|
function Decode(pText: String): String;
|
|
var p: Integer;
|
|
tmp: String;
|
|
begin
|
|
if Pos('%',pText) = 0 then
|
|
Result := pText
|
|
else
|
|
begin
|
|
Result := '';
|
|
while Length(pText) > 0 do
|
|
begin
|
|
p := Pos('%',pText);
|
|
if p = 0 then
|
|
begin
|
|
Result := Result + pText;
|
|
break;
|
|
end;
|
|
Result := Result + Copy(pText,1,p-1);
|
|
tmp := '$' + Copy(pText,p+1,2);
|
|
Result := Result + Chr(StrToIntDef(tmp,32));
|
|
pText := Copy(pText,p+3,Length(pText));
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
