| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
DarkSpawn Lt JG


Registrado: 19 Mar 2005Mensajes: 72Ubicación: Coquimbo Chile
|
Publicado: Mie 11 Jul, 2007 6:03 am Asunto: de TMemo a Matriz |
|
|
Hola a todos. Recurriendo nuevamente a ustedes y muy agradecido.
Mi pregunta es la siguiente: ¿como puedo pasar de un TMemo a una Matriz?.
El TMemo es mas o menos de esta forma:
1200 2003 2110 20004 12000
22550 5552 4444 77787 555554
1222 5555 777 9888 999
me gustaria meter todo a una matriz tal de hacer operaciones en ella. La idea es ir tomando cada trozo por ejemplo tomar el 1200 y colocarlo en la primera posicion de la matriz, luego el segundo (2003) y colocarlo alado, etc.. (una especie de ReadString para cada fila)
La cantidad de numeros a lo ancho y a lo alto siempre es la misma. por ejemplo siempre tendrá 31 x 12 valores.
Alguna idea??. Quizás es más facil leerlo directamente de un fichero y pasarlo a una matriz sin necesidad de pasarlo por un TMemo.
Muchas gracias de antemano  _________________ -------------------------------------------
http://mundodigital.foro.st |
|
| Volver arriba |
|
 |
AntonioG Cdt


Registrado: 26 Jun 2007Mensajes: 9
|
Publicado: Mie 11 Jul, 2007 7:47 pm Asunto: Re: de TMemo a Matriz |
|
|
Hola,
Esta funcion pasa un AnsiString a un arreglo de flotantes
float *ReadString(AnsiString S,int n)
{
int i,k;
float *m;
m=(float *)malloc(sizeof(float)*n);
for(i=0;i<n-1;i++)
{
k=S.Pos(" ");
m[i]=StrToFloat(S.SubString(1,k-1));
S=S.SubString(k+1,S.Length()-k);
}
m[i]=StrToFloat(S);
return(m);
}
A esta funcion se le pasa cada AnsiString de los renglosnes del Tmemo ( for(i=0;i<n>Lines->Strings[i]) y el numero de valores a leer de esa AnsiString (n);
Esta rutina funciona solo para valores separados por un (y solo un) espacio. Si hay mas espaicos entre los valores, despues de esta linea:
S=S.SubString(k+1,S.Length()-k);
hay que agregar un S=S.TrimLeft() (o un S.Trim(), o S.trimRigth(), dependiendo del caso).
| DarkSpawn escribió: | Quizás es más facil leerlo directamente de un fichero y pasarlo a una matriz sin necesidad de pasarlo por un TMemo.
| pues si en el fichero estan los nuemros tambien en tetxo pues es igual de trabajo.
Saludos |
|
| Volver arriba |
|
 |
DarkSpawn Lt JG


Registrado: 19 Mar 2005Mensajes: 72Ubicación: Coquimbo Chile
|
Publicado: Jue 12 Jul, 2007 4:13 am Asunto: |
|
|
muchas gracias, lo probaré y te cuento _________________ -------------------------------------------
http://mundodigital.foro.st |
|
| Volver arriba |
|
 |
|