ajuda Por favor nesse codigo.
bom boa noite antes de mais nada, preciso de um codigo que faça o seguinte tenho um .txt onde ele é composto de exemplo:("1111^11111^11111^1111"), onde precisaria de 4 edit.text e cada 1 receberia a informação antes do caracter "^" com excessão do ultimo que receberia a informação depois de "^". tentei utilizar copy com pos porem nao deu certo alguem poderia me ajudar?
Raí Jales
Curtidas 0
Respostas
Marco Salles
31/08/2013
eu acho que com copy da certo tb. Mas vc pode quebrar esta string por por várias formas
pesquise por DelimitedText , ExtractStrings , po para Delphi mais novos Expressões Regulares
caso não consiga desenvolver sozinho , volte e retorno . OK ?
[]sds
pesquise por DelimitedText , ExtractStrings , po para Delphi mais novos Expressões Regulares
caso não consiga desenvolver sozinho , volte e retorno . OK ?
[]sds
GOSTEI 0
Marco Salles
31/08/2013
eu acho que com copy da certo tb. Mas vc pode quebrar esta string por por várias formas
pesquise por DelimitedText , ExtractStrings , para Delphi mais novos pesquise por Expressões Regulares
caso não consiga desenvolver sozinho , volte e retorno . OK ?
[]sds
pesquise por DelimitedText , ExtractStrings , para Delphi mais novos pesquise por Expressões Regulares
caso não consiga desenvolver sozinho , volte e retorno . OK ?
[]sds
GOSTEI 0
Raí Jales
31/08/2013
eu acho que com copy da certo tb. Mas vc pode quebrar esta string por por várias formas
pesquise por DelimitedText , ExtractStrings , para Delphi mais novos pesquise por Expressões Regulares
caso não consiga desenvolver sozinho , volte e retorno . OK ?
[]sds
pesquise por DelimitedText , ExtractStrings , para Delphi mais novos pesquise por Expressões Regulares
caso não consiga desenvolver sozinho , volte e retorno . OK ?
[]sds
amigão obrigado foi de grande ajuda consegui resolver com o seu conselho, fiz conforme o metodo abaixo caso alguem precise, criando um string list, abrindo meu texto em um memo delimitando no caratcter que queria e quebrando-o no mesmo assim após jogando num outro memo 1 copiando as linhas nos edits :D obrigado marco salles li foi um artigo seu se nao me engano kkkkk :D
procedure TForm1.Button4Click(Sender: TObject);
var
Lst:TStrings;
begin
Lst:=TStringList.Create;
Lst.delimiter:='^';
Lst.QuoteChar:='^';
Lst.StrictDelimiter:=true;
Lst.DelimitedText:=memo1.Text;
memo2.Text := lst.Text;
edit1.Text := memo2.Lines[0];
edit2.Text := memo2.Lines[1];
edit3.Text := memo2.Lines[2];
edit4.Text := memo2.Lines[3];
edit5.Text := memo2.Lines[4];
edit6.Text := memo2.Lines[5];
end;
GOSTEI 0
José
31/08/2013
Já que a duvida inicial foi sanada, estou dando este tópico por resolvido.
GOSTEI 0
Marco Salles
31/08/2013
Raí Duarte Jales , isto mesmo .. Vc absorveu muito bem a informação .. Muito bom cara
[]sds
[]sds
GOSTEI 0