Picard
Master
Registrado: 18 Ene 2004Mensajes: 218Ubicación: Palamos (Girona) España
|
 Publicado: Mar 17 Feb, 2004 12:53 pm Asunto: Base de datos de batimetria y posicion |
 |
|
Hola compañeros,necesito ayuda a ver si a alguien se le ocurre como puedo hacer esto:
Necesito crear una DB en la que en el mismo campo pueda incluir batimetria p.ej 32 y 56.21.36 N , 03.12.01 E ya que pretendo ponerla en mi form Principal y al pasar el mouse sobre cada celda me de posicion y profundidad.
Gracias
_________________
El hombre es el unico ser que tropieza dos veces en la misma piedra ( en mi caso infinitas veces) |
|
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Mie 18 Feb, 2004 1:43 am Asunto: |
|
|
Puedes utilizar, el campo como una cadena de caracteres y seleccionar las partes de una cadena separadas por un caractere special, por ejemplo...
esta seria tu cadena. inicial dentro del campo. la misma informacion pero separada por punto y coma...
AnsiString Cadena= "32;56.21.36 N;03.12.01 E"
y utilizar, la siguiente funcion que te devuelve un Arreglo de Cadenas
| Código: |
//*******************funicion que divide una cadena a partir de un caracter ****
TStrings *__fastcall DivideCadena(AnsiString ctmp, AnsiString LetraDivisora){
TStringList *ArregloCadena = new TStringList();
int pos=ctmp.Pos(LetraDivisora);
if(pos!=0){
ArregloCadena->Add(ctmp.SubString(1,pos-1));
ctmp=ctmp.SubString(pos+1,ctmp.Length());
pos=ctmp.Pos(LetraDivisora);
while (pos!=0){
if (pos!=0){
ArregloCadena->Add(ctmp.SubString(1,pos-1));
ctmp=ctmp.SubString(pos+1,ctmp.Length());
}
pos=ctmp.Pos(LetraDivisora);
}
ArregloCadena->Add(ctmp.SubString(1,ctmp.Length()));
}else{
ArregloCadena->Add(ctmp);
}
return (ArregloCadena);
}
|
Donde puedes utilizar la funcion de esta manera
| Código: |
AnsiString Cadena= "32;56.21.36 N;03.12.01 E"
DivideCadena(Cadena,";")->Strings[0] // = 32
DivideCadena(Cadena,";")->Strings[1] // = 56.21.36 N
DivideCadena(Cadena,";")->Strings[2] // = 03.12.01 E
|
digo puede servirte saludos...
_________________
 |
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
