como pegar string memo
ola pessoal tem como eu pegar a string de um memo... assim
exemplo: meu memo esta com uma descrição e um valor.eu quero pegar somente o valor ou descrição e valor.. ok
o valor,e descrição vou quardar em dois campos de uma tabela
sapato n 38 valor 89,30
sandalha Ryader n 39 valor 36,80..
como voces poden ver. os valores não estão centralizados.na mesma posição..:
Desde ja Agradeço a colobaração de todos amigos(a)
exemplo: meu memo esta com uma descrição e um valor.eu quero pegar somente o valor ou descrição e valor.. ok
o valor,e descrição vou quardar em dois campos de uma tabela
sapato n 38 valor 89,30
sandalha Ryader n 39 valor 36,80..
como voces poden ver. os valores não estão centralizados.na mesma posição..:
Desde ja Agradeço a colobaração de todos amigos(a)
Cicero
Curtidas 0
Respostas
Bacalhau
14/05/2004
Então é assim:
pelo exemplo podemos verificar a existência da palavra ´valor´ que separa a descrição e o valor dos artigos. Essa será a chave que nos permite separar os campos (na verdade é mesmo de um separador que se trata).
A função ´pos´ captura a posição da palavra ´valor´ na string. Por outro lado sabemos que a palavra ´valor´ tem 5 letras. Então fica fácil. Ex: na primeira linha que envias, ´valor´ começa na 13ª posição. Vamos então ao código:
var i : integer;
s : string;
descricao, valor : string; // estes são os campos
// vou assumir que ´s´ contém a 1ª linha toda
i := pos(´valor´,s); // retorna 13 para a 1ª linha
descricao := copy(s,1,i); // capturei a descrição do produto
valor := copy(s, i + 6,Length(s) - (i + 5));
VOILÁ!! :lol: Independentemente do comprimento da string, capturo os campos correctos!
Abraço
bacalhau
pelo exemplo podemos verificar a existência da palavra ´valor´ que separa a descrição e o valor dos artigos. Essa será a chave que nos permite separar os campos (na verdade é mesmo de um separador que se trata).
A função ´pos´ captura a posição da palavra ´valor´ na string. Por outro lado sabemos que a palavra ´valor´ tem 5 letras. Então fica fácil. Ex: na primeira linha que envias, ´valor´ começa na 13ª posição. Vamos então ao código:
var i : integer;
s : string;
descricao, valor : string; // estes são os campos
// vou assumir que ´s´ contém a 1ª linha toda
i := pos(´valor´,s); // retorna 13 para a 1ª linha
descricao := copy(s,1,i); // capturei a descrição do produto
valor := copy(s, i + 6,Length(s) - (i + 5));
VOILÁ!! :lol: Independentemente do comprimento da string, capturo os campos correctos!
Abraço
bacalhau
GOSTEI 0
Cicero
14/05/2004
Valeu cara Ok
GOSTEI 0
Bacalhau
14/05/2004
:wink:
GOSTEI 0