Como separar una cadena con un delimitador

[gerardus]

Empezado por Lepe

Tal y como dice la ayuda de delphi para TStringlist, si las cadenas en su interior deben tener espacios, entonces hay que entrecomillarlas (dobles comillas) para que funcione correctamente delimitextText:

Extraido de la ayuda de Delphi 7:

When writing DelimitedText, individual strings must be separated using QuoteChar at both ends, using Delimiter as a separator, or using both these methods.

Es decir que se pueden separar con comillas (el caracter QuoteChar), o con el caracter Delimiter o con las dos formas. Está claro que solo con el caracter Delimiter no funciona.
Tambien de la ayuda de Delphi 7:

CommaText is the same as the DelimitedText property with a delimiter of ',' and a quote character of ‘"’

Es cierto que funciona si tienes control sobre que tipo de texto vas a tratar. Si no lo tienes, no te vale .En mi caso, se trataba de una importación de datos (tipo 206190025;AA12458900000;AEFG...) que funcionó durante 3 meses sin ningún problema hasta que uno de los campos de tipo string vino con un espacio.

Cordialmente,

Gerard.

[radge]

Gracias por las respuestas voy a probar cada una de ellas y a ver cual me convenzé mas.

Por cierto tengo otra duda que no consigo resolver.



Ya que tengo esto 'campo1','campo2','campo3',...

Y al hacer

lCampos := TStringList.Create;
ExtractStrings([','], [' '], PChar(cad), lCampos);

Recibo esto en cadena
[0] = 'campo1'
[1] = 'campo2'

Ahora intento substituir todas las comas simples ' de la cadena de texto tanto del principio como del final que tengo y tengo la duda que adjunto.

StringReplace(cadena, ' como indico aquí la coma simple? ', '',[rfReplaceAll, rfIgnoreCase]);

gracias radge

[gerardus]

StringReplace(cadena, '''', '',[rfReplaceAll, rfIgnoreCase])

Saludos,

Gerard.

[radge]

Me expresé mal tengo doble comita simple es decir

''campo1''
''campo2''
...

He probado así y devuelve el mismo resultado
StringReplace(prd_codi, ' '' ', '',[rfReplaceAll, rfIgnoreCase]);

salu2 radge

[gerardus]

Cuando digo StringReplace(cadena, '''', '',[rfReplaceAll, rfIgnoreCase]), la cadena a remplazar no es comilla simple-comilla doble-comilla simple, sinó comilla simple-comilla simple-comilla simple-comilla simple (4 comillas simples, sin espacios entre ellas ni nada).

var
  cadena: string;
begin
  Cadena := '''''Campo1''''';
  ShowMessage(cadena);
  ShowMessage(StringReplace(cadena, '''', '',[rfReplaceAll, rfIgnoreCase]));

Esto a mi me funciona. La primera vez me muesta campo1 entre dobles comillas simples, y limpio la segunda vez.

Saludos,

Gerard.

[Casimiro Notevi]

Empezado por Jasan_Records

Hola Muchachos!, Tengo un campo que guarda un dato como este: pc-12345-a-16, la consulta es como podria hacer la codificacion para separar la cadena delimitado por el - y que se muestre cada uno en un edit. por ejemplo edit1c, edit2:12345, edit3:a y edit4:16. espero su ayuda, Gracias.

Crea un hilo nuevo con tu consulta, gracias. Tu pregunta no aporta nada a la solución de este tema.
No olvides nuestra guía de estilo, gracias.