faxetaria
20/03/2020
0
Lucas
Posts
20/03/2020
Emerson Nascimento
var i, nIni, nFim: integer; cString: string; begin nIni := StrToIntDef(edit1.text,1); nFim := StrToIntDef(edit2.text,1); cString := ''; if nFim > nIni then begin for i := nIni+1 to nFim-1 do cString := cString + ',' + IntToStr(i); cString := IntToStr(nIni) + cString + ',' + IntToStr(nFim); end else cString := IntToStr(nIni); ShowMessage(cString); end;
23/03/2020
Lucas
var i, nIni, nFim: integer; cString: string; begin nIni := StrToIntDef(edit1.text,1); nFim := StrToIntDef(edit2.text,1); cString := ''; if nFim > nIni then begin for i := nIni+1 to nFim-1 do cString := cString + ',' + IntToStr(i); cString := IntToStr(nIni) + cString + ',' + IntToStr(nFim); end else cString := IntToStr(nIni); ShowMessage(cString); end;
i, nIni, nFim: integer;
cString: string;
begin
ADO_cartao.Append;
nIni := StrToIntDef(edit1.text,1);
nFim := StrToIntDef(edit2.text,1);
cString := '';
if nFim > nIni then
begin
for i := nIni+1 to nFim-1 do
begin
cString := cString + ',' + IntToStr(i);
cString := IntToStr(nIni) + cString + ',' + IntToStr(nFim);
ADO_cartao.FieldByName('CodigoDeBarras').Value := cString;
ADO_cartao.FieldByName('NUM_CARTAO').Value := cString;
ADO_cartao.FieldByName('COD_PESSOA').AsString := '';
ADO_cartao.FieldByName('DarBaixa').Value := 0;
ADO_cartao.FieldByName('Offline').Value := 0;
ADO_cartao.FieldByName('SemDigital').Value := 0;
ADO_cartao.FieldByName('EnviadoListaSemDigital').Value := 0;
ShowMessage(cString);
ADO_cartao.Post;
end;
end
else
cString := IntToStr(nIni);
end;
estou fazendo deste jetio porem no banco de dados ele esta escrevendo linha 1= 1,2,3,4,5,6
e quero que escreva
linha 1 = 1
linha 2 = 2
tipo isso entendeu
23/03/2020
Emerson Nascimento
i, nIni, nFim: integer; begin nIni := StrToIntDef(edit1.text,1); nFim := StrToIntDef(edit2.text,1); if nFim < nIni then nFim := nIni; for i := nIni to nFim do begin cString := IntToStr(i); ADO_cartao.Append; ADO_cartao.FieldByName('CodigoDeBarras').Value := cString; ADO_cartao.FieldByName('NUM_CARTAO').Value := cString; ADO_cartao.FieldByName('COD_PESSOA').AsString := ''; ADO_cartao.FieldByName('DarBaixa').Value := 0; ADO_cartao.FieldByName('Offline').Value := 0; ADO_cartao.FieldByName('SemDigital').Value := 0; ADO_cartao.FieldByName('EnviadoListaSemDigital').Value := 0; ADO_cartao.Post; ShowMessage(cString); end end;
Clique aqui para fazer login e interagir na Comunidade :)