F�rum Converter Integer para String #8300

04/08/2009

Colega, Por favor veja esse c�digo abaixo e me fala, como consigo converter o valor da linha em vermelho de Integer para String, sei que pra vc's isso � simples, mas eu infelizmente ainda tenho dificuldades em rela��o a isso... um abra�o aguardo retorno procedure TfrmCadKitProdutoDetalhe.StartProcedure;
var
Linha: integer;
begin
inherited;
dmAdo.ADOConnection.BeginTrans;
try
    DataSource.DataSet.Edit;
    DataSource.DataSet.Post;    dmAdo.ADOConnection.Execute('delete tb_kit_produto where kit_codigo = '+DataSource.DataSet.FieldByName('kit_codigo').AsString);
    for Linha := 1 to GridItem.RowCount-2 do
    begin
      if GridItem.Ints[ COL_QTDE, linha ] > 0 then
     begin
        dmAdo.ADOConnection.Execute('insert into tb_kit_produto ( kit_codigo, mpr_codigo, ktp_qtde ) values ( '+
          DataSource.DataSet.FieldByName('kit_codigo').AsString+' ,'+
          GridItem.Cells[ COL_CODIGO, linha ]+' ,'+
          GridItem.Cells [ COL_QTDE, linha ]+' )');       end;
    end;
    dmAdo.ADOConnection.CommitTrans;
except
    dmAdo.ADOConnection.RollbackTrans;
    raise;
end;
end;

Irenildo Carvalho

Curtir t�pico

+ 0

Responder

Posts

04/08/2009

Wesley Yamazack

Ol� meu amigo.
Estamos aqui para isso mesmo, tirar suas d�vidas, seja ela simples ou complexas. Estamos a disposi��o. Sempre!
Vamos ao que interessa vou te mostrar uma coisa pra voc� entender, e n�o s� resolver teu problema, OK ?

Ex1
Tenho uma vari�vel inteira e quero jogar o seu valor em um Edit, como fa�o ?
   Edit( � String) e o valor que eu quero jogar nele � Integer. Olha o Macete!
   Edit1.Text := IntToStr(Valor); // Basta voc� cruzar, delphi eu quero converter aquela vari�vel(Integer) para o meu tipo(String)

Ex2
Tenho um Edit(String) e quero jogar o seu valor em uma vari�vel Real, como fa�o ?
   Vari�vel(Real) e o Edit(String)
   Valor := StrToFloat(Edit1.Text); // Basta voc� cruzar, delphi eu quero converter aquela Edit1.Text(String) para o meu tipo(Real, que no delphi se torna float)

Ex3
Tenho um Edit(String) e quero jogar o seu valor em uma vari�vel Inteira, como fa�o ?
   Vari�vel(Integer) e o Edit(String)
   Valor := StrToInt(Edit1.Text); // Basta voc� cruzar, delphi eu quero converter aquela Edit1.Text(String) para o meu tipo(Integer).

   E no seu caso como ficaria ?

        dmAdo.ADOConnection.Execute('insert into tb_kit_produto ( kit_codigo, mpr_codigo, ktp_qtde ) values ( '+
          DataSource.DataSet.FieldByName('kit_codigo').AsString+' ,'+
          GridItem.Cells[ COL_CODIGO, linha ]+' ,'+
          GridItem.Cells [ COL_QTDE, linha ]+' )');

Neste caso meu amigo, fa�a o seguinte

          GridItem.Cells[ IntToStr(COL_CODIGO), IntToStr(linha) ]+' ,'+
          GridItem.Cells [ IntToStr(COL_QTDE, IntToStr(linha) ]+' )');

O importante � funcionar, por�m entender � muito mais vantagem. sacou ?

Um abra�o

Wesley Y

Responder

Gostei + 0

04/08/2009

Irenildo Carvalho

Olha eu entendi bem a l�gica, valeu mesmo... Agora mesmo com a sua modifica��o aind dar erro, (imagem anexo) v se vc entende o que ta acontecendo... N�o consigo anexar a imagem, te mando o link Valeu um abra�o

Responder

Gostei + 0

04/08/2009

Irenildo Carvalho

Segue o link da imagem com o erro valeu http://video.devmedia.com.br/discovirtual/201854/erro%20de%20convers�o/erro%20de%20convers�o.rar

Responder

Gostei + 0

04/08/2009

Wesley Yamazack

Ol� amigo.

          GridItem.Cells[ IntToStr(COL_CODIGO), IntToStr(linha) ]+' ,'+
          GridItem.Cells [ IntToStr(COL_QTDE), IntToStr(linha) ]+' )');

   Faltou somente o Parentese, e este erro Too many Actual parameters
   � um erro que acontece quando tentamos passar mais parametros do que a function ou procedure pede, no caso ele estava tentando passar

   IntToStr(Col_Qtde, IntToStr(Linha)) ou seja ele estava tentando passar 2 parametros.

Um abra�o

Wesley Y

Responder

Gostei + 0

04/08/2009

Irenildo Carvalho

Aind dar erro :(

Responder

Gostei + 0

04/08/2009

Wesley Yamazack

Ol� meu amigo,
Voc� alterou embaixo, por�m em cima ainda esta da maneira antiga.

GridItem.Cells[ IntToStr(COL_CODIGO), IntToStr(linha) ]+' ,'+
GridItem.Cells [ IntToStr(COL_QTDE), IntToStr(linha) ]+' )');

Qual � o tipo de COL_CODIGO e COL_QTDE ? S�o Integer ?

Att,

Wesley Y

Responder

Gostei + 0

05/08/2009

Irenildo Carvalho

Se modificar como vc fez, dar erro nas duas linhas, mas na verdade s� preciso converter o valo da quantidade mesmo... Veja o erro como convertendo os dois valores

Responder

Gostei + 0

05/08/2009

Wesley Yamazack

Ol�, Bom dia!

   Qual � o tipo de COL_CODIGO e COL_QTDE ? S�o Integer ? Se forem integer, n�o precisa converter, o Linha � Integer certo ? Me fale quais s�o os tipos das vari�veis. Pois :

Var
    Coluna, Linha : Integer
    S : String;
begin
    S := GridItem.cells[coluna, linha] ; // Ou seja ele pede dois integer
end;

    Se tua COL_CODIGO e COL_QTDE forem String, voc� tem que fazer o seguinte, StrToInt(COL_CODIGO), StrToInt(COL_QTDE)

Att

Wesley Y

Responder

Gostei + 0

05/08/2009

Irenildo Carvalho

Olha s�, O c�digo � esse abaixo e o que preciso � converter o valor da coluna quantidade para String. procedure TfrmCadKitProdutoDetalhe.StartProcedure;
var
Linha: integer;
begin
inherited;
dmAdo.ADOConnection.BeginTrans;
try
    DataSource.DataSet.Edit;
    DataSource.DataSet.Post;    dmAdo.ADOConnection.Execute('delete tb_kit_produto where kit_codigo = '+DataSource.DataSet.FieldByName('kit_codigo').AsString);
    for Linha := 1 to GridItem.RowCount-2 do
    begin
      if GridItem.Ints[ COL_QTDE, linha ] > 0 then
     begin
        dmAdo.ADOConnection.Execute('insert into tb_kit_produto ( kit_codigo, mpr_codigo, ktp_qtde ) values ( '+
          DataSource.DataSet.FieldByName('kit_codigo').AsString+' ,'+
          GridItem.Cells[ COL_CODIGO, linha ]+' ,'+
          GridItem.Cells [ COL_QTDE, linha ]+' )');       end;
    end;
    dmAdo.ADOConnection.CommitTrans;
except
    dmAdo.ADOConnection.RollbackTrans;
    raise;
end;
end;

Responder

Gostei + 0

06/08/2009

Wesley Yamazack

Ol� meu amigo, boa noite!
Eu entendi o que voc� quer, por�m qual � o tipo da v�riavel ?
Voc� precisa converter Quantidade(Integer) para string certo? � isso n�o � ? Ent�o como te falei use IntToStr(Quantidade), e isso ir� converter o valor para String.

� isso ?

Um abra�o

Wesley Y

Responder

Gostei + 0

07/08/2009

Irenildo Carvalho

Resolvido... Muito obrigado pela aten��o... Valeu... um abra�o

Responder

Gostei + 0

07/08/2009

Wesley Yamazack

Ol� meu amigo, bom dia.
Fechamos o chamado ent�o.

Um abra�o

Wesley Y

Responder

Gostei + 0