uStringsUtils: nueva unidad con utilidades para cadenas de texto.
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@132 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
17f0f505c5
commit
a6279a9305
@ -94,6 +94,7 @@ contains
|
||||
uControllerBase in 'Controladores\uControllerBase.pas',
|
||||
uControllerDetallesBase in 'Controladores\uControllerDetallesBase.pas',
|
||||
schBase_Intf in 'schBase_Intf.pas',
|
||||
uDataModuleBase in 'uDataModuleBase.pas' {DataModuleBase: TDataModule};
|
||||
uDataModuleBase in 'uDataModuleBase.pas' {DataModuleBase: TDataModule},
|
||||
uStringsUtils in 'Utiles\uStringsUtils.pas';
|
||||
|
||||
end.
|
||||
|
||||
@ -44,6 +44,13 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
@ -58,47 +65,6 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
@ -123,10 +89,44 @@
|
||||
<Form>dmBase</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\adortl.dcp" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Utiles\dbrtl.dcp" />
|
||||
<DCCReference Include="Utiles\dclIndyCore.dcp" />
|
||||
<DCCReference Include="Utiles\designide.dcp" />
|
||||
<DCCReference Include="Utiles\dsnap.dcp" />
|
||||
<DCCReference Include="Utiles\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="Utiles\IndyCore.dcp" />
|
||||
<DCCReference Include="Utiles\IndyProtocols.dcp" />
|
||||
<DCCReference Include="Utiles\IndySystem.dcp" />
|
||||
<DCCReference Include="Utiles\Jcl.dcp" />
|
||||
<DCCReference Include="Utiles\JclVcl.dcp" />
|
||||
<DCCReference Include="Utiles\JSDialog100.dcp" />
|
||||
<DCCReference Include="Utiles\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvMMD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvNetD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="Utiles\pckMD5.dcp" />
|
||||
<DCCReference Include="Utiles\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="Utiles\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="Utiles\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="Utiles\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="Utiles\PNG_D10.dcp" />
|
||||
<DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="Utiles\rtl.dcp" />
|
||||
<DCCReference Include="Utiles\TB2k_D10.dcp" />
|
||||
<DCCReference Include="Utiles\tbx_d10.dcp" />
|
||||
<DCCReference Include="Utiles\uCalculosUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDataTableUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDateUtils.pas" />
|
||||
@ -139,6 +139,14 @@
|
||||
<DCCReference Include="Utiles\uNumUtils.pas" />
|
||||
<DCCReference Include="Utiles\uPasswordUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="Utiles\vcl.dcp" />
|
||||
<DCCReference Include="Utiles\vclactnband.dcp" />
|
||||
<DCCReference Include="Utiles\vcldb.dcp" />
|
||||
<DCCReference Include="Utiles\vcljpg.dcp" />
|
||||
<DCCReference Include="Utiles\VclSmp.dcp" />
|
||||
<DCCReference Include="Utiles\vclx.dcp" />
|
||||
<DCCReference Include="Utiles\xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
Binary file not shown.
65
Source/Base/Utiles/uStringsUtils.pas
Normal file
65
Source/Base/Utiles/uStringsUtils.pas
Normal file
@ -0,0 +1,65 @@
|
||||
unit uStringsUtils;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes;
|
||||
|
||||
const
|
||||
DISPLAY_EUROS2 = '#,0.00 €';
|
||||
|
||||
procedure StringToStrings(Source:string; Delimiter:char; Target:TStrings);
|
||||
function StringsToString(Source:TStrings; Delimiter:char):string;
|
||||
function EsCadenaVacia(const S: AnsiString): Boolean; overload;
|
||||
function EsCadenaVacia(const S: Variant): Boolean; overload;
|
||||
function EsNumerico(Cadena: String) : Boolean;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Variants, SysUtils;
|
||||
|
||||
{ Convierte una cadena con items separados con un delimitador en un TString }
|
||||
procedure StringToStrings(Source:string; Delimiter:char; Target:TStrings);
|
||||
var i: integer;
|
||||
begin
|
||||
for i:=1 to length(Source) do
|
||||
if Source[ i ] = Delimiter then Source[ i ]:=#10;
|
||||
Target.Text:=Source;
|
||||
end;
|
||||
|
||||
{ Convierte un TString en una cadena de items separados con un delimitador }
|
||||
function StringsToString(Source:TStrings; Delimiter:char):string;
|
||||
var i: integer;
|
||||
begin
|
||||
Result:='';
|
||||
for i:=0 to Source.Count-1 do
|
||||
Result:=Result + Delimiter + Source[ i ];
|
||||
if Result<>'' then Delete(Result, 1, 1)
|
||||
end;
|
||||
|
||||
function EsCadenaVacia(const S: AnsiString): Boolean;
|
||||
begin
|
||||
Result := (Length(Trim(S)) = 0)
|
||||
end;
|
||||
|
||||
function EsCadenaVacia(const S: Variant): Boolean; overload;
|
||||
begin
|
||||
Result := True;
|
||||
if VarIsNull(S) then
|
||||
Exit;
|
||||
Result := EsCadenaVacia(VarToStr(S));
|
||||
end;
|
||||
|
||||
function EsNumerico(Cadena: String) : Boolean;
|
||||
var
|
||||
Codigo: Integer;
|
||||
Valor: Double;
|
||||
begin
|
||||
Val(Cadena, Valor, Codigo);
|
||||
Result := (Codigo = 0)
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user