Ver Mensaje Individual
  #1  
Antiguo 03-02-2010
Alejo15x Alejo15x is offline
Miembro
 
Registrado: ene 2010
Posts: 55
Reputación: 15
Alejo15x Va por buen camino
Descomponer cadena @String

Hola.

Estoy desarrollando algo asi como un bot, bueno...

Tengo un ListBox, en el cual al dar a un boton se agrega los siguientes parametros:

Código Delphi [-]
a.Items.Add('Ground: ('+IntToStr(TPlayer.Create.Position.X)+' '+IntToStr(TPlayer.Create.Position.Y)+' '+IntToStr(TPlayer.Create.Position.Z)+')');


TPlayer es una class la cual lee un entero de una aplicaciòn.
El resultado seria por ejemplo:

Código Delphi [-]
Ground: (32000 32000 7)


Hay tengo los 3 parametros, ahora nesecito acceder a ellos:
Código Delphi [-]
var X, Y, Z : integer; sTipo : string; begin

Escribirle al sTipo donde esta el "Ground", al X, Y, Z, a dentro de los parentesis (X Y Z).

Código Delphi [-]
sTipo (X Y Z)


Bueno, creo que se podria usar un "case" o algo para verificar si "Ground" es ground, y despues escribir en X, Y, Z las X, Y, Z obtenidas en la cadena.

Aquì os dejo un ejemplo en LUA, para que me entiendan mejor. ( Quiero explicar que tengo TDAH alto, y la verdad por eso seme dificulta un monton explicarme, pero si entiendo la programacion ).

Código:
DecodeParam(ListBox.Items[i])
ListBox.Selected.ToString().Split (sTipo (lb1), X (lb2), Y (lb3), Z (lb4))if sTipo = "Groung" then Client.Escribir(X @X, Y @Y, Z @Y) End
Un saludote! Y espero me resuelvan la dudita!
Responder Con Cita