FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
o.o
podrias agregarme al msn para explicar bien!!
Última edición por ecfisa fecha: 06-02-2011 a las 05:14:18. Razón: Quitar dirección de correo privado. |
#2
|
||||
|
||||
Hola.
Hice la prueba y funciona correctamente de acuerdo a la condicion que expusiste: <cadena1> espacio <cadena2>. Para comprobarlo, copia y pega lo siguiente: Código:
procedure QuitarMayorMenor(const Value: string; var s1,s2: string); var i: Integer; begin s1:= ''; for i:= 1 to Length(Value) do if not(Value[i] in ['<', '>']) then s1:= s1 + Value[i]; s2:= Copy(s1, Pos(' ', s1)+1, MaxInt); Delete(s1, Pos(' ', s1), MaxInt); end; procedure TForm1.Button1Click(Sender: TObject); var Cad1,Cad2, st: string; begin st:= '<hola> <mundo>'; QuitarMayorMenor(st ,Cad1, Cad2); ShowMessage(Cad1+#10#13+Cad2); end; Nota: Si lees la guía de estilo , verás que dice: No solicites que te respondan por correo en privado. (Por lo que borro el mismo de tu mensaje anterior) Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 06-02-2011 a las 05:22:54. |
#3
|
|||
|
|||
o.o
hola
ups sorry no sabia!! xD bueno dejame probar ese para ver gracias!! |
#4
|
||||
|
||||
No hay problema twister, ya irás familiarizandote con el estilo y las etiquetas.
Cualquier problema que tengas, seguí presentándolo. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#5
|
|||
|
|||
o.o
ok esta bien!! bueno creo q no me explique y me enviaste unas soluciones a otro problema pero creo q si me dices como introducir cada palabra de la cadena q leo del archivo en un arreglo tambien solucionaria mi problema!! ejemplo
si tengo HOLA MUNDO <var1> <var2> entonces necesito q HOLA ESTE EN LA PRIEMRA POSICION DEL ARREGLO MUNDO en la segunda posicion <var1> en la tercera posicion!! <var2> en la cuarta posicion!! sin importar espacios entre las palanbras....... lo q en realidad necesito traer toda la linea del archivo para verificar su sintaxis y ver si esta bien escrita.... var1 y var2 son valores enteros q debo extraer para hacer operaciones en el programa... y disculpa la molestia |
#6
|
||||
|
||||
Cita:
A ver si de este modo te sirve:
Ejemplos de uso:
Otro ejemplo:
La función requiere que le envíes el nombre del archivo (Ruta+Nombre) y el delimitador que usará para distinguir una palabra de otra. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 06-02-2011 a las 06:59:10. |
#7
|
|||
|
|||
o.o
copie todo tal cual!! y bueno ya habia usado varias funciones pero no me sirven! :S me dicen q hay error indentifier expected but ':' found despues de la const: se q es algo con los 2 puntos pero cualquier funcion q pongo me da error :S
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Probleas con los arreglos | edgwin | OOP | 1 | 27-08-2010 23:32:52 |
delphi y arreglos dinamicos | vroa74 | Varios | 3 | 24-02-2007 12:21:41 |
Ayuda con arreglos !! | Siegfried | Varios | 2 | 27-09-2006 20:43:53 |
AYUDA con arreglos | pecosita | C++ Builder | 1 | 18-09-2006 22:00:50 |
Arreglos | Lobo | Varios | 3 | 19-09-2003 00:09:19 |
|