FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
problemas con format y array!!!
Hola a todos:
Deseo formatear un cadena pero añadiendole los parmametros desde codigo y no me a salido. Estoy intentando hacer algo por el estilo y no me da resultado, como seria la manera correcta. var palabra : string; valores : string; i : integer begin for i := 0 to 100 do begin palabra := palabra + ' %s '; //agrego los %s para sustituir valores := valores + listbox1.items[i]; //armo la cadena con los if i < 100 then valores := valores + ','; //valores end; showmessage(format(palabra,[valores])); end; No se si me explique bien. Espero que alguien me pueda ayudar. Desde ya gracias. |
#2
|
|||
|
|||
Holas lo que pasa es que en tu codigo
Código:
valores := valores + listbox1.items[i]; //armo la cadena con los if i < 100 then valores := valores + ','; //valores showmessage(format(palabra,[valores])); y que te pide es un array de const que no es lo mismo 'A','B','C',....'X' a 'A,B,C,D....,X' hagamos una funcion que se llame Código:
Function RegCadena(Palabra,Clave : String); String; Var I : Integer; Ctemp : String; Begin Result := ''; While Pos('%s',Palabra) <> 0 Do Begin I := Pos('%s',Palabra); Delete(Palabra,I,2); CTem := Copy(Valores,1,Pos(',',Valores)-1); Delete(Valores,1,Pos(',',Valores)); Insert(Ctem,Palabra,I); End; Result := Palabra; End; Ahora en tu codigo quedaria asi var palabra : string; valores : String; i : integer; begin //aqui te recomiendo que uses el listbox1.items.Count-1 // por que sabras cuantos Items tiene tu listbox //por que si usas 100 puede ser que listbox1.items[100] no exista y te marque error for i := 0 to listbox1.items.Count-1 do Begin palabra := palabra + '%s'; //agrego los %s para sustituir valores := Valores + listbox1.items[i]+','; //armo la cadena con los End; showmessage(RegLaCadena(palabra,Valores)); //format(palabra,[Valores]) end; Saludos desde Puebla MExico asanxt@hotmail.com |
#3
|
||||
|
||||
pero si vas armando asi la cosa... no te daria lo mismo hacer:
Código:
Begin s := 'La cadena ' + NombreCadena + ' sera la misma, pero al Sr. ' + NombreProgramador + ' le costara mucho menos entender este ' + NombrePrograma; hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|