Subversion Repositories oidplus

Compare Revisions

Regard whitespace Rev 749 → Rev 750

/trunk_dos/VTSFUNCS.PAS
3,7 → 3,7
(************************************************)
(* VTSFUNCS.PAS *)
(* Author: Daniel Marschall *)
(* Revision: 2022-02-20 *)
(* Revision: 2022-02-22 *)
(* License: Apache 2.0 *)
(* This file contains: *)
(* - Various functions *)
39,6 → 39,7
 
function LastCharPos(const S: string; const Chr: char): integer;
function LowerCase(s: string): string;
function UpperCase(s: string): string;
function base_convert_bigint(numstring: string; frombase, tobase: integer): string;
 
implementation
336,6 → 337,26
LowerCase := res;
end;
 
function UpperCase(s: string): string;
var
res: string;
i: integer;
begin
res := '';
for i := 1 to Length(s) do
begin
if s[i] in ['a'..'z'] then
begin
res := res + Chr(Ord('A')+(Ord(s[i])-Ord('a')));
end
else
begin
res := res + s[i];
end;
end;
UpperCase := res;
end;
 
function base_convert_bigint(numstring: string; frombase, tobase: integer): string;
var
i: Integer;
/trunk_dos/WEID.PAS
3,7 → 3,7
(*
* WEID<=>OID Converter for TurboPascal
* (c) Webfan.de, ViaThinkSoft
* Revision 2022-02-19
* Revision 2022-02-22
*)
 
(*
183,7 → 183,7
end;
oidstr := Copy(oidstr, 1, Length(oidstr)-1);
 
weid := namespace + weid; (* add namespace again *)
weid := LowerCase(namespace) + UpperCase(weid); (* add namespace again *)
 
WeidToOid := oidstr;
end;
/trunk_dos/WEID_Delphi.pas
3,7 → 3,7
(*
* WEID<=>OID Converter for Delphi
* (c) Webfan.de, ViaThinkSoft
* Revision 2022-02-19
* Revision 2022-02-22
*)
 
(*
260,7 → 260,7
end;
oidstr := Copy(oidstr, 1, Length(oidstr)-1);
 
weid := namespace + weid; (* add namespace again *)
weid := LowerCase(namespace) + UpperCase(weid); (* add namespace again *)
 
result := oidstr;
end;