Ler campo de uma tabela e separar o q esta preenchido ...

Question

PessoALL,tenho uma campo de uma tabela onde ele sua caracteristica sao:ParadoxCampo  A  90e tem varios registros preenchidos da seguinte forma:064105401065200201Preciso percorrer a tabela e nesse camp...

Biffi · Answer

Existem v�rias formasvar str1,str2,str3 : string;   str1 := copy(table1.fieldbyname(�NOMEDOCAMPO�).AsString,1,3);   str2 := copy(table1.fieldbyname(�NOMEDOCAMPO�).AsString,4,3);   str3 := copy(table1.fieldbyname(�NOMEDOCAMPO�).AsString,7,3);caso  voc� n�o soubesse o tamanho da string (valor do campo), poderia utilizar la�os de repeti��o.  Mas ai poste aqui detalhadamente o que voce quer fazer.Espero ter ajudado...

Scandolara · Answer

isso .. amigo,eu nao sei o tamanho certo ... tem variacoes de tamanho ,.,.como posso fazer isso ?obr...

Biffi · Answer

S� me d� uma dica.Quando conseguir atribuir os tr�s primeiros caracteres para uma vari�vel, o que ser� feito. Exibir mensagens,  incluir em outro campo?Voc� pode explicar melhor (mais detalhes) o que desej�s fazer, tipo, que separar de tr�s em tr�s para exibir uma mensagem, para somar com outro campo, etc......

Scandolara · Answer

Amigo,Apos isso , vou adicionar em uma tabela e vou pegar os proximos 3 da string , adciono na tabela, pego o proximo ..., e assim por diante .. ate chegar o fim da stringEx.: TABELA da StringNome Codigo Descicao MEDE  001     064200250405MEDE  002     003205500ADVO  003     011111250033050090010Tabelas q vou descarregarNome DescMEDE  064MEDE  200MEDE  250MEDE  405ADVO 011ADVO 111ADVO 250ADVO 033ADVO 050ADVO 090ADVO 010� isso q gostaria de fazer ...e naum estou conseguindoobr + 1 vvez parceiroate...

Biffi · Answer

vamos ver ser eu entendi direito. Voc� vai ler um campo de uma tabela e separ�-lo em de 3 em 3 caracteres, e a cada uma dessas separa��es inserir os 3 caracteres em outra.

ficaria assim:
for i:= 1 to length(table1.fieldbyname(�NOMEDOCAMPO�).AsString) do begin
j := 1;
aux := ��; // variavel tipo string
while j < 4 do begin
aux := aux + table1.fieldbyname(�NOMEDOCAMPO�).AsString[j];
inc(j);
end;
table2.Insert;
table2.fieldbyname(�NOMEDOCAMPO�).AsString := aux;
table2.post;
end;

Caso eu tenha interpretado errado, poste novamente....

valew

Paulo_amorim · Answer

Ol�Independente do que vc quer fazer, vc pode utilizar o Copy e variar num la�o de repeti��o (aqui utilizarei uma fun��o que retorna TStrings):[code:1:59ffac25b8]function SeparaTexto(Texto:String; Quant: Integer): TStrings;var i : Integer;begin     Result := TStringList.Create;     for  i := 0 to Length(Texto) do     begin          Result.Add ( Copy(Texto, i * Quant + 1, Quant) );     end;end;[/code:1:59ffac25b8]No caso, ele eh bem simples mas acho que atende...Espero que ajudeAt�+...

R�mulo Barros · Answer

[code:1:2de3d3c432]procedure TForm1.Button1Click(Sender: TObject);Var MyString : String; Resp, C: Word;begin  MyString := �12345678�;  C := 1;    Repeat      If(9 Mod C = 0)Then        ShowMessage(Copy(MyString,C,3));      inc(C);    Until(C > Length(MyString));end;end.[/code:1:2de3d3c432]...

F�rum Ler campo de uma tabela e separar o q esta preenchido ... #235760