Angel Fernández
22-12-2006, 00:47:50
Saludos al foro.
Os propongo una cosa a ver qué os parece. Me gustaría que me comentaráis qué componentes utilizáis de forma reiterada, casi siempre. Es decir, componentes indispensables en vuestro uso a la hora de programar en Delphi.
Estos componentes deben cumplir las siguientes condiciones:
- Obviamente, no deben estar incluidos en Delphi, ni en las RxLib (también muy utilizadas).
- Ser libres o, al menos, no muy caros.
Para predicar con el ejemplo os diré qué utilizo yo de forma continua, casi en todos los programillas que hago (que, la verdad, tampoco son tantos):
Se trata de un único fichero llamado strcon.pas Viene con ayuda en formato chm y lo podéis bajar de http://delphi.icm.edu.pl/authors/a0003010.htm
El autor es un tal Eric Grobler y se trata de una colección de decenas de funciones para tratar cadenas de texto. Se puede hacer prácticamente cualquier filigrana con texto: convertir a varios tipos de números, recortar, quitar espacios en blanco, dar la vuelta, sustituir caracteres, etc, etc.
Como muestra, os incluyo unos ejemplos que vienen al comienzo de strcon.pas:
Some examples:
sc.Strip(' hello world ') > 'hello world'
sc.GetChars('123Hello',['A'..'z']) > 'Hello'
sc.Purge('123Hello',['A'..'z']) > '123'
sc.After('.','c:\folder.files\name.txt') > 'files\name.txt'
sc.AfterRev('.','c:\folder.files\name.txt') > 'txt'
sc.BeforeRev('.','c:\folder.files\name.txt') > 'c:\folder.files\name'
sc.Upcase('polé') > 'POLÉ'
sc.BaseToStr(12,'01',8) > '00001100'
sc.Str(12.1) > '12.10'
sc.ToF('12.1') > 12.1
sc.WordPos('the','where is the word?') > 10
sc.Replace('dog','cat','The dog is Dogmeat') > 'The cat is Dogmeat'
Un inconveniente: esta unidad es para delphi 4 ó 5. Sin embargo, la podéis utilizar con delphi 7 sustituyendo la línea:
Código Delphi [-] (http://www.clubdelphi.com/foros/#)e := SysUtils.ExceptObject;if e=nil then exit;
Por esta otra:
Código Delphi [-] (http://www.clubdelphi.com/foros/#)e := System.ExceptObject;if e=nil then exit;
Ya me diréis qué os parece.
Espero que os sirva de tanta ayuda como a mí, y espero que compartáis vuestros componentes indispensables.
Feliz Navidad a todos:)
Os propongo una cosa a ver qué os parece. Me gustaría que me comentaráis qué componentes utilizáis de forma reiterada, casi siempre. Es decir, componentes indispensables en vuestro uso a la hora de programar en Delphi.
Estos componentes deben cumplir las siguientes condiciones:
- Obviamente, no deben estar incluidos en Delphi, ni en las RxLib (también muy utilizadas).
- Ser libres o, al menos, no muy caros.
Para predicar con el ejemplo os diré qué utilizo yo de forma continua, casi en todos los programillas que hago (que, la verdad, tampoco son tantos):
Se trata de un único fichero llamado strcon.pas Viene con ayuda en formato chm y lo podéis bajar de http://delphi.icm.edu.pl/authors/a0003010.htm
El autor es un tal Eric Grobler y se trata de una colección de decenas de funciones para tratar cadenas de texto. Se puede hacer prácticamente cualquier filigrana con texto: convertir a varios tipos de números, recortar, quitar espacios en blanco, dar la vuelta, sustituir caracteres, etc, etc.
Como muestra, os incluyo unos ejemplos que vienen al comienzo de strcon.pas:
Some examples:
sc.Strip(' hello world ') > 'hello world'
sc.GetChars('123Hello',['A'..'z']) > 'Hello'
sc.Purge('123Hello',['A'..'z']) > '123'
sc.After('.','c:\folder.files\name.txt') > 'files\name.txt'
sc.AfterRev('.','c:\folder.files\name.txt') > 'txt'
sc.BeforeRev('.','c:\folder.files\name.txt') > 'c:\folder.files\name'
sc.Upcase('polé') > 'POLÉ'
sc.BaseToStr(12,'01',8) > '00001100'
sc.Str(12.1) > '12.10'
sc.ToF('12.1') > 12.1
sc.WordPos('the','where is the word?') > 10
sc.Replace('dog','cat','The dog is Dogmeat') > 'The cat is Dogmeat'
Un inconveniente: esta unidad es para delphi 4 ó 5. Sin embargo, la podéis utilizar con delphi 7 sustituyendo la línea:
Código Delphi [-] (http://www.clubdelphi.com/foros/#)e := SysUtils.ExceptObject;if e=nil then exit;
Por esta otra:
Código Delphi [-] (http://www.clubdelphi.com/foros/#)e := System.ExceptObject;if e=nil then exit;
Ya me diréis qué os parece.
Espero que os sirva de tanta ayuda como a mí, y espero que compartáis vuestros componentes indispensables.
Feliz Navidad a todos:)