Insertar linebreak en tiempo de ejecución

[paladincubano]

Si quieres escribir menos, no uses el chr, y ponlo durectamente.

Eje:

Código Delphi [-]
Label1.Caption := 'Hola'+#13#10+'2da linea';

#10 salta de linea y #13 retorna el carro al principio de linea (normalmente lo hace sin el #13

Osea, solo bastaria poner un #10, poniendo #10#10#10 te salta 3 lineas.

saludos.

PD: ignora esto, no habia visto el final de tu post, sorry.

[carlos estrada]

PD: ignora esto, no habia visto el final de tu post, sorry.

Exactamente, ese es el problema, que el obvio #13#10 ( o chr(13)+chr(10)) no funciona ....

Eso es lo que me extraña, que en tiempo de diseño si lo hace y en ejecución no

[paladincubano]

Probastes la solucion que te daban mas arriba?

[carlos estrada]

La de poner la concatenación en una función? mmmm, no, ya que debe dar el mismo resultado ...

pero nomás por no dejar dejo lo hago .....


EDITO:

Lo dicho, hace exactamente lo mismo. ¿Qué diferencia habrá? mmmmmm ¿por qué esos cuadros si lo hago durante la ejecución del programa ....?

EDITO2:

Pues he estado jugando con esa función un rato .... ¡y ya funcionó! .... aún no entiendo la lógica del asunto ... si el contenido de la función lo coloco dentro de la rutina no lo hace pero fuera si ...., igual si le mando de parámetros el resultado de otra rutina no lo hace pero si le mando variables estring si ... en fin, lo bueno es que finalmente funcionó .... ¡gracias a ambos!

[[Al González]]

Empezado por carlos estrada

EDITO2:

Pues he estado jugando con esa función un rato .... ¡y ya funcionó! .... aún no entiendo la lógica del asunto ... si el contenido de la función lo coloco dentro de la rutina no lo hace pero fuera si ...., igual si le mando de parámetros el resultado de otra rutina no lo hace pero si le mando variables estring si ... en fin, lo bueno es que finalmente funcionó .... ¡gracias a ambos!

Que bueno que encontraste una solución, pero ¿podrías mostrarnos el código que no funcionó?

Gracias.

Al González.

[carlos estrada]

Pues mira .... como mencioné estuve "trasteando" un poco diferentes formas para encontrar algo que funcionará, la función a primera instancia no funcionó de esta forma:

Código Delphi [-]
GridActivo.ClearRows;
  For i:=GridActivo.Columns.Count-1 downto 9 do
      GridActivo.Columns.Delete(i);

  For i:=3 To DM.spTransitos.FieldCount-1 do Begin
      Linea1 := Copy(DM.spTransitos.Fields[i].DisplayName,1,Pos(' {',DM.spTransitos.Fields[i].DisplayName));
      linea2 := Copy(DM.spTransitos.Fields[i].DisplayName,Pos('{',DM.spTransitos.Fields[i].DisplayName),50);

      GridActivo.Columns.Add(TNxNumberColumn, IntToStr(GridActivo.Columns.Last.Index));

SetNombreMultiLinea(GridActivo,Linea1,Linea2,50,GridActivo.Columns.Last.Index);
  End;

Donde dejé el código que elimina las columnas para volverlas a crear, cuando dije que ya funcionaba fue por que entre prueba y prueba comenté ese FOR. Luego cai en cuenta que si funcionaba al actualizar columnas ya creadas y no cuando eran columnas generadas al vuelo, pero ya no postie eso por que definitivamente tenia que ser algo difernte entre las columnas creadas por código y las que cree en tiempo de diseño. Poco después de analizarlo vi que mi error era que debía colocar en true la propiedad Multiline de Header .
Ya con este cambio el clásico #13#10 funciona perfectamente.

La verdad este fue un error tonto que me ocurrió por hacer un nuevo proyecto usando un ejemplo como plantilla, no volverá a ocurrir

[[Al González]]

No te preocupes, mi inquisición fue en aras de evitar la concepción de un mito.