inserindo zero a esquerda numero

[Livio Neiva]

ola para todos!!!

eu tenho uma tabela chamada tipoPgto(Tipo pagamento) e o componente q vai representa-la, é o TComboBox, então no evento OnCreate do form onde estar esse componente, eu fiz o seguinte procedimento

procedure TF_Pagamentos.FormCreate(Sender: TObject);

begin

F_DMExpress.Cds_Pagamento.Active := True;

F_DMExpress.T_TipoPgto.Active := True;

F_DMExpress.T_TipoPgto.First;

While not F_DMExpress.T_TipoPgto.Eof do begin

cbtipopgto.Items.Add(F_DMExpress.T_TipoPgtoCODIGO.AsString + ' - ' + F_DMExpress.T_TipoPgtoDESCRICAO.AsString);

F_DMExpress.T_TipoPgto.Next;

end;

end;

e na linha de comando onde ta fazendo a gravação dados eu fiz esse procedimento??

F_DMExpress.Cds_Pagamento.FieldByName('TIPOPGTO').AsString := Copy(cbTipoPgto.Text,1,1);

so que ta acontecendo o seguinte, o componente ComboBox ta exibindo da forma como mostra abaixo;

1 - cartao

2 - cheque

3 - boleto

eu gostaria que ele ficasse assim;

01 - cartao

02 - cheque

03 - boleto

e quero copiar para meu campo tipopgto os dois primeiro codigo(digito), no caso o 01,02,03....

como faço para resolver esse problema, por favor gostaria da resposta baseada nos procedimentos acima.

valeu obrigado a todos!!!

[Jhonas]

Livio .... Porque voce não lê os seus posts ????

esta pergunta já foi respondida

http://scriptbrasil.com.br/forum/index.php...st&p=546223

abraço

[Livio Neiva]

Eu gostaria da resposta feita num componente comboBox

baseado no procedimento feito acima.

sendo que se tem 000 e eu insiro um inteiro 1 fique 001 e eu insiro um inteiro 10 fique 010

so que no componente combobox, e não estou conseguindo

fique como mostra o exemplo abaixo

001 - cartao

002 - cheque

003 - boleto

010 - fiado

e me diga em qual evento eu deve fazer, OnCreate, OnExit...ect??

valeu e muito obrigado??

[Jhonas]

sendo que se tem 000 e eu insiro um inteiro 1 fique 001 e eu insiro um inteiro 10 fique 010

so que no componente combobox, e não estou conseguindo

fique como mostra o exemplo abaixo

001 - cartao

Livio ... é só usar um pouco de criatividade que voce consegue

procedure TForm1.Button1Click(Sender: TObject);
var n: integer; s : string;
begin
   n := 1;
   FmtStr(s, '%.3d', [n]);
   ComboBox1.Items.Append(s + ' - cartão');
end;

abraço

[Livio Neiva]

sendo que se tem 000 e eu insiro um inteiro 1 fique 001 e eu insiro um inteiro 10 fique 010

so que no componente combobox, e não estou conseguindo

fique como mostra o exemplo abaixo

001 - cartao

Livio .....

procedure TForm1.Button1Click(Sender: TObject);
var n: integer; s : string;
begin
   n := 1;
   FmtStr(s, '%.3d', [n]);
   ComboBox1.Items.Append(s + ' - cartão');
end;

abraço